VPF::Сжатие БД Access - Форум программистов

altarasjuk

Дата 2.6.2003, 10:25 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 331
Регистрация: 7.5.2003
Где: Харьков

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

Привет!
Подскажите как из делфи или через внешние библиотеки сжать БД access.

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

Правда - изобретение маньяков: колет глаза и режет уши.

altarasjuk

Дата 3.6.2003, 12:15 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 331
Регистрация: 7.5.2003
Где: Харьков

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

Усё народ, разобрался, вот для тех кто не знает кусок кода:

Код


Const
   Provider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
Var
  tmpFile: String;
  jro: Variant;
  Src,Dest : WideString;
begin
  Src:= Provider + 'Data Source=' + fFileName;
  tmpFile:= GetTmpFileName();
  Dest := Provider + 'Data Source=' + tmpFile;
  if fPassword<>'' then begin
     Src := Src + ';Jet OLEDB:Database Password=' + fPassword;      //p1
     Dest := Dest + ';Jet OLEDB:Database Password=' + fPassword; //p2
  end;

  jro:= CreateOleObject('jro.JetEngine');
  try
    jro.CompactDatabase(Src,Dest);
  finally
    jro:= 0;
  end;
  DeleteFile(PChar(fFileName));
  RenameFile(tmpFile, fFileName);

fFileName - Полное имя файла текущей БД
fPassword - Пароль к БД (если его нет, то строки p1 и p2 не нужны)

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

Правда - изобретение маньяков: колет глаза и режет уши.

altarasjuk

Дата 3.6.2003, 12:18 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 331
Регистрация: 7.5.2003
Где: Харьков

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

Забыл.... В юзезы надо ComObj, а GetTmpFileName() метод, для генерации уникального имени файла(хотя из названия понятно...

)

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

Правда - изобретение маньяков: колет глаза и режет уши.

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