| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сжатие базы MS ACCESS [D7]
Stas © (2004-01-14 09:38:00)
Когда-то на форуме я нашел пример сжатия базы 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-15 11:07:00) [1]
Спасибо !!!
Digitman (2004-01-15 10:39:00) [2]
Project -> Import Type Library
выбираешь из списка эл-т
Microsoft Jet and Replication objects 2.6 Library
и жмешь кнопку Create Unit
полученный XXX_TLB.PAS файл подключаешь к проекту и с этого момента класс TJetEngine становится доступным для использования
Stas (2004-01-15 10:12:00) [3]
А как ее импортировать ?
Kuusiniemi (2004-01-14 16:57:00) [4]
Импортируйте библиотеку типов \Program Files\Common Files\System\ado\msjro.dll. Enjoy!
Stas (2004-01-14 15:15:00) [5]
Может кто нибудь знает ?
| |
