3.10.2. Использование Microsoft Word при работе с Access

Существуют два управляющих объекта: Word.Basic, используемый функ­цией CreateObject (аналогичный объекту Excel.Application), и Word­Ba­sic, используемый при работе в присоединенной или в свободной рамке объ­екта.

Пример использования объекта Word.Basic

Private dc As Object 'объявление объектной переменной ‑ документ Word

Private bm As String 'объявление переменной со строкой с закладкой

Set dc=CreateObject(“Word.Basic“) ‘создание объекта

dc.FileOpen(“C:\My Documents\bd.doc“) ‘открытие файла BD.doc с документом

bm=dc.Getbookmark$(“Глава4“) ‘чтение строки с закладкой “Глава4“

?bm ‘вывод строки с закладкой

dc.FileClose(1) ‘закрытие файла

Set dc=Nothing ‘удаление объекта с документом

Пример использования встроенного объекта с документом Word. На форме “Форма1” разместим объект в сводной рамке “СвободныйOLE” и внед­рим документ “bd.doc”.

Private dc As Object 'объявление объектной переменной ‑ документ Word

Private ct As Control 'объявление объектной переменной

Private bm As String 'объявление переменной со строкой с закладкой

Set ct=Forms![Форма1]!СвободныйOLE0 ‘открытие объекта в свободной рамке

ct.Action=7 ‘активизация объета

Set dc=ct.Object.Application.Wordbasic ‘открытие приложения Wordbasic

bm=dc.Getbookmark$(“Глава4“) ‘чтение строки с закладкой “Глава4“

?bm ‘вывод строки с закладкой

dc.EditGoTO “Глава4“ ‘переход на строку с закладкой

dc.Insert “Глава4. СУБД Access“ ‘изменение строки заголовка главы

dc.FileClose(1) ‘закрытие файла

Set dc=Nothing ‘удаление объекта с документом

3.10.3. Добавление ActiveX‑элементов

ActiveX‑элементы размещаются с использованием кнопки Другие элементы или внедряются в свободную или присоединенную рамку объ­екта. Подключение ActiveX‑элементов (внесение их описания в реестр Windows) осуществляется командой Сервис/Элементы ActiveX/Под­клю­чить. При удалении с диска ActiveX‑элемента его нужно удалить и из реестра командой Сервис/Элементы ActiveX/Отключить.

3.10.4. Использование Access в качестве сервера

Рассмотрим порядок использования Acсess на примере Excel.

1. Закроем Access и откроем Excel.

2. Для вызова Visual Basic выполним команду Сервис/Макрос/ Редак­тор Visual Basic.

3. Выполним команду Insert/Macro/Module (Вставка/Макрос/Мо­дуль) для создания модуля.

4. Для подключения библиотек Access выполним команду Tools/Re­fe­rences (Сер­вис/Ссыл­­ки) и далее отметим нужные библиотеки: Microsoft Access 10.0, Microsoft DAO 3.6 и др.

5. Для просмотра объектов используется команда View/Object Brow­ser (Вид/Просмотр объектов) и выбирается библиотека Access.

6. Введем в модуль объявления объектных переменных:

Dim ap As Object ‘приложение

Dim db As Database ‘база данных

Dim rs As Recordset ‘набор данных

7. Откроем окно отладки (^G); последовательно наберем в этом окне и выполним следующие команды:

Set ap=CreateObject(“Access.Application.10“) ‘открытие приложения Access

ap.OpenCurrentDatabase (“D:\PLEHEV\bd\prim\access\Выпуск изделий.mdb“)

Set db=ap.CurrentDB ‘открытие базы данных “Выпуск изделий”

Set rs=db.OpenRecordset(“Изделия“) ‘открытие таблицы “Изделия”

rs.MoveFirst ‘перемещение на первую запись таблицы

?rs.Fields([“Код изделия“]),rs.Fields([“Наименование изделия“]) ‘вывод в окно

set ap=Nothing ‘закрытие экземпляра приложения Access

Access широко используется в качестве сервера при разработке программ на языках программирования Visual Basic, VBScript [5], Delphi, C++ Builder [6 ], Microsoft Visaul C++.