Menghapus Data Database Access Di Vb 6

Di tutorial sebelumnya kita telah berguru cara input dan edit database, kali ini kita akan berguru cara menghapus database di vb, sblum memulai tutorial ini, sama seprti tutorial-tutorial sebelumnya, persiapkan terlebih dahulu file accessnya, alasannya yakni kita akan menghapus data, jadi untuk isi databas bebas, yang terpenting yakni formatnya .mdb. Jika file database sudah siap ayo kita mulau tutorialnya :

Baca Juga : Cara Membuat File Database Access .mdb

1. Seperti biasa jalankan VB dengan project standar EXE
2. Lalu tambahkan 2 command button, 1 datagrid, dan 1 adodc,
Ubahlah properties caption command1 menjadi "HAPUS" dan command2 "KELUAR", dengan masing-masing font size 10, dan untuk properties adodc1 setting visible menjadi false
sehingga menyerupai ini:

3. Koneksikan VB dengan access

Baca Juga : Cara Menghubungkan Visual Basic dengan Ms. Access

4. jikalau sudah terhubung, tuliskan script berikut :

Private Sub Command1_Click()'Memunculkan psan dikala command 1 di klik
If MsgBox("Anda Yakin Ingin Menghapus", vbYesNo, "Routeros Mikrotik") = vbYes Then

   'Jika "Yes" maka data akan di hapus
   If Adodc1.Recordset.RecordCount <> 0 Then   Adodc1.Recordset.Delete   'Dan muncul pesan konfirmasi
   MsgBox "Data Berhasil di Hapus", vbInformation, "Routeros Mikrotik"   End If

'Jika "NO" Maka
ElseIf vbNo Then'Akan ada pesan "Di Batalkan"
MsgBox "DI BATALKAN !", vbCritical, "Routeros Mikrotik"End IfEnd Sub

Private Sub Command2_Click()If Command2.Caption = "KELUAR" ThenEndEnd IfEnd Sub

Private Sub Form_Load()Command1.Caption = "HAPUS"Adodc1.Visible = FalseEnd Sub

5. Jika sudah silahkan jalakan Program.

Pertama klik terlbih dahulu record yang akan di hapus, kemudian klik "HAPUS",
Ketika anda mengklik "HAPUS", maka akan ada pesan yang menegaskan apakah data benar-benar akan di atau tidak, jikalau "YES" maka data akan di hapus, dan jikalau "NO" maka akan muncuk pesan bahwa anda telah membatalkan pembatalan data. Jika data berhasil di hapus, maka akan ada pesan konfirmasi bahawa data telah di hapus dan tentunya isi dari data grid berubah / berkurang

Sekian tutorial kali ini, biar bermanfaat