Koneksi Database Ms.Access Dengan Visual Basic 6.0.

Koneksi Database di VB bisa menggunakan Data control, BDE atau komponen
ADODC. Serta Database yang digunakan bisa dBase,MySQL,SQLserver, Ms.Access,
dsb. Namun, dalam praktek yang saya bawakan kali ini, kita akan mencoba koneksi
menggunakan Data dengan Database Ms. Access.

Langkah – Langkahnya :
Masukkan Komponen Label,Text,Command, Data, dan DBGrid, ke dalam Form aktif/ form kerja kita,namun, kadangkala DB Grid tidak otomatis ada, maka kita menambah komponen dengan cara klik kanan toolbox, klik Components.
Pilih Microsoft Databound Grid Control 5.0 (SP3), Klik Apply,klik close.
Sekarang buat tampilan sebagai berikut dengan objek text,label,command,data, dan DB Grid :
Set propertinya sebagai berikut :
3 label
3 TextBox
6 Comman Button
1 data
1 DBGrid

Simpan form & Projectnya di folder tempat anda menyimpan database.
Cara memasukkan script adalah double click pada objeknya, berikut listing / script programingnya :
1. Pada Form ( Untuk Koneksi Data1 ke database access versi 97 )
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\dataku.mdb"
Data1.RecordSource = "Mhs"
End Sub
2. Pada Text1 ( Ingat eventnya Keypress bukan change ) :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
3. Pada text 2 :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
4. Pada text 3 :
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
5. Pada Command1 :
Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text

Data1.Recordset.Update
Command5.Value = True
End Sub
6. Pada Command2 :
Private Sub Command2_Click()
Data1.Recordset.Delete
Data1.Refresh
Command5.Value = True
End Sub
7. Pada Command3 :
Private Sub Command3_Click()
Data1.Recordset.Edit
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text
Data1.Recordset.Update
Command5.Value = True
End Sub
8. Pada Command4 :
Private Sub Command4_Click()
Data1.Recordset.MoveFirst
i = 1
j = Data1.Recordset.RecordCount
While i < j
If Data1.Recordset("Nim") = Text1.Text Then
Text2.Text = Data1.Recordset("Nama")
Text3.Text = Data1.Recordset("alamat")
k = j - i
i = (i + k)
Data1.Recordset.MovePrevious
End If
i = i + 1
Data1.Recordset.MoveNext
Wend
End Sub
9. Pada Command5 :
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
10. Pada Command6 :
Private Sub Command6_Click()
Unload Me
End Sub