Cara Menghapus Data Di Database Dengan VB 6.0

Pada Tutorial Visual Basic 6.0 kali ini akan dibahas mengenai Cara Mudah Cara Menghapus Data Didalam Database Dengan VB 6.0.

Berikut langkahnya :

Buatlah Database dengan nama : DBJNM.mdb
Buatlah Tabel dengan nama : TBL_ANGGOTA

Buka VB 6.0 anda
Buatlah Design Form1 seperti gambar dibawah ini :

Kemudian masukan koding dibawah ini :

 
Dim Koneksi As New ADODB.Connection
Dim RSAnggota As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSAnggota = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb"
End Sub
Private Sub Form_Activate()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBJNM.mdb; "
Adodc1.RecordSource = "TBL_ANGGOTA"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub DataGrid1_DblClick()
On Error Resume Next
    Call BukaDB
    RSAnggota.Open "Select * from TBL_Anggota where KodeAnggota = '" & DataGrid1.Columns(0) & "'", Koneksi
    If Not RSAnggota.EOF Then
        Text1 = RSAnggota!KodeAnggota
        Text2 = RSAnggota!NamaAnggota
        Text3 = RSAnggota!AlamatAnggota
        Text4 = RSAnggota!TelpAnggota
        Text1.Enabled = False
        Command1.Enabled = True
        Else
        MsgBox "Data Tidak Ada!"
    End If
End Sub
Private Sub Command1_Click()
Call BukaDB
Dim HapusAnggota As String
    HapusAnggota = "Delete From TBL_Anggota where KodeAnggota='" & Text1 & "'"
    Koneksi.Execute HapusAnggota
    MsgBox "Data Berhasil DiHapus", vbInformation, "Pemberitahuan"
    Form_Activate
End Sub
Private Sub Command2_Click()
End
End Sub

Jika sudah, silahkan jalankan Project VB 6.0 anda