В этом упражнении Вы средствами ODBCDirect извлечете данные из БД Northwind. Для имитации ODBC-совместимого источника данных в упражнении используется ODBC-драйвер Microsoft Access.
> Применение ODBCDirect в Microsoft Excel
Public wsODBC As Workspace Public cnODBC As Connection Public rsODBC Recordset
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
> Тестирование приложения