Database Search - Xtreme Visual Basic Talk

05-07-2002, 03:12 PM

Hiren

Guest

Posts: n/a

Database Search

Hi all,

Code:

Private Sub searchGo_Click()
mmdbChar.Recordset.FindFirst "FirstName = '" + mmSearch.Text + "'"
End Sub

I'm using the following code to search the table mmdbChar and in the field FirstName to find mmsearch.text.

<Question>
However this is not what i really wanted, what i would like to have would be a method to search all of the fields for a keyword.
</Question>

I've seen these Select statements but i have no clue of how to implement them. I would prefer that the answer doesn't have select statements in them becuase that is out of the scope of my little project.

Thanx guys.

05-07-2002, 04:05 PM

Phoebe

Guest

Posts: n/a

'rs is the recordset
'it will search all the fields in all the records for "text I want to find"

<code>
For intCounter = 0 To rs.RecordCount - 1
For intAnotherCounter = 0 To rs.Fields.Count - 1
If CStr(Trim(rs.Fields.Item(intAnotherCounter))) = "text I want to find" Then
'Do something with this record
End If
Next
rs.MoveNext
Next
</code>

05-08-2002, 07:19 AM

Hiren

Guest

Posts: n/a

I keep getting invalid use of Null here

CStr(Trim(mmdbHouse.Recordset.Fields.Item(intAnotherCounter)))

it is probably becuase the particular field is empty, how would i get around this or handle it?

05-08-2002, 07:45 AM

Thinker

Iron-Fisted Programmer

Retired Moderator
* Guru *

Join Date: Jul 2001

Location: Fayetteville Arkansas USA

Posts: 18,127

The CStr() function is doing nothing here as Trim must already
be working with a string. Try...

Code:

Trim(mmdbHouse.Recordset.Fields.Item(intAnotherCounter) & "")

__________________
Posting Guidelines

05-08-2002, 08:23 AM

Phoebe

Guest

Posts: n/a

I should have written:

If isnull(rs.fields.item(intCounter)) = FALSE then
If ucase(trim(cstr(rs.Fields.item(intCounter)))) = "TEXT I WANT TO FIND" then
'Do something
End if
End if