Скачать: CL | DM;

Сжатие базы MS ACCESS   Найти похожие ветки 

← →
Stas ©   (2004-01-14 09:38) [0]

Когда-то на форуме я нашел пример сжатия базы ACCESS:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var MyJetEngine : JetEngine;
strDataSource,strDataDest:string;
begin

stRun.Database1.Connected:=False;

strDataSource := "Data Source="+Path+"base\sh26.mdb;";
strDataDest := "Data Source="+Path+"base\sh26b.mdb;";

MyJetEngine := CoJetEngine.Create();

try
MyJetEngine.CompactDatabase(strDataSource, strDataDest);
finally
MyJetEngine := nil;
end;
Вопрос: что такое JetEngine ? в какой модуль нужно подключить чтобы использовать JETEngine ?

---

← →
Stas ©   (2004-01-14 15:15) [1]

Может кто нибудь знает ?

---

← →
Kuusiniemi ©   (2004-01-14 16:57) [2]

Импортируйте библиотеку типов \Program Files\Common Files\System\ado\msjro.dll. Enjoy!

---

← →
Stas ©   (2004-01-15 10:12) [3]

А как ее импортировать ?

---

← →
Digitman ©   (2004-01-15 10:39) [4]

Project -> Import Type Library

выбираешь из списка эл-т

Microsoft Jet and Replication objects 2.6 Library

и жмешь кнопку Create Unit

полученный XXX_TLB.PAS файл подключаешь к проекту и с этого момента класс TJetEngine становится доступным для использования

---

← →
Stas ©   (2004-01-15 11:07) [5]

Спасибо !!!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.983 c