DataBase Microsoft Visual Basic 6.0

Rumus DataBase Pada Cari (Command Button)

Jika anda tidak merubah name dari CommandButton anda maka sesuaiakanlah dengan name yang asli yang ada. Disini saya menggunakan name yang saya rubah sesuai dengan fungsi Tombol Tersebut.

contoh penulisan rumus :

Private Sub Cari_Click()

Data1.Recordset.Index = "No"

Data1.Recordset.Seek "=", Text9.Text

If Not Data1.Recordset.NoMatch Then

Tampil

EDIT.Enabled = True

HAPUS.Enabled = True

TAMBAH.Enabled = True

SIMPAN.Enabled = False

Else

MsgBox ("DATA TIDAK DITEMUKAN")

EDIT.Enabled = False

HAPUS.Enabled = False

TAMBAH.Enabled = True

SIMPAN.Enabled = False

End If

End Sub 


jika letak Text anda tidak diText 9 anda bebas meletakan dimana saja tapi ingat apa yang anda harus tulis didalamnya.