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


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 (он понадобится в следующем упражнении).

DAO и ODBC

Средствами DAO Вы можете подключаться к ODBC-совместимым источникам данных (например, к БД SQL Server) следующими способами: открыть источник данных напрямую, создать ссылку на него или воспользоваться средствами ODBCDirect. Имейте в виду, что RDO и ADO лучше подходят для разработки клиент-серверных приложений, чем DAO.




Начало  Назад  Вперед



Книжный магазин