Главная страница
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.04 c
3-82093
Слава
2003-09-04 19:08
2003.09.25
ClientDataSet


3-82060
Alik$
2003-08-22 15:47
2003.09.25
Report как создать свою форму для принтера


14-82401
sniknik
2003-09-01 08:46
2003.09.25
Linux видеопамять, ищу примеры.


3-82148
Karnegi
2003-09-03 13:39
2003.09.25
Помогите с копированием строк


4-82563
Igor__
2003-07-20 17:27
2003.09.25
SetDIBits + 256 цветов = нехорошо