Табличный объект Recordset представляет базисную таблицу в базе данных. Все поля и записи этой таблицы включаются в объект Recordset, созданный на ее основе. В рабочем пространстве Microsoft Jet объект Recordset этого типа можно использовать для добавления, удаления и модификации записей в таблице. Вы можете открыть табличный объект Recordset по любой базисной таблице в базе данных Microsoft Jet, но не по таблицам в источниках данных ODBC или подключенным таблицам. Кроме того, в базах данных, доступных через устанавливаемые драйверы ISAM (FoxPro, dBASE или Paradox) табличный объект Recordset позволяет открывать таблицы без подключения их к Вашей базе.

Свойство RecordCount табличного объекта Recordset возвращает число записей в таблице. Вы можете получить значение свойства RecordCount сразу после того, как откроете набор записей, и Вам не понадобится метод MoveLast для перехода в конец набора записей.

Табличный объект Recordset способен использовать индексы, определенные для таблицы. Создав табличный объект Recordset, Вы можете присвоить свойству Index набора записей имя индекса, определенного для таблицы, а затем ? методом Seek ? найти нужные записи по критерию сортировки, заданному индексом.

Примечание: Нельзя открыть табличный объект Recordset по таблице, подключенной из внешнего источника данных. В этом случае следует открыть внешний источник данных методом OpenDatabase и только потом открыть табличный объект Recordset.

Чтобы создать табличный объект Recordset, укажите константу dbOpenTable как значение аргумента тип метода OpenRecordset. В следующем примере мы создаем табличный объект Recordset и используем метод Seek для поиска конкретной записи; найденная запись становится текущей.

Function ReturnEmployeesRecord(strKey As String) As Boolean
═════Dim dbs As Database, rst As Recordset
═════Const conPath As String = "C:\Program Files\Microsoft Oftice\Office\Samples\Northwind.mdb"

═════On Error GoTo Err_ReturnEmployeesRecord
═════? получаем ссылку на базу данных Northwind
═════Set dbs = OpenDatabase(conPath)
═════? открываем набор записей по таблице Employees
═════Set rst = dbs. OpenRecordset("Employees", dbOpenTable)
═════? устанавливаем значение свойства Index набора записей
═════rst. Index = "LastName"
═════? выполняем операцию поиска
═════rst. Seek "=", strKey
═════? что-нибудь найдено?
═════If rst.NoMatch = False Then
══════════? выводим значения полей в первой найденной записи
══════════Debug. Print rst!EmployeelD, rst!FirstName & " " _
═══════════════& rst!LastName, rst!Title
══════════ReturnEmployeesRecord = True
═════Else
══════════ReturnEmployeesRecord = False
═════End It

Exit_ReturnEmployeesRecord:
═════? закрываем набор записей и базу данных
═════rst .Close
═════dbs, Close
═════Exit Function

Err_ReturnEmployeesRecord:
═════MsgBox "Error " & Err & ": " & Err. Description
═════ReturnEmployeesRecord = False
═════Resume Exit_ReturnEmployeesRecord
End Function

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997