Like Operator

[Vec]

The code below is what I use to search a fld in a db, but it searches for an exact string. Is there a way to modify this code, or can someone show me a new way to search a db that uses a "LIKE" operator. In other words if you enter "johnso" in the txtSearchLast.Text box, the db will still locate johnson because johnson is LIKE "johnso"

Here is the current code I use:

With frmMain!Data1.Recordset
varBookmark = .Bookmark
.Index = "LastName"
.Seek "=", txtSearchLast.Text

If .NoMatch Then
.Bookmark = varBookmark
End If
End With
-

Looking Toward The Future

http://www.webfusiondesign.com

 

[mmilan]

frmMain.data1.recordset.findfirst "Lastname Like "+chr(34)+txtsearchlast +"*" + chr34

 

[mmilan]

Sorry - it should be chr(34) on the end - not chr34

 

[Vec]

Below is what I tried, when I run it I get a syntax error and then it highlights the text I have put red below, what am I doing wrong?
With frmMain.Data1.Recordset.FindFirst "Lastname Like " + Chr(34) + txtSearchLast + "*" + Chr(34)
varBookmark = .Bookmark
.Index = "LastName"
.Seek "=", txtSearchLast.Text

If .NoMatch Then
.Bookmark = varBookmark
End If
End With -

Looking Toward The Future

http://www.webfusiondesign.com

 

[ija]

This looks like VB, so use the "&" operator to concatenate strings. Hope it helps...

 

[NipsMG]

Vec, try this:

With frmMain.Data1.Recordset

        .FindFirst "Lastname Like '" & txtSearchLast + "%'" 
        varBookmark = .Bookmark
        .Index = "LastName"
        .Seek "=", txtSearchLast.Text

        If .NoMatch Then
           .Bookmark = varBookmark
        End If
End With

 

[NipsMG]

Vec, try this:

With frmMain.Data1.Recordset

        .FindFirst "Lastname Like '" & txtSearchLast & "%'" 
        varBookmark = .Bookmark
        .Index = "LastName"
        .Seek "=", txtSearchLast.Text

        If .NoMatch Then
           .Bookmark = varBookmark
        End If
End With

 

[Vec]

It gives the error: "Operation is not supported with this type of object" and then highlights:

.FindFirst "Lastname Like '" & txtSearchLast & "%'" -

Looking Toward The Future

http://www.webfusiondesign.com

 

[NipsMG]

Are you using ADO or RDO?

 

[Vec]

I am just using a Data Control from the toolbox, and putting the path in the Database Name of the properties -

Looking Toward The Future

http://www.webfusiondesign.com

 

[NipsMG]

Hmm.. I wish I could help you further, but i'm more familiar with ADO.

I'll toy with it however, and if I come up with anything I'll let you know.

Sorry I couldn't be of more help!

s-)

--NipsMG

 

[Vec]

Thanks NipsMG. I hope I can figure it out, I just got back from Chapters, I bought Visual Basic 6.0 Black Book by Steven Holzner

It has everything in it! -

Looking Toward The Future

http://www.webfusiondesign.com