• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

  • Автор темы Автор темы Jesus Antichrist
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
J

Jesus Antichrist

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

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

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

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab