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



Использование 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.



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