| |
Программное сжатие базы данных |
|
| |
При работе с Базой Данных вы записываете, удаляете, редактируете свои данные и объем вашей БД постепенно растет. Остается он неизменным, даже если вы удалите все данные, т.к. удаленные записи машина Jet превращает в пробелы (грубо говоря). Для удаления этих пробелов время от времени проводят ''сжатие'' БД и она принемает оптимальный объем. Код приводится на примере БД Biblio.mdb
'Закрываем БД
Data1.Database.Close
'Вызываем метод CompactDatabase объекта DBEngine
'для сжатия, и сжимаем БД переименовывая ее
DBEngine.CompactDatabase "c:\biblio.mdb", "c:\new.mdb"
'Уничтоваем старую БД
Kill "c:\biblio.mdb"
'Присваиваем полученной, 'сжатой' БД
'ее прежнее имя
Dim OldDB
Dim NewDB
OldDB = "c:\new.mdb"
NewDB = "c:\biblio.mdb"
Name OldDB As NewDB
'Источник: http://www.relib.com/code.asp?id=402
|
|
| |
|
|
|
|