Need some help

[The_Spike]

I have a form with five radio buttons.
When I choose e.g. Name, I write the name I want to search for in a textbox and I click on my button Search.
A search is made in my database, however, the search returns ALL posts in the database into my listbox.

Q1:How can I make the search for the specific word in the textbox and show the result in the listbox?

Q2:How do I get more than just the Name in the listbox? I want e.g. Name, Adress AND phone number.

Code for the search is:
dtData1.Recordset.Findfirst "Name='" & strSearchString & "'"

/The_spike

[r0ach]

A1:Loop through the recordset, and place each record's result in the listbox
A2:You could build as string with the results:

Dim s as string
s = dtData1.Recordset("Name") & ", " & dtData1.Recordset("Address") & " AND " & dtData1.Recordset("phone number")
Listbox1.AddItem s

[The_Spike]

Thanks...

BUT, How do I get just the name I want?
For instance, if I search for Mark Hudson, I only want Mark Hudson to show in the listbox...

This is my code now:

If boolName Then
strSearchString = txtSearchString
s = dtSearchSupport.Recordset("Name") & "," & dtSearchSupport.Recordset("Arrend")
lstSupportSearch.AddItem s
end if

With a loop ofcourse...
But still I get Mark Hudson AND the other posts...

[r0ach]

I'm not sure what the dtSearchSupport object is, but look for a .Filter method.
something like this:

dtSearchSupport.Recordset.Filter = "Name = '" & strName & "' And Lastname = '" & strLastname & "'"

If you're using a QueryString, only return the records that match.

strSQL = "SELECT * FROM table WHERE name = '" & strName & "' AND Lastname = '" & strLastname & "'"

[Keithuk]

dtSearchSupport is a Data control. He's using the old method.

[The_Spike]

dtSearchSupport is a data source in Microsoft Visual Basic 6.0

[brucevde]

Post all of the code that performs the search and loads the listbox.

[The_Spike]

This is how it looks right now.

Dim strSearchstring as String
Dim strResult as String
Dim intRecordCount as Integer
Dim i as Integer
 
lstResult.Clear
 
strSearchstring = txtText
 
dtSearchSupport.RecordSet.MoveLast
dtSearchSupport.RecordSet.MoveFirst
intRecordCount = dtSearchSupport.RecordSet.RecordCount
 
strResult = dtSearchSupport.RecordSet.FindFirst ("Name='" & strSearchString & "'")
 
If dtSearchSupport.RecordSet.NoMatch Then
lstResult.AddItem "No posts were found"
Exit Sub
End If
 
Do Until i = intRecordCount
strResult = dtSearchSupport.RecordSet.FindNext ("Name='" & strSearchString & "'")
If dtSearchSupport.RecordSet.NoMatch Then
lstResult.AddItem "End of posts"
End If
lstResult.AddItem strResult
i = i + 1
Loop

But I get an errormsg on .FindFirst that says:

Compile error:
Expected Function or Variable

[Hack]

What kind of data controls are you using?

DAO or ADO?

[brucevde]

FindFirst and the other find methods are not functions.

Change these lines

strResult = dtSearchSupport.RecordSet.FindFirst ("Name='" & strSearchString & "'")

to

Call dtSearchSupport.RecordSet.FindFirst ("Name='" & strSearchString & "'")
or

dtSearchSupport.RecordSet.FindFirst "Name='" & strSearchString & "'"