Работа с ODBC

6 7 8 9 10 11 12

Если это необходимо, то выполнить установку ODBC драйвера для вашей СУБД. Возможно для этого понадобится установка клиентского ПО на ваш персональный компьютер. Все работы выполняются с правами администратора.
В меню «Пуск/Настройка/Панель управления/Администрирование» открыть иконку Источники данных (ODBC) Открыть закладку «Пользовательский DSN» и нажать кнопку «Добавить». В появившемся окне выбрать драйвер Microsoft Access Driver (в зависимости от версии может быть - *.mdb, может быть *.mdb, *.accdb) В поле имя источника данных набрать “db_stud”. Если уже есть источник с подобным именем, то модифицировать имя, задав индекс (1,2 и т.п.). В разделе «База данных» нажать кнопку выбрать и в диалоговом окне выбрать базу, например «N:\stud.mdb» (может быть расширение accdb). Если Вы не имеете администраторских прав и настраиваете ODBC источник под чужими правами, то в разделе «База данных» необходимо набрать непосредственный адрес источника данных: \\fmf\...- Завершив указанные выше операции, нажать кнопку ОК.
На диске N:\ средствами МS Excel cоздать файл db1.xls. Открыть созданный файл, добавить новый лист и назвать его «stud». Перейти в режим редактирования VBA. В меню Tools\References выбрать библиотеку Microsoft ActiveX Data Objects 2.8 Library. Добавить новый модуль и в нем набрать процедуру db_stud:

Sub db_stud()

Dim MyCon As New Connection

Dim StrSQL As String

Dim rs As Recordset

StrSQL = "select * from stud"

MyCon.Open "stud_base"

Set rs = New Recordset

rs.Open StrSQL, MyCon, adOpenForwardOnly, adLockReadOnly, adCmdText

Workbooks("db1.xls").Worksheets("stud").Activate

i = 1

Range("A1:G10").Select

Selection.ClearContents