Применение Find-методов для поиска записи

Ранее было показано, как осуществлять перемещение по базе данных для просмотра записей. Однако большинству пользователей необходимо иметь возможность не только просматривать запись за записью в базе данных, но и осуществлять поиск записи, отвечающий какому-либо условию. Чтобы найти определенную запись, можно воспользоваться методами Find для объектов - наборов записей типа dynaset и snapshot и методом Seek - для наборов записей типа table.

Методы Find используются для поиска в наборах записей типа dynaset и snapshot. В Visual Basic поддерживается четыре метода Find:

Метод FindFirst осуществляет поиск первой записи, удовлетворяющей условию.

Метод FindLast осуществляет поиск последней записи, удовлетворяющей условию.

Метод FindNext осуществляет поиск следующей записи, удовлетворяющей условию.

Метод FindPrevious осуществляет поиск предыдущей записи, удовлетворяющей условию.

При использовании любого из Find методов необходимо определить условие поиска. Обычно условием поиска является равенство имени поля какому-нибудь значению. Например, следующий фрагмент кода показывает, как найти в таблице первую запись, в которой поле «Фамилия» равно заданному в окне Text3.Text:

Dim Criteriy As String, Poisk As String

Poisk = Text3.Text

Criteriy = "фамилия = " & "'" & Poisk & "'"

Data1.Recordset.FindFirst (Criteriy)

Добавьте к своему проекту еще кнопку «поиск» и текстовое окно, в котором вы будете задавать критерий поиска. Результат поиска должен выводиться в текстовые поля text1, text2 и text3.

Свойству Visible для элемента управления Data присвойте значение False, тогда на этапе выполнения программы окно Data будет не видимо и его нельзя будет использовать для диалогового доступа к базе данных.

О кончательный вариант проекта: