Cara Mudah Edit Database Dengan VB 6.0

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

Berikut langkahnya :
Buatlah Database Dnegan Nama : DBJNM
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
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
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, kemudian anda ubah data Anggota.

Jika sudah Klik SIMPAN

Silahkan KLIK DISINI untuk mendownload Sourcecode diatas

Demikian  Cara Mudah 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

Tweet