VPF::Надо сжать БД Access - Форум программистов

alcogol

Дата 10.4.2008, 17:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


  V:=CreateOleObject('jro.JetEngine');
  try
      DM.EncryptHeader(fn,False);
      V.CompactDatabase(
      'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=xxx;Data Source='+FileName+';Mode=Share Exclusive;Jet OLEDB:Encrypt Database=True;',
      'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=xxx;Data Source='+NewFileName+';Mode=Share Exclusive;Jet OLEDB:Encrypt Database=True;');
  except
     on E:Exception do
     begin
       ShowMessage('Ошибка при сжатии данных: '+E.message);
       exit;
     end;
  end;

БД Access
Access выдаёт диалог про то что БД создана в предыдущей версии Access, спрашивает открыть или преобразовать....
уродует БД исходную, она становится несколько больше и после этого уже не открывается

Добавлено через 4 минуты и 23 секунды
причём со структурой БД ничего не происходит внешне, вроде всё ок. Помогите новичку

Rodman

Дата 10.4.2008, 20:44 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

http://forum.vingrad.ru/index.php?show_typ...%82%D0%B8%D0%B5
http://forum.vingrad.ru/index.php?show_typ...c=20747&hl=
http://forum.vingrad.ru/index.php?show_typ...ic=9548&hl=

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

CRM с функцией АвтоОбзвона

Лотереи мира

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