Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.25;
Скачать: CL | DM;

Вниз

Упаковка БД   Найти похожие ветки 

 
Петр ©   (2003-09-05 12:20) [0]

Добрый день, уважаемые знатоки.

Может быть кто-нибудь знает как средствами Delphi или API -функцией упаковать и сжать mdb файл, как это делает Access?


 
Mamed ©   (2003-09-05 12:58) [1]

Vizvat access s pzrametrom "/COMPACT"


 
sniknik ©   (2003-09-05 14:12) [2]

> API -функцией
это весело... ;о))

у меня делается так
function TDMod.PackAccess(BaseName: string): boolean;
var je: Variant;
sPath: string;
begin
result:= false;
sPath:= ExtractFilePath(BaseName);
try
try
je:=CreateOleObject("JRO.JetEngine");
je.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;"+
"Data Source="+BaseName+";",
"Provider=Microsoft.Jet.OLEDB.4.0;"+
"Data Source="+sPath+"NewBase$$$.Mdb;"+
"Jet OLEDB:Encrypt Database=True");
DeleteFile(BaseName);
RenameFile(sPath+"NewBase$$$.Mdb", BaseName);
result:= true;
except
on E: Exception do DoIfError(E.Message);
end;
finally
je:= Null;
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.09.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
14-82383
Nikolay M.
2003-09-09 16:34
2003.09.25
Гараж :)))))


6-82369
Vintik
2003-07-26 15:32
2003.09.25
надо чтобы текст добавлялся виде HTML кода в TWebBrowser


7-82512
Frame
2003-07-11 10:12
2003.09.25
Работа с потоками NTFS.


3-82126
Ury
2003-09-04 13:54
2003.09.25
DBComboBox


6-82373
SergeySEM
2003-07-25 15:52
2003.09.25
еще вопрос про Streame