Листинг 1

Метод FindNext объектов DAO позволяет находить записи, отвечающие заданному критерию поиска. Он дает возможность просматривать весь набор записей, до тех пор пока вы не достигните конца файла. С помощью данного метода можно также осуществлять выборку только одной записи.

VB5, VB6

Dim sCriteria As String
‘
‘ Устанавливает курсор мыши в виде песочных часов
Screen.MousePointer = 11
‘ Очищает элемент управления ListBox
List1.Clear
‘
‘ Устанавливает критерий поиска
sCriteria = “Author Like “ & “‘“ & Text1.Text & “‘“
‘
If Check1.Value = 0 Then
      While rs.EOF = False
      rs.FindNext sCriteria
      If rs.NoMatch = False Then
                      List1.AddItem rs.Fields(“Author”)
      End If
      rs.MoveNext
      Wend
Else
      rs.FindNext sCriteria
      List1.AddItem rs.Fields(“Author”)
End If
‘
Text4.Text = List1.ListCount
‘
‘ Возвращает курсор мыши в исходное состояние
Screen.MousePointer = 0