VB6 Ms Access: Pengolahan Data, Delete/Hapus Data

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

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

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

'konfirmasi penghapusan
If MsgBox("Yakin akan menghapus kategori " & _
          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 akan dihapus, kemudian klik tombol Delete.