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

Вниз

Как упаковать файлы ACCESS (*.mdb) из программы   Найти похожие ветки 

← →
Posny   (2003-02-26 11:27) [0]

Уважаемые!
Как упаковать файлы BD ACCESS (*.mdb) из пронраммы
после удаления записей из таблиц. Работаю через ADO
С благодарностью, Posny.

---

← →
Kuusiniemi   (2003-02-26 11:31) [1]

Использовать интерфейсы JRO.

---

← →
sniknik   (2003-02-26 12:04) [2]

можеш переделать (убрать лишнее)

function TDMod.PackAccess(BaseName: string): boolean;
var je: Variant;
sPath: string;
begin
result:= false;
if Copy(UpperCase(BaseName), Length(BaseName)-3, 4) <> ".MDB" then BaseName:= BaseName + ".MDB";
if Pos(":\",BaseName) = 0 then BaseName:= GetCurrentDir+"\"+BaseName;
sPath:= ExtractFilePath(BaseName);
try
ADOConnection1.Close;
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;
end;

---

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

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

Наверх

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