[RESOLVED] Seach a Datagrid with Adodc

[Ag3nt0rang3]

Hi again. I've searched the forums but cant seem to find an answer. Im using a datagrid with an adodc to get data from an access table. What I want to do is search the datagrid for a specific name entered into a textbox. How can that be done?

Thanks in advance.

[dilettante]

You might do something like:

Private Sub Command1_Click()
    With Adodc1.Recordset
        .Find "[" & strTarget & "] = '" & Text1.Text & "'", , _
              adSearchForward, adBookmarkFirst
        If .EOF Then
            MsgBox "Not found"
        Else
            MsgBox "Found at record " & CStr(.AbsolutePosition)
        End If
    End With
End Sub

... where strTarget is the field to search. If practical just hardcode it in the search expression. This will move the "current row" in the datagrid however.

Alternatively you might use:

Private Sub Command2_Click()
    Dim rsCopy As ADODB.Recordset
    
    Set rsCopy = Adodc1.Recordset.Clone(adLockReadOnly)
    With rsCopy
        .Find "[" & strTarget & "] = '" & Text1.Text & "'", , _
              adSearchForward, adBookmarkFirst
        If .EOF Then
            MsgBox "Not found"
        Else
            MsgBox "Found at record " & CStr(.AbsolutePosition)
        End If
        .Close
    End With
End Sub

Searching all fields would require you to loop through the Recordset for each field of the desired type until you hit a match.

[Ag3nt0rang3]

Thanks that worked great