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