СУБД Access архивирование

[Jesus Antichrist]

Базы данных Access имеют неприятную особенность- увеличиваться в размерах, даже если не добавляются данные. Со временем БД настолько увеличиваются в размерах, что это становиться проблемой (начинаются "глюки"). Единственная возможность держать файл БД в рамках - это использования мастера сжатия и восстановления. Пользователи выполнять подобные операции не в состоянии. Может кто-нибудь сталкивался с подобной проблемой, и существуют процедуры для автоматического сжатия и восстановления БД (по событию, или по времени)

 

[Yurich]

Я организовал таким образом:

Public Sub CompactBase()
If Dir(App.Path & "\db1.mdb ") <> "" Then
Kill App.Path & "\db1.mdb"
End If
DBEngine.CompactDatabase strDBQ, App.Path & "\db1.mdb" ' strDBQ - хранит путь к вашей БД
FileCopy App.Path & "\db1.mdb", strDBQ
MsgBox "Сжатие базы закончено.", vbInformation, "Внимание!"
End Sub

Процедура длительная( в зависимости от размер базы).
Поэтому сделал небольшую проверку на дату сжатия.
И сжатие проводится в начале месяца.