Menghapus Data Database Access di VB 6


Di tutorial sebelumnya kita telah belajar cara input dan edit database, kali ini kita akan belajar cara menghapus database di vb, sblum memulai tutorial ini, sama seprti tutorial-tutorial sebelumnya, persiapkan terlebih dahulu file accessnya, karena kita akan menghapus data, jadi untuk isi databas bebas, yang terpenting adalah 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 seperti ini:

3. Koneksikan VB dengan access
Baca Juga : Cara Menghubungkan Visual Basic dengan Ms. Access
4. jika sudah terhubung, tuliskan script berikut :
Private Sub Command1_Click()'Memunculkan psan ketika command 1 di klik
If MsgBox("Anda Yakin Ingin Menghapus", vbYesNo, "Blues Pedia") = 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, "Blues Pedia"   End If

'Jika "NO" Maka
ElseIf vbNo Then'Akan ada pesan "Di Batalkan"
MsgBox "DI BATALKAN !", vbCritical, "Blues Pedia"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, lalu klik "HAPUS",
Ketika anda mengklik "HAPUS", maka akan ada pesan yang menegaskan apakah data benar-benar akan di atau tidak, jika "YES" maka data akan di hapus, dan jika "NO" maka akan muncuk pesan bahwa anda telah membatalkan penghapusan 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, semoga bermanfaat




Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Menghapus Data Database Access di VB 6"

Post a Comment