Форум: "Базы";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Петр   (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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.018 c