Berikut langkahnya :
Buatlah Database Dnegan Nama : DBJNM
Buatlah Tabel Dengan nama : TBL_ANGGOTA
Buka VB 6.0 anda
Design Form1 seperti gambar dibawah ini :
Kemudian masukan koding dibawah ini :
Jika sudah memasukan koding diatas, silahkan jalankan Project VB 6.0
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
Post a Comment