serch database

[planethax]

Ok, I have a Database in my app folder in a folder called database
the data base is called dtc and in it I have a table called Dtc
the table has 2 columns, DTC and Description
The DTC column is filled with Dtc numbers like P0001 P0002 etc and the description gives a description of each Dtc

On my frmDtcSearch form I have a listview called lvDtcSearch
A command button called cmdDtcSearch
A textbox called txtDtcSearch
and ADODC1

I am trying to make it so when I type in lets say P0301, and click button it will search database, then add the search (P0301) and Description from database to the listview.

Can someone get me started with this?
Thanx

[Hack]

I'm not real familiar with using bound data controls, but I think there is a Find method associated with it.

Try

Adodc1.Recordset.Find "P0301"

[planethax]

I have tried that but
"P0301" Variable not defined

[Hack]

P0301 should not be a variable, it should be the thing that you are looking for.

[planethax]

Ok this is what I came up with

Private Sub cmdDtcSearch_Click()


Dim search As String
Dim Clientname As String
search = txtDtcSearch.Text
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * from Dtc WHERE dtc LIKE '%" & search & "%'"
Adodc1.Refresh
        Dim lCt As Long


        lCt = hyperDtcSearch.Count

If Adodc1.Recordset.EOF Then
If txtDtcSearch.Text = "P0001" Then

txtDtcSearch.Text = ""
MsgBox "Input Valid Dtc (P****) in text box"
Else
hyperDtcSearch.ItemAdd lCt, "", txtDtcSearch.Text, 6, 3
hyperDtcSearch.SubItemsAdd lCt, 1, "No Matching DTCs Found"
End If
Else
Adodc1.Recordset.MoveFirst
End If


Do Until Adodc1.Recordset.EOF


hyperDtcSearch.ItemAdd lCt, "", Adodc1.Recordset.Fields(0), 6, 3
hyperDtcSearch.SubItemsAdd lCt, 1, Adodc1.Recordset.Fields(1)




Adodc1.Recordset.MoveNext
Loop
If Adodc1.Recordset.EOF And Adodc1.Recordset.RecordCount > 1 Then
MsgBox "Records Found"
End If
End Sub

The only issue I am having is with this line
txtDtcSearch.Text = ""

How do I tell if the text box is empty?

thanx

[Hack]

'two ways

If txtDtcSearch.Text = vbNullString Then
   Msgbox "Nothing to search for"
End If
'or check the reverse

If txtDtcSearch.Text <> vbNullString Then
   'place search code here
Else
   Msgbox "Nothing to search for"
End If

[planethax]

If txtDtcSearch.Text = vbNullString Then

thank you very much,
Now how would I check if the textbox has 5 characters in it
(P0000 etc)

[ganeshmoorthy]

If Len(Trim(txtDtcSearch.Text)) = 5 Then
    MsgBox "txtDtcSearch is having 5 characters in it"
End If

[Hack]

If Len(Trim(txtDtcSearch.Text)) = 5 Then
    MsgBox "txtDtcSearch is having 5 characters in it"
End If

And I would put this in the Change event so that it would fire each time a change was made.

[zeezee]

And I would put this in the Change event so that it would fire each time a change was made.

How about Validate event?

[Hack]

Change will fire instantly. Validate will fire when it loses focus.

[zeezee]

Oh yeah, thats right, I thought OP wanted to validate if there is 5 characters. My mistake. Sorry

[Hack]

Oh yeah, thats right, I thought OP wanted to validate if there is 5 characters. My mistake. Sorry

No reason to be sorry. He does want to validate that. It is just a matter of the best place to put the validation code. You could use the validate event, and it would work. I just think that knowing instantly would be preferable to knowing after the fact.

However, in some cases, because of application requirements, my approach doesn't work, and yours would.

We are all about options. Let the OP decide which way he wants to go.