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

Jika anda malas membuat dan ingin mendonwload langsung database dan tabel diatas

Silahkan KLIK DISINI untuk mendownloadnya.

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

Silahkan KLIK DISINI untuk mendownload Sourcecode diatas

Demikian Cara Mudah Menghapus Data Di Database Dengan VB 6.0 Semoga bermanfaat untuk anda. salam.. JavaNetMedia


Silahkan Klik Disini Tutorial Input Data Menggunakan VB 6.0
Silahkan Klik Disini Tutorial Edit Data Menggunakan VB 6.0

Tweet