Как в рекордсете ADO сделать поиск типа FindNext - VB

Find Method Example (VB)


This example uses the Recordset object<font color="green">'s Find method to locate and count the number of business titles in the Pubs database. The example assumes the underlying provider does not support similar functionality.


Public Sub Main()
    FindX
End Sub

Public Sub FindX()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim mark As Variant
Dim count As Integer

count = 0
cnn.Open "DSN=Pubs; Provider=MSDASQL; uid=sa; pwd=;"
rst.Open "SELECT title_id FROM titles", cnn, _
            adOpenStatic, adLockReadOnly, adCmdText

'</font> The <font color="blue">default</font> parameters are sufficient to search forward
<font color="green">' through a Recordset.

rst.Find "title_id LIKE '</font>BU%<font color="green">'"

'</font> Skip the current record to avoid finding the same row repeatedly.
<font color="green">' The bookmark is redundant because Find searches from the current
'</font> position.

Do <font color="blue">While</font> rst.EOF <> True    <font color="green">'Continue if last find succeeded.
    Debug.Print "Title ID: "; rst!title_id
    count = count + 1        '</font>Count the last title found.
    mark = rst.Bookmark      <font color="green">'Note current position.
    rst.Find "title_id LIKE '</font>BU%'<font color="green">", 1, adSearchForward, mark
Loop

rst.Close
cnn.Close
Debug.Print "</font>The number of business titles <font color="blue">is</font> " & <font color="blue">count</font>

<font color="blue">End</font> Sub