lazada.co.id

Monday, 31 October 2011

pencarian menggunakan textbox VB6

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

Adodc1.RecordSource = "select*from pesan where nama='" & Text4 & "' "
Adodc1.Refresh
With Adodc1.Recordset
If .BOF And .EOF Then
MsgBox "data tidak ada"
Text4 = ""
Text4.SetFocus
Else
tampil
Text4 = ""
Text4.SetFocus
End If
End With

Currently have 0 comments:


Leave a Reply

Popular Posts