VB 6.0: доступ к данным с помощью технологии ADO

Листинг 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

Возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует