Vb6 Ms Access: Pembuatan Data, Delete/Hapus Data

Setelah Edit/Update data, selanjut nya yaitu proses delete/hapus.

Untuk menyertakan fungsi delete, tambahkan procedure berikut pada event cmdDelete_Click :
Private Sub cmdDelete_Click()
On Error GoTo errHandler

'kalau data kosong code pada event ini tidak akan dilakukan
If rsData.RecordCount = 0 Then Exit Sub

'konfirmasi abolisi
If MsgBox("Yakin akan meniadakan klasifikasi " & _
          rsData!categorycode & "?", vbOKCancel) = vbOK Then
   RunQuery "DELETE FROM category WHERE " & _
            "categorycode = '" & rsData!categorycode & "'"
   MsgBox "Data Terhapus"
End If

'membersihkan control input
cmdCancel_Click

Exit Sub
errHandler:
MsgBox Err.Number & ":" & Err.Description
End Sub

Coba run aplikasi dengan F5.
Pilih baris data yang hendak dihapus, kemudian klik tombol Delete.

 Sebelum data benar-benar dihapus akan ada pesan konfirmasi. Klik Ok untuk melanjutkan hapus

 Setelah data terhapus akan timbul pesan konfirmasi

 Data yang telah terhapus tidak akan tampil lagi di grid.

Lihat code lengkapnya disini.


Click here if you like this article.



Sumber http://rani-irsan.blogspot.com