Not a Member Yet,
Click here to Register
How do you like the new design?






ID: 314
Viewed: 3195
Added: Aug 19, 2002
Version:
Snippet uploaded by: snippet
Written By: Unknown
Demo: Sorry, no demo



User Rated at: 0 Stars
Rate This:

Thank you for your vote. Please wait...

It appears you already voted for this snippet

It appears your vote value was empty

search a database using a input box.
Add a data control, command button, and DBGRID or MSFLEXGRID.

Highlight all by clicking in box
<!---Declaration--->
none

Highlight All
<!---Code--->
Private Sub Command1_click()
Dim search as variant
sstr = InputBox("Enter Author to Search") ' Display a Input Box Window
' Look for the record that has a value "sstr"
data1.recordset.findfirst "Author='" & 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"
' refresh the DBGRID or MSFLEXGRID
data1.refresh
End if
End if
End Sub;


No Comments to show

Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.


Replying to a Comment...


Adding your comment. Please wait...

Thanks for adding your comment!. After further review it will be added.

There was a problem adding your comment. Please try again.

Please complete all the fields in the form before sending.

© 2002 - 2017 snippetlibrary.com All Rights Reserved. Conditions