Menggunakan Beberapa Form Dalam DataBase Microsoft Visual Basic 6.0

Syntax Cari

Syntax ini berfungsi untuk perintah pencarian, yang perlu anda inputkan hanyalah Index atau primary key maka secara otomatis perintah ini akan menampilkan data yang anda cari sesuai Index yang anda inputkan dan anda dapat melakukan peneditan dan penghapusan terhadap data tersebut.

Ketiklah syntax sebagai berikut :

Private Sub CARI_Click()

Data2.Recordset.Index = "N_s"

Data2.Recordset.Seek "=", Text11.Text

If Not Data2.Recordset.NoMatch Then

TAMPIL

TAMBAH.Enabled = True

SIMPAN.Enabled = False

EDIT.Enabled = True

HAPUS.Enabled = True

Text11.Text = ""

Else

TAMBAH.Enabled = True

SIMPAN.Enabled = False

EDIT.Enabled = False

HAPUS.Enabled = False

MsgBox ("Data Tidak Ditemukan")

BERSIH

End If

End Sub

Catatan : disini saya merubah name dari CommandButton jika anda tidak merubahnya maka sesuaikanlah dengan neme commandbutton yang ada.