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 menciptakan dan ingin mendonwload eksklusif database dan tabel diatas

Silahkan KLIK DISINI untuk mendownloadnya.

Buka VB 6.0 anda
Buatlah Design Form1 menyerupai 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 Praktis 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

Share this post