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

   ---