Главная страница
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.058 c
1-82319
Psibug
2003-09-13 19:13
2003.09.25
Че с дельфи6 происходит?


1-82240
MakNik
2003-09-15 14:16
2003.09.25
QReport


14-82470
СуперТупик
2003-09-06 16:48
2003.09.25
Вирус


14-82484
justos
2003-09-06 10:26
2003.09.25
Хочу стать круче...


3-82037
Хлам
2003-09-03 10:31
2003.09.25
Вопрос по SQL...Скорей всего простейший