Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 10121

May 15th, 2007

ADODC Search code

Expand Post »

hi im just starting to design a database using adodc but I have a problem...

can someone give me tip on how to create a search code for ADODC... thx in advance

Similar Threads

Search code in a database in Visual Basic 4 / 5 / 6
search code not working!!! in VB.NET
Search code ... in Visual Basic 4 / 5 / 6

cybuster

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

3 posts
since May 2007

Permalink

May 17th, 2007

Re: ADODC Search code

I don't get it. Don't you have google?

In 1 second I got this result.
Look here: http://hamilton.bell.ac.uk/swdev1/notes_pp1_5.doc

I just searched on: +adodc +recordset +select
You can also try to seach on: +adodc +recordset +find

PVBert

Reputation Points: 10

Solved Threads: 5

Junior Poster in Training

Offline

60 posts
since Mar 2007

Permalink

May 17th, 2007

-1

Re: ADODC Search code

Click to Expand / Collapse Quote originally posted by cybuster ...

hi im just starting to design a database using adodc but I have a problem...

can someone give me tip on how to create a search code for ADODC... thx in advance

Try the following code.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
adcBrowser.Recordset.Find txtSearchHdr.Text & "  like '" & txtSearch & "_'", , adSearchForward
'adcBrowser is the name of your ADODC
'txtSearchHdr.Text is your recordset field
'txtSearch is your search criteria
adcBrowser.Recordset.Find txtSearchHdr.Text & "  like '" & txtSearch & "_'", , adSearchForward
'adcBrowser is the name of your ADODC
'txtSearchHdr.Text is your recordset field
'txtSearch is your search criteria

if you want to search for a hypothetic recordset field sname for "surname"
begining with "dav" then txtSearchHdr.Text is sname
and txtSearch is dav

adSearchForward or adSearchBackward can be used.

Last edited by jamello; May 17th, 2007 at 7:06 am.

jamello

Reputation Points: 215

Solved Threads: 6

Posting Whiz in Training

Offline

219 posts
since Oct 2006

Permalink

May 19th, 2007

Re: ADODC Search code

re as recordset
dim x as string
x=inputbox("enter the name please :")
re.findfirst"name=' " & x & " ' "
if re.nomatch then
msgbox "the name You Entered not found"
end if

ahmed elweshahy

Reputation Points: 6

Solved Threads: 0

Newbie Poster

Offline

17 posts
since Apr 2007

Permalink

May 20th, 2007

Re: ADODC Search code

The .nomatch property doesn't exist in ADO.

PVBert

Reputation Points: 10

Solved Threads: 5

Junior Poster in Training

Offline

60 posts
since Mar 2007

Permalink

Jun 8th, 2007

Re: ADODC Search code

Remember that you can only search on 1 field with the FindFirst method.

The following code will not work;

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
rs.findfirst "NAME=" & 'NAME' & " AND POBOX=" & '2300 PD'
rs.findfirst "NAME=" & 'NAME' & " AND POBOX=" & '2300 PD'

mivc

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Jun 2007

Permalink

Jun 8th, 2007

Re: ADODC Search code

findfirst doesn't exist at all, so even searching on one field won't go
you can you select statements and use:

vb Syntax (Toggle Plain Text)
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
 
Set cn = New ADODB.Connection
Set cmd = New ADODB.Command
Set rs = New ADODB.Recordset
 
' Open the Connection object    
 cmd.ActiveConnection = cn
 
cmd.CommandText = "select "
cmd.Execute
 
' Open a Recordset object on the new table.
cmd.CommandText = "SELECT * FROM YOURTABLENAME WHERE YOURFIELDNAME = 'YOURVALUE' "
 
' "SELECT * FROM YOURTABLENAME WHERE YOURFIELDNAME = 'YOURVALUE'  AND YOUROTHERFIELDNAME = 'ANOTHERVALUE' "
 
Set rs = cmd.Execute()
 
rs.Close
cn.Close
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
 
Set cn = New ADODB.Connection
Set cmd = New ADODB.Command
Set rs = New ADODB.Recordset
        
' Open the Connection object    
 cmd.ActiveConnection = cn
    
cmd.CommandText = "select "
cmd.Execute
    
' Open a Recordset object on the new table.
cmd.CommandText = "SELECT * FROM YOURTABLENAME WHERE YOURFIELDNAME = 'YOURVALUE' "
 
' "SELECT * FROM YOURTABLENAME WHERE YOURFIELDNAME = 'YOURVALUE'  AND YOUROTHERFIELDNAME = 'ANOTHERVALUE' "

Set rs = cmd.Execute()

rs.Close
cn.Close

PVBert

Reputation Points: 10

Solved Threads: 5

Junior Poster in Training

Offline

60 posts
since Mar 2007

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Printer Object

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: VB Macro for use across 2 Excel workbooks

DaniWeb Message

Cancel Changes

User Name
Password