Виталий Тихвинский
Связь с Базой Данных через указатели

Для связи с Базой Данных, необходимо, в Visual Basic и VBA for Access, объявить директиву компилятора оператором Option Compare Database.
В любом VBA необходимо в меню Сервис-ссылки включить библиотеку Microsoft DAO 3.5 object library.
Далее действуем через объектные переменные согласно примеру:

‘объявление переменных для связи с Б.Д.

Dim db As Database, r As Recordset


‘Указатель на Б.Д.

Set db = OpenDatabase("path_to_database.mdb")

‘Указатель на таблицу Б.Д.

Set r = db.OpenRecordset("Таблица1")

 
'перейти на первую запись

r.MoveFirst
 

‘а, так можно добавить новую запись в таблицу

r.addnew


'цикл опроса записей

Do While Not r.EOF

‘доступ к полю для чтения

s = r.Fields("Имя").Value

‘доступ к полю для записи:

‘разрешить редактировать теущую запись

r.Edit 

 ‘изменение значение поля в текущей записи

r.Fields("Имя").Value =s

 

‘запоминаем изменения

r .Update

'перейти на последующую запись

r.MoveNext

Loop


‘закрыть указатель на таблицу Б.Д.

r.Close

‘закрыть указатель на Б.Д.

db.Close