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
Run
project tersebut, dan terisinya datagrid menandakan koneksi database ke
datagrid sudah berhasil dengan baik.
