Использование DAO из Microsoft WordUsing DAO from Microsoft Word

Свойства, объекты и методы объекта доступа к данным (DAO) можно использовать так же, как и для ссылок и использования свойств, объектов и методов Word.You can use Data Access Objects (DAO) properties, objects, and methods the same way that you reference and use Word properties, objects, and methods. После установки ссылки на библиотеку объектов DAO можно открыть базы данных, разработать и запустить запросы, чтобы извлечь набор записей и вернуть результаты обратно в Word.After you establish a reference to the DAO object library, you can open databases, design and run queries to extract a set of records, and bring the results back to Word.

Создание ссылок на DAOReferencing DAO

Прежде чем можно будет использовать DAO, необходимо установить ссылку на библиотеку объектов DAO.Before you can use DAO, you must establish a reference to the DAO object library. Выполните указанные ниже действия, чтобы установить ссылку на библиотеку объектов DAO.Use the following steps to establish a reference to the DAO object library.

  1. Переключитесь в редактор Visual Basic.Switch to the Visual Basic Editor.

  2. В меню Сервис выберите пункт Ссылки.On the Tools menu, click References.

  3. В поле Доступные ссылки выберите объектная библиотека Microsoft DAO 3,6.In the Available References box, select Microsoft DAO 3.6 Object Library.

Следующий пример открывает базу данных Northwind и вставляет элементы из таблицы Поставщики в активный документ.The following example opens the Northwind database and inserts the items from the Shippers table into the active document.

Sub UsingDAOWithWord() 
 Dim docNew As Document 
 Dim dbNorthwind As DAO.Database 
 Dim rdShippers As Recordset 
 Dim intRecords As Integer 
 
 Set docNew = Documents.Add 
 Set dbNorthwind = OpenDatabase _ 
 (Name:="C:\Program Files\Microsoft Office\Office11\" _ 
 & "Samples\Northwind.mdb") 
 Set rdShippers = dbNorthwind.OpenRecordset(Name:="Shippers") 
 For intRecords = 0 To rdShippers.RecordCount - 1 
 docNew.Content.InsertAfter Text:=rdShippers.Fields(1).Value 
 rdShippers.MoveNext 
 docNew.Content.InsertParagraphAfter 
 Next intRecords 
 rdShippers.Close 
 dbNorthwind.Close 
End Sub

Используйте метод openDatabase для подключения к базе данных и ее открытия.Use the OpenDatabase method to connect to a database and open it. После открытия базы данных используйте метод OpenRecordset , чтобы получить доступ к таблице или запросу для результатов.After opening the database, use the OpenRecordset method to access a table or query for results. Для перемещения по набору записей используйте метод Move .To navigate through the recordset, use the Move method. Чтобы найти определенную запись, используйте метод Seek .To find a specific record, use the Seek method. Если требуется только подмножество записей, а не весь набор записей, используйте метод CreateQueryDef для создания настраиваемого запроса для выбора записей, соответствующих условиям.If you need only a subset of records instead of the entire recordset, use the CreateQueryDef method to design a customized query to select records that meet your criteria. После завершения работы с базой данных рекомендуется закрыть ее с помощью метода Close для сохранения памяти.When you finish working with a database, it is a good idea to close it using the Close method, to save memory.

ПримечанияRemarks

Для получения дополнительных сведений об определенном объекте DAO, методе или свойстве обратитесь к сведениям о объектах доступа к данным на сайте MSDN.For more information about a specific DAO object, method, or property, see the information about Data Access Objects on MSDN.

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.