lazada.co.id

Monday, 31 October 2011

pencarian menggunakan inputbox VB6

Posted by ahmad mustaqim | Monday, 31 October 2011 | Category: |

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

Currently have 0 comments:


Leave a Reply

Popular Posts