DAO и Microsoft Excel



DAO и Microsoft Excel

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

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

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

  1. Запустите Microsoft Excel.
  2. В меню Tools, Macro выберите команду Visual Basic Editor. Будет запущен Office 97 Visual Basic Editor.
  3. В меню Tools Visual Basic Editor щелкните команду References.
  4. Выберите пункт Microsoft DAO 3.5 Object Library и щелкните кнопку ОК.

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

  1. В меню Insert щелкните команду Module, чтобы добавить в приложение но вый модуль.
  2. В разделе General Declaration добавьте следующие объявления:

    Public db As Database Public rs As Recordset

  3. В меню Insert выберите команду Procedure, чтобы открыть диалоговое окно Add Procedure.


  4. Введите следующую информацию:
Поле Значение
Name Load Data
Type Sub
Scope Public
  1. Щелкните кнопку ОК.
  2. В процедуру 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 (он понадобится в следующем упражнении).



Содержание раздела