 |  |  |  |  |  |  |  |
Search code in a database
 |
Hi Everybody,
Could somebody let me know the search code in a database (mdb database : with 1 table only) to write for a search command. I am using ADODC1 connection.
Please also let me know for the above table if i want to add a new contact to the table when i write contact name in a text box it should be automatically changed to upper case even i write in a lower case.
Have a nice day..
Note: I used this code for the search command but it did not work.
Private Sub Command8_Click()
Dim Searchvar As String
Dim sBookMark As String
Searchvar = InputBox("Enter the Name to find")
Searchvar = Trim$(Searchvar) 'remove surplus spaces
If Searchvar <> " " Then 'cancel if nothing entered
With Adodc1.Recordset
sBookMark = .Bookmark
.FindFirst "SName like '" + Searchvar + "*'"
If .NoMatch Then 'record not found
MsgBox "Hey! There is no such record in this Database
.Bookmark = sBookMark
End If
End With
End If
End Sub
When i tried this one there was an error: "Method or Data Member not found" and it highlights this string in the code : ".FindFirst"
user777
Could somebody let me know the search code in a database (mdb database : with 1 table only) to write for a search command. I am using ADODC1 connection.
Please also let me know for the above table if i want to add a new contact to the table when i write contact name in a text box it should be automatically changed to upper case even i write in a lower case.
Have a nice day..
Note: I used this code for the search command but it did not work.
Private Sub Command8_Click()
Dim Searchvar As String
Dim sBookMark As String
Searchvar = InputBox("Enter the Name to find")
Searchvar = Trim$(Searchvar) 'remove surplus spaces
If Searchvar <> " " Then 'cancel if nothing entered
With Adodc1.Recordset
sBookMark = .Bookmark
.FindFirst "SName like '" + Searchvar + "*'"
If .NoMatch Then 'record not found
MsgBox "Hey! There is no such record in this Database
.Bookmark = sBookMark
End If
End With
End If
End Sub
When i tried this one there was an error: "Method or Data Member not found" and it highlights this string in the code : ".FindFirst"
user777
Why not just use DAO?
Much Cleaner in my opinion
Much Cleaner in my opinion
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Did my post help?
Visit Little Jon's Web Portal
Utilize Jon Coiro's Tech Support Remote Services
Need to Increase Your Traffic?
Visit Little Jon's Web Portal
Utilize Jon Coiro's Tech Support Remote Services
Need to Increase Your Traffic?
•
•
•
•
Originally Posted by user777
With Adodc1.Recordset
.FindFirst "SName like '" + Searchvar + "*'"
If .NoMatch Then 'record not found
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Damn it, I still dream of her....:(
hi to all...
maybe this one will help...here it is:
********** this is an unbound control *************
***** create first and active connection ***********
Private Sub text1_KeyPress(KeyAscii As Integer)
dim RS as New ADODB.Recordset
If KeyAscii = 13 Then
set RS = new adodb.recordset
RS.open "select * from [tablename]",activeconnection,adOpenDynamic,
adLockOptimistic
with RS
.find "[fieldname] = '" & text1.text & "'", , adSearchForward
if not .eof then
msgbox "Record found."
else
msgbox "No Record."
endif
end with
End If
End Sub
maybe this one will help...here it is:
********** this is an unbound control *************
***** create first and active connection ***********
Private Sub text1_KeyPress(KeyAscii As Integer)
dim RS as New ADODB.Recordset
If KeyAscii = 13 Then
set RS = new adodb.recordset
RS.open "select * from [tablename]",activeconnection,adOpenDynamic,
adLockOptimistic
with RS
.find "[fieldname] = '" & text1.text & "'", , adSearchForward
if not .eof then
msgbox "Record found."
else
msgbox "No Record."
endif
end with
End If
End Sub
•
•
•
•
Originally Posted by vhinehds 
hi to all...
maybe this one will help...here it is:
********** this is an unbound control *************
***** create first and active connection ***********
Private Sub text1_KeyPress(KeyAscii As Integer)
dim RS as New ADODB.Recordset
If KeyAscii = 13 Then
set RS = new adodb.recordset
RS.open "select * from [tablename]",activeconnection,adOpenDynamic,
adLockOptimistic
with RS
.find "[fieldname] = '" & text1.text & "'", , adSearchForward
if not .eof then
msgbox "Record found."
else
msgbox "No Record."
endif
end with
End If
End Sub
what if i want the result to be displayed on the textbox/listbox, then if i choose the name, the other info about the name that is chosen will change also to their corresponding info.. what will i do in this given code?.. =) hope you can help me guys!.. tnx a lot in advance..
|
Similar Threads
- search code not working!!! (VB.NET)
- ADODC Search code (Visual Basic 4 / 5 / 6)
- search record using search button from database (ASP)
- Dynamic Query (JSP)
- Tutorial: Search a Database (ASP)
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: Error in CreatematerilsTable
- Next Thread: Image Animation Help
| Thread Tools | Search this Thread |
You need to join our community in order to build your list of favorite forums. You can visit the forum index for a listing of all forums.
Related Forum Features
Latest Visual Basic 4 / 5 / 6 Posts
- Today's Posts
- Unanswered Threads
* 6 429 2007 access activex add age application basic beginner birth bmp calculator cd cells.find click client code college component connection connectionproblemusingvb6usingoledb copy creat ctrl+f data database datareport date delete dissertations dissertationthesis dissertationtopic edit error excel excelmacro file filename form hardware header iamthwee image inboxinvb internetfiledownload keypress label listbox listview liveperson login looping machine microsoft movingranges number objectinsert open oracle password prime program prompt range-objects readfile reading record refresh remotesqlserverdatabase report save search sendbyte sites sort sql sql2008 sqlserver subroutine tags textbox time urldownloadtofile vb vb6 vb6.0 vba visual visualbasic visualbasic6 web window windows
