Листинг 2

ADO позволяет заменить пять методов поиска объектов DAO на один метод Find. Данный пример демонстрирует, как продублировать все функциональные возможности метода FindNext. Используйте такой же подход при обновлении каждого из оставшихся четырех методов поиска.

VB5, VB6

Dim sCriteria As String
On Error Resume Next
‘
sCriteria = “Author Like “ & “‘“ & Text2.Text & “‘“
‘
‘ Устанавливает курсор мыши в виде песочных часов
Screen.MousePointer = 11
‘ Очищает элемент управления ListBox
List2.Clear
‘
If Check1.Value = 0 Then
      While adors.EOF = False
      adors.Find sCriteria, adSearchForward
      List2.AddItem adors.Fields(“Author”)
      adors.MoveNext
      Wend
Else
      adors.Find sCriteria, adSearchForward
      List2.AddItem adors.Fields(“Author”)
      adors.MoveNext
End If
‘
‘ Получает количество записей
Text5.Text = List2.ListCount
‘
‘ Возвращает курсор мыши в исходное состояние
Screen.MousePointer = 0