Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Упаковка таблиц в BDE
   Категория: Базы данных
  Пароль на ADO
   Категория: Базы данных
  Получение списка всех сетевых дисков из Delphi
   Категория: Интернет и Сети
  Упаковать *.mdb-файл
   Категория: Базы данных
  Как показать balloon tooltips в программе
   Категория: Приложение
  Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
   Категория: Компоненты
  Cколько файлов есть в определённой папке
   Категория: Файловая система
  Сохраняем Bitmap в поле dbase
   Категория: Базы данных

Молодые шлюхи Коврова 2020 извлекают у вас готовность насладиться с ними групповым сексом? На этом веб-ресурсе https://prostitutkikovrova2020.com/molodye/ вы осведомитесь с самым большим выбором самых самых распрекрасных проституток.
Delphi - База Знаний: Упаковать *.mdb-файл

  << Вернуться к Содержанию  

 uses comobj;

function CompactAndRepair(db: string): boolean; {db = path to access database}
var
  v: olevariant;
begin
  result := true;
  try
    v := createoleobject('jro.jetengine');
    try
      v.compactdatabase('provider=microsoft.jet.oledb.4.0;data source=' + db,
        'provider=microsoft.jet.oledb.4.0;data source=' + db + 'x;jet oledb:engine type=5');
      deletefile(db);
      renamefile(db + 'x', db);
    finally
      v := unassigned;
    end;
  except
    result := false;
  end;
end;
  << Вернуться к Содержанию