Преобразование кода DAO в ADO

Область применения: Access 2013, Office 2013

Примечание.

Библиотеки DAO до версии 3.6 не предоставляются и не поддерживаются в Access.

Сопоставление объектов DAO с ADO

DAO	ADO (ADODB)	Примечание
DBEngine	Нет
Workspace	Нет
Database	Connection
Recordset	Recordset
Тип "Динамический набор"	Keyset	Извлекает набор указателей на записи в наборе записей.
Тип "Статический набор"	Static	Оба извлекают полные записи, но набор записей Static можно обновлять.
Табличный тип	Keyset с параметром adCmdTableDirect.
Field	Field	При ссылке на набор записей.

DAO

Открытие набора записей

 Dim db as Database
 Dim rs as DAO.Recordset
 Set db = CurrentDB()
 Set rs = db.OpenRecordset("Employees")

Изменение набора записей

 rs.Edit 
 rs("TextFieldName") = "NewValue"
 rs.Update

ADO

Открытие набора записей

 Dim rs as New ADODB.Recordset
 rs.Open "Employees", CurrentProject.Connection, _
         adOpenKeySet, adLockOptimistic

Изменение набора записей

 rs("TextFieldName") = "NewValue" 
 rs.Update

Примечание.

Перемещение фокуса с текущей записи с помощью методов MoveNext, MoveLast, MoveFirst, MovePrevious без предварительного использования метода CancelUpdate неявно запускает метод Update.

Об участниках

Ссылка, предоставляемая сообществом UtterAccess. UtterAccess — это премиальный вики-портал и форум, посвященный Microsoft Access.

• Выбор между DAO и ADO