Monday, 31 October 2011
pencarian menggunakan inputbox VB6
Posted by Unknown | Monday, 31 October 2011 | Category:
tutorial VB6
|
vcar = (InputBox("pesan", "info"))
Adodc1.Recordset.Find "field='" & vcar & "'", , adSearchForward, 1
If Adodc1.Recordset.EOF Then
MsgBox "data tidak di temukan"
Adodc1.Refresh
Else
a = MsgBox("pesan", vbYesNo, "info")
If a = vbYes Then
Adodc1.Recordset.Delete
End If
End If
Subscribe to:
Post Comments (Atom)
Popular Posts
-
Keuntungan & Cara Kerja Pulsagram memberikan sistem bisnis pulsa terbaik dengan viral marketing gratis. Begitu keanggotaan tel...
-
pasti masih banyak kekurangan... mohon di koreksi dan saya berharap sarannya...
-
vcar = (InputBox("pesan", "info")) Adodc1.Recordset.Find "field='" & vcar & "'", , ...
-
klik download
-
text1.text=adodc1.recordset.fields("field")
-
Gridkaryawan.Cols = 6 Gridkaryawan.Rows = 10 Gridkaryawan.ColWidth(0) = 100 Gridkaryawan.ColWidth(1) = 900 Gridkaryawan.ColWidth(2) = 200...
-
Vb2 View more documents from Ahmad Mustaqim .
-
Kursus View more documents from Ahmad Mustaqim .
-
monggo dipun unduh bos...bok menawi pengen di cobo... Adobe PhotoShop CS5 12.0.3 meniko dipun pencet . 3all
Currently have 0 comments: