1.
Sript tambah:
Private Sub tambah_Click()
[Link]
End Sub
2. Script edit :
Private Sub edit_Click()
[Link]
End Sub
3. sript hapus dengan dialog pertanyaan:
Private Sub hapus_Click()
If MsgBox("Yakin Ingin Menghapus Data?", vbQuestion +
vbOKCancel, "konfirmasi") = vbOK Then
[Link]
[Link]
4. sript simpan dengan dialog pesan keterangan
[Link]("nama kolom1") = [Link]
[Link]("nama kolom2") = [Link]
[Link]("nama kolom3") = [Link]
MsgBox "Data Berhasil Disimpan..!!", vbOKOnly +
vbInformation, "Konfirmasi"
[Link]
End Sub
Perhatian!!
Jika kolom berupa DTPicker, maka penulisan scripnya sebagai berikut :
[Link]("nama kolom") = [Link]
5. script pencarian berdasarkan nama :
Private Sub cari_Click()
[Link] "nama = '" + [Link] + "'", ,
adSearchForward, 1
If Not [Link] Then
[Link]
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 “[Link]” 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.