Cara Gampang Edit Database Dengan Vb 6.0

Pada Tutorial Visual Basic 6.0 kali ini akan dibahas mengenai Cara Praktis Edit Database Dengan VB 6.0.

Berikut langkahnya :
Buatlah Database Dnegan Nama : DBJNM
Buatlah Tabel Dengan nama : TBL_ANGGOTA

Jika anda malas menciptakan dan ingin mendonwload pribadi database dan tabel diatas

Silahkan KLIK DISINI untuk mendownloadnya.

Buka VB 6.0 anda
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 If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then MsgBox "Data Belum Lengkap" Else Dim EditAnggota As String     EditAnggota = "update TBL_Anggota Set NamaAnggota= '" & Text2 & "',AlamatAnggota='" & Text3 & "',TelpAnggota='" & Text4 & "' where KodeAnggota='" & Text1 & "'"     Koneksi.Execute EditAnggota     MsgBox "Data Berhasil DiUpdate", vbInformation, "Pemberitahuan"     Form_Activate End If End Sub Private Sub Command2_Click() End End Sub 

Jika sudah memasukan koding diatas, silahkan jalankan Project VB 6.0

Cara Edit :

Silahkan Double Klik Data yang ada di Datagrid, lalu anda ubah data Anggota.

Jika sudah Klik SIMPAN

Silahkan KLIK DISINI untuk mendownload Sourcecode diatas

Demikian  Cara Praktis Mengedit data didatabase dengan VB 6.0. Semoga tutorial diatas bermanfaat untuk anda...... Salam JavaNetMedia...

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

Share this post