برای این کار کد زیر را وارد کنید.

Private Sub Command1_click()
Dim search as variant
sstr = InputBox("Enter Author to Search") ' Display a Input Box Window
data1.recordset.findfirst "Author='" & sstr & "'" ' Look for the record that has a value "sstr"
If trim(sstr) <> "" then
If data1.recordset.nomatch then 'check if the record exist
MsgBox "No record Exist"
Command1.setfocus
else
data1.recordsource = "SELECT * FROM TableName WHERE Author='" & sstr & "'" ' Display all the Records that has a Value of "sstr"
data1.refresh ' refresh the DBGRID or MSFLEXGRID
End if
End if
End Sub



طبقه بندی: برنامه نویسی (سورس،پروژه،الگوریتم)، 
برچسب ها: برنامه نویسی، كد ویژوال، ویژوال بیسیك 6، كا با بانك اطلاعاتی، جستجو در بانك، پروژه های رایگان، دانلود سورس، كدهای آماده،