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

Вниз

Как упаковать файлы 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
9-53831
artgamer
2002-10-12 16:07
2003.03.17
Как сделать множество копий одного объекта?


3-53949
Sava
2003-02-26 15:01
2003.03.17
К вопросу о транзакциях!


3-53941
Соловьев
2003-02-26 14:27
2003.03.17
Как в IB(FireBird) сделать автоинкриментное поле ?


6-54127
Cosmic
2003-01-26 14:59
2003.03.17
Имена рабочих групп


14-54227
Николай Быков
2003-03-02 20:30
2003.03.17
Эх, как же я вам, взрослым, завидую