Cara Menghapus Record Datagrid Tanpa Command Button

Di tutorial sebelumnya aku sudah menjelaskan perihal cara menghapus database Access di Visual Basic, tetapi untuk menghapus datanya kita harus klik record yang akan di hapus di datagrid, kemudian 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, kemudian muncul pesan konfirmasi apakah benar data akan di hapus ?, jikalau Ya maka record akan di hapus, sepakat berikut turotialnya :

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

2. Jika sudah siap, Buka vb kemudian 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 melaksanakan 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 kawasan penyimpananya, simpan di kawasan yang sama, dimana anda menyimpan file databasenya

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


Sekian tutorial kali ini supaya bermanfaat