Database dengan Visual Basic 6.0 (part 2)

Pada artikel sebelumnya, kita telah membuat database access, form1 pada Visual Basic Proyek.

Nah, sekarang kita akan mengisikan form 1 dengan listing program. Klik kanan form tersebut, lalu pilih "view code:

'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

'Pada Text1 ( Ingat eventnya Keypress bukan change ) :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

'Pada text 2 :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

'Pada text 3 :
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

'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

'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

'Pada Command4 :
Private Sub Command4_Click()
Data1.Recordset.MoveFirst
i = 1
j = Data1.Recordset.RecordCount
While i < text =" Data1.Recordset(" text =" Data1.Recordset(" k =" j" i =" (i" i =" i">

'Pada Command5 :
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

'Pada Command6 :
Private Sub Command6_Click()
Unload Me
End Sub