Diskusi tentang Excel

Contoh Coding Simpan Data ke Database dengan VBA

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

Database yang dimaksud disini adalah data yang kita entrikan dan disimpan ke worksheet sebagai tempat penyimpanan data utama dan sewaktu-waktu dapat dipanggil jika dibutuhkan.

Langkah pertama Anda tentu harus mendesain Form dilengkapi dengan Textbox, label dan Commandbutton. Oke daripada bingung saya 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 membuat 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 sekarang saatnya masuk ke Worksheet dan Ganti Sheet1 menjadi " DataWisata" kemudian buat tabel dengan judul kolom di

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

Langkah berikutnya sekarang kita membuat NameRange dari alamat range tersebut dengan cara klik menu 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 membuat 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 adalah bagaimana cara membuat tombol simpan. Langkah pertama jika kita akan membuat tombol tersebut adalah kita membuat 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 jika Anda klik tombol SIMPAN secara otomatis data yang ada pada textbox akan tersimpan kedalam database yaitu di Worksheet "DataWisata" dan Anda juga bisa melihat database tersebut pada list data wisata dibawahnya



Nah, kira-kira seperti itu bagaimana cara membuat tombol simpan data ke database dengan VBA, silakan Anda kembangkan dan semoga bermanfaat.

Update:
Simak bagaimana cara membuat tombol Hapus Data Record dari database
 

Related

UserForm 3981196832867225835

Post a Comment

  1. itu source codenya untuk simpan kok g ada gan?

    ReplyDelete

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item