Архитектура 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 и щелкните кнопку ОК.
  5. > Добавление кода для извлечения данных

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

    Public db As Database Public rs As Recordset

  8. В меню Insert выберите команду Procedure, чтобы открыть диалоговое окно Add Procedure.
  9. Введите следующую информацию:


  10. Поле

    Значение

    Name

    Load Data

    Type

    Sub

    Scope

    Public

  11. Щелкните кнопку ОК.
  12. В процедуру 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 (он понадобится в следующем упражнении).
    5. DAO и ODBC

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



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