Архитектура Microsoft Windows для разработчиков

DAO и Microsoft Excel

В этом упражнении Вы воспользуетесь DAO для передачи данных из БД Jet в

рабочую книгу Microsoft Excel.

> Создание ссылки на DAO в Microsoft Excel

Запустите Microsoft Excel.

В меню Tools, Macro выберите команду Visual Basic Editor. Будет запущен Office 97 Visual Basic Editor.

В меню Tools Visual Basic Editor щелкните команду References.

Выберите пункт Microsoft DAO 3.5 Object Library и щелкните кнопку ОК.

> Добавление кода для извлечения данных

В меню Insert щелкните команду Module, чтобы добавить в приложение но вый модуль.

В разделе General Declaration добавьте следующие объявления:

Public db As Database Public rs As Recordset
В меню Insert выберите команду Procedure, чтобы открыть диалоговое окно Add Procedure.

Введите следующую информацию:

Поле	Значение
Name	Load Data
Type	Sub
Scope	Public

Щелкните кнопку ОК.

В процедуру LoadData добавьте следующий код:
Dim iCounter As Integer Dim iRecordNum As Integer

Set db = OpenDatabase("C:\WA\Practice\Nwind.mdb")

Set rs = db.OpenRecordset("Employees")

rs.Movelast

iRecordNum = rs.RecordCount

rs.MoveFirst

Range("A1").Select

For iCounter = 1 To iRecordNum

Cells(iCounter, 1).Value = rs.Fields("FirstName")

Cells(iCounter, 2).Value = rs.Fields("LastName")

rs.MoveNext

Next iCounter

rs.Close

db.Close

> Тестирование приложения
1. Закройте Visual Basic Editor и сохраните рабочую книгу Excel под именем Ex1.xls.
2. В меню Tools, Macro выберите команду Macros, чтобы открыть диалоговое окно Macros.
3. Выберите в списке пункт LoadData и щелкните кнопку Run.
  В результате в рабочей книге должен отобразиться список сотрудников.
4. Сохраните изменения и закройте рабочую книгу. Не закрывайте Microsoft Excel (он понадобится в следующем упражнении).