Текущий архив: 2004.10.31;
Скачать: CL | DM;

Вниз

Сжатие баэы Access   Найти похожие ветки 

← →
NikTrof   (2004-10-01 03:16) [0]

Можно ли из программы на Дельфи сжать Access"овскую базу данных?
В справке по Access написано, что етим занимается Jet.
Может у Jet"а есть какие-нить функции как у BDE?

---

← →
Slym   (2004-10-01 06:35) [1]


procedure TPreLoadFr.CompactDataBase(const FileName:string);
const ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=";
var
 DBEngine:variant;
 Dest:string;
begin
 Dest:=ExtractFilePath(FileName)+"compact.mdb";
 DeleteFile(Dest);
 DBEngine:=CreateOLEObject("JRO.JetEngine");
 DBEngine.CompactDatabase(ConnStr+FileName,ConnStr+Dest);
 RenameFile(Source,PChar(Source+".old"));
 RenameFile(Dest,Source);
end;


---

← →
NikTrof   (2004-10-01 06:57) [2]

Огромное спасибо!

---

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

Текущий архив: 2004.10.31;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.062 c