Сжатие базы 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]

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

Project -> Import Type Library

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

Microsoft Jet and Replication objects 2.6 Library

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

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

Спасибо !!!

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