В этом упражнении Вы воспользуетесь DAO для передачи данных из БД Jet в
рабочую книгу Microsoft Excel.
> Создание ссылки на DAO в Microsoft Excel
> Добавление кода для извлечения данных
Public db As Database Public rs As Recordset
Поле | Значение |
Name |
Load Data |
Type |
Sub |
Scope |
Public |
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
> Тестирование приложения
В результате в рабочей книге должен отобразиться список сотрудников.
DAO и ODBC
Средствами DAO Вы можете подключаться к ODBC-совместимым источникам данных (например, к БД SQL Server) следующими способами: открыть источник данных напрямую, создать ссылку на него или воспользоваться средствами ODBCDirect. Имейте в виду, что RDO и ADO лучше подходят для разработки клиент-серверных приложений, чем DAO.