Script tambah, edit, hapus, simpan, cari, keluar dan cara mengkoneksikan database menggunakan adodc dan datagrid pada vb 6

by suci rizkiana - Maret 22, 2013

1. Sript tambah:

Private Sub tambah_Click()

Adodc1.Recordset.AddNew

End Sub

2. Script edit :

Private Sub edit_Click()

Adodc1.Recordset.edit

End Sub

3. sript hapus dengan dialog pertanyaan:

Private Sub hapus_Click()

If MsgBox("Yakin Ingin Menghapus Data?", vbQuestion + vbOKCancel, "konfirmasi") = vbOK Then

Adodc1.Recordset.Delete

Me.DataGrid1.Refresh

4. sript simpan dengan dialog pesan keterangan

Adodc1.Recordset.Fields("nama kolom1") = Me.Text1.Text

Adodc1.Recordset.Fields("nama kolom2") = Me.Text2.Text

Adodc1.Recordset.Fields("nama kolom3") = Me.Text3.Text

MsgBox "Data Berhasil Disimpan..!!", vbOKOnly + vbInformation, "Konfirmasi"

Me.DataGrid1.Refresh

End Sub

Perhatian!!

Jika kolom berupa DTPicker, maka penulisan scripnya sebagai berikut :

Adodc1.Recordset.Fields("nama kolom") = Me.DTPicker1.Value

5. script pencarian berdasarkan nama :

Private Sub cari_Click()

Adodc1.Recordset.find "nama = '" + Text9.Text + "'", , adSearchForward, 1

If Not Adodc1.Recordset.EOF Then

DataGrid1.Refresh

Else

MsgBox "Maaf Datanya Kosong.. "

End If

End Sub

6. sript keluar :

Private Sub keluar_Click()

Unload Me

End Sub

cara koneksi database menggunakan adodc dan data grid di vb 6

Pertama penampilkan adodc dulu..

Klik kanan pada area kosong pada komponen dan klik componens, atau dengan cara lain (ctrl + t )

Akan menampilkan tampilan seperti berikut :

Setelah itu coba terapkan pada form, form yang saya gunakan untuk contoh sudah jadi yaitu form berkas perkara sebagai berikut :

Klik kanan pada adocd1 nya, lalu pilih ADODC proprerties, lalu muncul properti pages seperti berikut, klik build.

Lalu browse database ms. Access yang ada buat, jangan lupa untuk menghapus letak database anda berada di drive dan folder mana, menjadi misal “dbsidang.mdb” saja seperti berikut agar project tidak bermaslah saat di run di komputer lain

Setelah itu lakukan test koneksi, dengan meng klik test connection sampai muncul tulisan “test connectin succeeded”. Lalu Klik ok dan apply.

Masih di properti pages, klik recordsource seperti gambar berikut dan pilih command type “2 ad-cmdTable” dan producer name, pilih tabel mana yang akan di koneksikan pada database form tersebut.. klik apply dan ok

Lalu jika koneksi database anda sudah berhasil, sekarang koneksikan database tersebut pada datagrid, caranya dengan mengklik datagrid yang sudah di buat tadi dan rubah. datasource datagrid, dengan mengisinya dengan adodc1