listing Visual Basic 6.0

Pencarian dengan text box

cari txtcari


klik 2 kali

adodc1.refresh
with adodc1.recordset
.find "idpeminjam=' " & txtcari & " ' "
if not . EOF then
else
msgbox "data dg id : " txtcari & "tidak ditemukan ", vbcritical
end if
end with


listing peringatan data tidak boleh kosong

simpan ---> pada form Fbuku

if txtid.text = " " or txtjudul.text=" " then
msgbox "record tidak boleh kosong"
end if
data.recordset.update
data1.refresh