√ Referensi Coding Simpan Data Ke Database Dengan Vba

Simpan data ke database memakai VBA memang sebagai salah satu dasar pemrograman untuk menciptakan aplikasi berbasis VBA. Dismping itu Edit dan Hapus data juga sangat penting dan diharapkan ketika menciptakan aplikasi. Nah kali ini aku akan bahas bagaimana cara menciptakan tombol Simpan data ke database memakai VBA.

Database yang dimaksud disini ialah data yang kita entrikan dan disimpan ke worksheet sebagai kawasan penyimpanan data utama dan sewaktu-waktu sanggup dipanggil bila dibutuhkan.

Langkah pertama Anda tentu harus mendesain Form dilengkapi dengan Textbox, label dan Commandbutton. Oke daripada gundah aku contohkan gambar berikut merupakan form input data atau Simpan data dari textbox ke Database

Bisa Anda lihat pada gambar diatas, dan perintah Simpan akan dimasukan kedalam listbox. Lalu apa saja yang perlu disiapkan untuk merancang form simpan tersebut?

Berikut langkah menciptakan Tombol atau Coding Simpan Data ke Database

Ganti Label :
Label1 ganti properties Caption menjadi "ID Wisata"
Label1 ganti properties Caption menjadi "Nama Wisata"
Label1 ganti properties Caption menjadi "Harga"

Ganti Textbox:
Textbox1 ganti Properties Name menjadi "IDWisata"
Textbox2 ganti Properties Name menjadi "NamaWisata"
Textbox3 ganti Properties Name menjadi "HargaWisata"

Ganti CommandButton:
CommandButton1 ganti Properties Name menjadi "TombolSimpanWisata"
CommandButton2 ganti Properties Name menjadi "TombolEditWisata"
CommandButton3 ganti Properties Name menjadi "TombolHapusWisata"
CommandButton4 ganti Properties Name menjadi "WotmbolCetakWisata"

Ganti ListBox:
Listbox1 ganti properties Name menjadi "ListWisata"

Jika sudah selesai setting properties maka kini saatnya masuk ke Worksheet dan Ganti Sheet1 menjadi " DataWisata" lalu buat tabel dengan judul kolom di

B3 ketikan "ID"
C3 ketikkan "Nama Kota"
D3 ketikkan "harga"

Langkah berikutnya kini kita menciptakan NameRange dari alamat range tersebut dengan cara klik sajian Formula dan klik Manager kemudian ketikkan name dengan ListWisata

Untuk Refers To silakan ketikan dibawah ini

=OFFSET(DataWisata!$B$4,0,0,COUNTA(DataWisata!$B:$B),3)

Langkah berikutnya dalah kita akan menciptakan Module KosongkanWisata silakan buat Module dan ketikkan coding berikut ini

Sub KosongkanWisata()
With DataUtama
    .IDWisata.Value = ""
    .NamaWisata.Value = ""
    .HargaWisata.Value = ""
End With
End Sub

Module yang kedua silakan buat ListWisata

Sub ListWisata()
With DataUtama
   .ListDataWisata.RowSource = "ListWisata" ' data diambil dari NameRange
   .ListDataWisata.ColumnWidths = "80,400,60"
End With
End Sub

Cara Membuat Tombol Simpan di Excel

Sebagai langkah terakhir ialah bagaimana cara menciptakan tombol simpan. Langkah pertama bila kita akan menciptakan tombol tersebut ialah kita menciptakan Prosedur Click pada Objek Tombol SimpanWisata maka silakan double klik tombol SimpanWisata tersebut dan ketikkan coding berikut

Private Sub TombolSimpanWisata_Click()

Dim iRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("DataWisata")
Dim Path As String

iRow = Ws.Cells(Rows.Count, 3) _
        .End(xlUp).Offset(1, 0).Row
    
If WorksheetFunction.CountIf(Ws.Range("B4", Ws.Cells(iRow - 1, 3)), Me.IDWisata.Value) > 0 Then
    MsgBox "ID Wisata sudah ada di database, silakan ganti", vbInformation, "Info"
    Call KosongkanWisata
End If
    
'Cek data yang dientri pada tetxbox1
If Trim(Me.IDWisata.Value) = "" Then
    Me.IDWisata.SetFocus
    MsgBox "ID Wisata Harus Diisi"
    Exit Sub
End If
If Trim(Me.NamaWisata.Value) = "" Then
    Me.NamaWisata.SetFocus
    MsgBox "Silakan masukan nama wisata"
    Exit Sub
End If
If Trim(Me.HargaWisata.Value) = "" Then
    Me.HargaWisata.SetFocus
    MsgBox "Silakan tuliskan harga wisata"
    Exit Sub
End If
    
'copy data ke database
Ws.Cells(iRow, 2).Value = Me.IDWisata.Value
Ws.Cells(iRow, 3).Value = Me.NamaWisata.Value
Ws.Cells(iRow, 4).Value = Me.HargaWisata.Value
    
'Panggil Module
Call KosongkanWisata
IDWisata.SetFocus
Call ListWisata
End Sub

Silakan Anda Run dan masukan data pada textbox tersebut maka bila Anda klik tombol SIMPAN secara otomatis data yang ada pada textbox akan tersimpan kedalam database yaitu di Worksheet "DataWisata" dan Anda juga sanggup melihat database tersebut pada list data wisata dibawahnya

Nah, kira-kira menyerupai itu bagaimana cara menciptakan tombol simpan data ke database dengan VBA, silakan Anda kembangkan dan biar bermanfaat.

Update:
Simak bagaimana cara menciptakan tombol Hapus Data Record dari database
 
Sumber http://www.excel-id.com/