CARA MENGISIKAN CODING TAMBAH,SIMPAN,UBAH,HAPUS,CARI,DAN KELUAR DI VISUAL BASIC 6.0

1. Pertama-tama kita buka dulu projek kita di visual basic 6.0
2. Jika sudah, kita pastikan dulu di textbox nya sudah di isikan diproperties nya di DataSource =
Data1 dan DataFieldnya sesuai dengan isi databasenya.
- Text1 = NIS
- Text2 = NAMA_SISWA
- Text3 = KELAS
- Text4 = TTL
- Text5 = ALAMAT
- Text6 = NO_TELEPON
3. Selanjutnya, kita akan memasukkan coding nya di command tambah, simpan, dan keluar.
- Tambah = COMMAND1
- Simpan = COMMAND2
- Ubah = COMMAND3
- Hapus = COMMAND4
- Cari = COMMAND5
- Keluar = COMMAND6
4. Klik ganda pada command tambah.

5. Lalu isikan coding seperti dibawah.

Private Sub Command1_Click()
On Error GoTo a
Data1.Recordset.AddNew
Text1.SetFocus
a:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True
End Sub

Private Sub Command2_Click()
On Error GoTo b
Data1.Refresh
Data1.Recordset.MoveLast
b:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End Sub

Private Sub Command3_Click()
On Error GoTo c
Data1.Recordset.ubah
c:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True
End Sub

Private Sub Command4_Click()
On Error GoTo d
Data1.Recordset.Delete
Data1.Refresh
Data1.Recordset.MoveLast
d:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
End Sub

Private Sub Command5_Click()
On Error Resume Next
Dim kode As String
kode = InputBox("Ketik NIS :")
Data1.Recordset.Index = "NIS"
Data1.Recordset.Seek "=", kode
If Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
response = MsgBox("Data tidak ditemukan!", 0, "Pencarian Data ")
End If
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

6. Lalu kita run dan dicoba, apakah berhasil atau tidak sperti gambar dibawah. Klik tombol tambah nya.