Search Button for a database ..

[tjbvo]

I have created an ADO database (VB6).
Everything is working fine, but I need to add a Search Button, to search for existing records, and then to display (move to ) the relevant record using the same database.

Attached please find the code I am using, but it has faults ??

Private Sub cmdSearch_Click()
'The % means all Records that starts with example an A must be Find.
datPrimaryRS.Recordset.Close
datPrimaryRS.Recordset.Source = "Select * from [HRM] where Persal No like " & txtSearch.Text & " order by Persal No"
datPrimaryRS.Recordset.Open

If datPrimaryRS.MaxRecords = 0 Then
datPrimaryRS.Recordset.Close
datPrimaryRS.RecordSource = "Select * from [HRM] order by Persal No"
datPrimaryRS.Recordset.Open
If MsgBox("No Records were Found. Find Again...", vbYesNo + vbExclamation, "No Records...&quot = vbYes Then
chkSearch.Value = Checked
txtSearch.SetFocus

Else
chkSearch.Value = Unchecked
txtSearch.Text = &quot;<<Type Name Here>>&quot;
End If

Else: MsgBox &quot;Records Found...&quot;, vbInformation, &quot;Found...&quot;
chkSearch.Value = Unchecked
txtSearch.Text = &quot;<<Type Name Here>>&quot;
End If

End Sub

Thanks
tjbvo (Nexes)

 

[Nagrom]

What exactly is the problem you are having?

 

[zaichik]

The only thing that leaps out at me is that if your field name has a space in it, you must enclose it in brackets, like this: [Persal No].

But yes, what is the exact problem?

Regards,

z.

 

[CCLINT]

Use the rs.Find method instead of opening and closing a recordset several times...

It may be best to use a clone recordset and then set the main recordset's bookmark property to the clone's bookmark if a record was found.