Cara Menghapus Record DataGrid Tanpa Command Button

Di tutorial sebelumnya saya sudah menjelaskan tentang cara menghapus database Access di Visual Basic, tetapi untuk menghapus datanya kita harus klik record yang akan di hapus di datagrid, lalu klik command button untuk menghapusnya, kali ini kita akan menghapus record tanpa harus mengklik command button terlebih dulu, jadi kita hanya klik record yang akan di hapus saja, lalu muncul pesan konfirmasi apakah benar data akan di hapus ?, jika Ya maka record akan di hapus, baiklah berikut turotialnya :

1. Pertama siapkan terlebih dulu file database dengan format .mdb, untuk kriterianya bebas

2. Jika sudah siap, Buka vb lalu pilih project Standar Exe

3. Komponen utama untuk tutorial ini hanyalah DataGrid dan Adodc saja, untuk yang lainya menyesuaikan saja, berikut screenshoot formnya :

4. Tampa melakukan perubahan apapun di properties adodc dan datagrid, tuliskan script berikut :

Public Blues As ADODB.Connection
Public Pedia As ADODB.Recordset

Private Sub Command2_Click()
End
End Sub

Private Sub DataGrid1_Click()
Dim hapus As String
Dim a
hapus = DataGrid1.Columns(0).Text
a = MsgBox("Hapus Data...?", vbQuestion + vbYesNo)
If a = vbYes Then
Blues.Execute "delete * from Data_User where ID_User = '" & hapus & "'"
MsgBox "Data Berhasil Di Hapus", vbInformation
Tampilkan_Grid
Else
Exit Sub
End If
End Sub

Private Sub Form_Load()
Set Blues = New ADODB.Connection
Blues.CursorLocation = adUseClient
Blues.Provider = "microsoft.jet.oledb.4.0"
Blues.Open App.Path & "\Database_BluesPedia.mdb"

Call Tampilkan_Grid
End Sub

Private Sub Tampilkan_Grid()
Set Pedia = New ADODB.Recordset
Pedia.Open "select * from Data_User", Blues, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Pedia
End Sub

5. Jika sudah, sebelum menjalankan program, save terlebih dulu programnya,
untuk tempat penyimpananya, simpan di tempat yang sama, dimana anda menyimpan file databasenya

Untuk menjalankanya klik saja record di datagrid yang akan di hapus, maka akan muncul pesan konfirmasi seperti ini "Anda Ingin Menghapus Data ?", Jika anda memilih "YES" maka record akan di hapus, Jika "NO" berarti di batalkan.


Sekian tutorial kali ini semoga bermanfaat