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

Использование ODBCDirect


В этом упражнении Вы средствами ODBCDirect извлечете данные из БД Northwind. Для имитации ODBC-совместимого источника данных в упражнении используется ODBC-драйвер Microsoft Access.

> Применение ODBCDirect в Microsoft Excel




  1. Переключитесь в окно Microsoft Excel.

  2. Создайте новую рабочую книгу.

  3. Запустите Visual Basic Editor.

  4. Добавьте в рабочую книгу новый модуль.

  5. Добавьте ссылку на библиотеку Microsoft DAO 3.5 Object Library.

  6. Добавьте следующие объявления в раздел General Declarations нового модуля:

    Public wsODBC As Workspace Public cnODBC As Connection Public rsODBC Recordset

  7. Создайте новую открытую процедуру и назовите ее LoadODBCData.

  8. Добавьте в процедуру LoadODBCData следующий код:

    Dim iCounter As Integer

    Set wsODBC = DBEngine.CreateWorkspace("ODBC_ws", "Admin", " ", dbUseODBC)

    Set cnODBC = wsODBC.OpenConnection ("New", dbDriverNoPrompt, False, "ODBC;DSN=nwind")

    Set rsODBC = cnODBC.OpenRecordset("Employees") Range("A1").Select iCounter = 1

    Do Until rsODBC.EOF

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

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

    rsODBC.MoveNext

    iCounter = iCounter + 1

    Loop

    rsODBC.Close

    cnODBC.Close

    wsODBC.Close

    > Тестирование приложения

    1. Закройте Visual Basic Editor и сохраните рабочую книгу под именем Ex2.xls.

    2. В меню Tools, Macro выберите команду Macros, чтобы открыть диалоговое окно Macro.

    3. Выберите из списка пункт LoadODBCData и щелкните кнопку Run. В результате Вы должны увидеть в рабочей книге список сотрудников.

    4. Сохраните рабочую книгу и закройте Microsoft Excel.



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