| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сжатие баэы Access [D6, ADO+Access]

NikTrof ©   (2004-10-01 03:16:00) 

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

---

NikTrof   (2004-10-01 06:57:00) [1]

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

---

Slym   (2004-10-01 06:35:00) [2]


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;


---

Наверх