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

Тема в разделе "Visual Basic", создана пользователем Jesus Antichrist, 14 июл 2007.

Статус темы:
Закрыта.
  1. Jesus Antichrist

    Jesus Antichrist Гость

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

    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

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

Поделиться этой страницей