VPF::Программное сжатие баз данных

PsiMagistr

Дата 16.8.2011, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: нет
Всего: 1

Ребята, необходимо сжать и восстановить базу данных в формате Acsess 97. Наткнулся на:

Использование объекта JetEngine

Как мы уже знаем, объект JetEngine может быть использован для сжатия баз данных и обновления данных из кэша. Следующий пример показывает, как сжать базу данных Northwind.mdb в каталоге c:\data\ и создать новую сжатую копию Newnorth.mdb в каталоге d:\data\.

Код




const
  Provider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
  SrcMDB    = 'c:\data\northwind.mdb';
  DstMDB    = 'd:\data\newnorth.mdb';
 procedure TForm1.Button1Click(Sender: TObject);
 var
  JetEng : JetEngine;
  Src      : WideString;
  Dest    : WideString;
 begin
 // Создать экземпляр объекта JetEngine
  JetEng := CoJetEngine.Create;
 // Определить источник
  Src      := Provider + 'Data Source=' + SrcMDB;
 // и место назначения
  Dest    := Provider + 'Data Source=' + DstMDB;
 // Проверить, есть ли файл с копией, и если есть, то удалить его
 If FileExists(DstMDB) Then DeleteFile(DstMDB);
 // Сжать базу данных
  JetEng.CompactDatabase(Src, Dest);
 // Уничтожить созданный экземпляр объекта JetEngine
  JetEng := Nil;   
 end;

взято с  http://www.tdoc.ru/c/programming/delphi/de...ions-page4.html

Достав и подключив необходимые модули, сотворил.

Не совсем понятны некоторые вещи:

1)  JetEng := Nil;    Уничтожение объекта.  Как я понимаю это обнуление указателя. А где free freeAndNil или что то подобное?

2) База вроде сжимается, но Самое интересное НЕ происходит обновление ключей.

Т.е. был у нас ключ счетчик

1
2
3

Сжатие должно нормализовать счетчик, но этого не происходит. т.е. Мы удалили скажем 3 запись.  Если теперь добавить новую запись в таблицу положение счетчика должно быть таким.

1
2
3

а на деле

1
2
4

Может нужны дополнительные операции, кроме сжатия?

При попытке записать  штатное удаление объекта вместо   JetEng := Nil;  FreeAndNil(JetEng); происходит следующий фокус. Ошибок нет. Но любая операция следующая за этой просто игнорируется, даже если это просто вывод сообщения.

Это сообщение отредактировал(а) PsiMagistr - 16.8.2011, 13:22

--------------------

"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

(с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »