- Код: Выделить всё
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String
Set db = DAO.OpenDatabase (App.Path & "\db.mdb")
sSQL = "SELECT * FROM Orders;"
Set rs = db.OpenRecordset (sSQL)
ну и так далее.
Еще в программе используется сжатие базы
- Код: Выделить всё
DBEngine.CompactDatabase PutBaza, App.Path & "\Temp\new.mdb"
Соответственно программа не работает на машинах без Microsoft DAO 3.50 Objects Library. В инсталлятор вложен файл DAO350.DLL (конечно регистрируется) и MSJTER35.DLL. Все равно этого не достаточно, ошибка «Run-time error ‘3633’ Нет библиотеки MSJTER35.dll». Проблема решается установкой полного комплекта DAO35 с сайта Майкрософт, но данный пакет в пять раз больше самой проги. Хотелось бы инсталлятор минимального размера. Подскажите, на какие dll обратить внимание. Проги определяющие используемые библиотеки не помогли.