DataBase Microsoft Visual Basic 6.0

Rumus/Syntax DataBase Pada Cari (CommandButton)
Sebelum menuliskan Syntax pastikan name data anda sesuai dengan yang anda tuliskan disyntax anda.

Private Sub CARI_Click()

Data1.Recordset.Index = "KODE_BARANG" (ini adalah nama Indexs yang anda buat, pastikan sama)

Data1.Recordset.Seek "=", Text6.Text (Text6 letak dari pengetikan kode pencarian)

If Not Data1.Recordset.NoMatch Then

TAMPIL

EDIT.Enabled = True

HAPUS.Enabled = True

SIMPAN.Enabled = False

TAMBAH.Enabled = True

Else

MsgBox ("DATA GAK ADA")

BERSIH

EDIT.Enabled = False

HAPUS.Enabled = False

SIMPAN.Enabled = False

TAMBAH.Enabled = True

End If

End Sub

catatan :
1. Disini saya menganti name commandbutton pada setip commandButton, jika anda tidak merubahnya maka sesuaikan pada name commandbutton yang sebenarnya.
2. maksud dari MsgBox diatas ialah jika data tidak ditemukan maka ada peringatan sebagai diatas, anda dapat merubahnya.