Форум: "Базы";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];
ВнизСжатие баэы 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.042 c