Использование
Access в качестве сервера автоматизации
Все примеры
предыдущих разделов демонстрировали работу Microsoft Access в качестве клиента
автоматизации. Но это приложение является одновременно и сервером автоматизации,
т. е. Access может предоставлять объекты своей объектной модели для использования
другим приложениям. Это значит, что другие приложения Microsoft Office могут
программно управлять объектами Access. Ниже приведен пример, когда из приложения
Excel открывается база данных Access и данные из таблицы экспортируются в активный
лист рабочей книги Excel.
Dim
objAccess As Access.Application
Dim
db As Database
Dim
rst As Recordset
Dim
i As Integer, j As Integer
Set
objAccess = GetObject("D:XBopeu.mdb")
Set
db = objAccess.CurrentDb
Set
rst = db.OpenRecordset("Квартальные обороты по товарам")
'
заполняем 1-ю строку заголовками столбцов таблицы
For
i = 1 То rst.Fields.Count - 1
Cells(1,
i) = rst.Fields(i).name
Next
i
'
переносим все остальные строки таблицы
j
= 2
rst.-MoveFirst
Do Until rst.EOF
For
i = 1 To rst.Fields.Count - 1
Cells
(j, i) = IlfdsNull (rst. Fields (i) ), 0, rst. Fields (i) )
Next
i
j
= j + 1
rst.moveNext
Loop
objAccess.Close
Set
obAccess = Nothing
Перед тем
как создавать эту функцию, необходимо создать две ссылки в редакторе VBA Excel:
на библиотеки Microsoft Access 10.0 Object Library и Microsoft DАО 3.6 Object
Library. Создав объект Access .Application, можно получить доступ ко всём остальным
объектам Access: таблицам, формам, отчетам. В данной программе сначала создается
объект Recordset из нужной таблицы, а затем в цикле создается строка заголовков
полей и переносятся все данные. На рис. 15.36 представлена результирующая таблица
запроса "Квартальные обороты по товарам" и результат ее экспорта в
Excel.
![](37.gif)
Рис. 15.36.
Таблица "Доходы за квартал" и результат ее экспорта в Excel
В качестве
сервера автоматизации Microsoft Access применяется обычно для создания мастеров,
генерирующих приложения баз данных в Access, при этом можно использовать функции
CreateFormf), CreateControl(), CreateReportControl().
Содержание раздела
|