🚀 go-pugleaf

Import
Microsoft Jet and Replication Objects 2.x Library

#include <JRO_TLB.h>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 IJetEngine * JetEngine = NULL;
 CoCreateInstance(CLSID_JetEngine, NULL, CLSCTX_INPROC_SERVER,
IID_IJetEngine,
  (void**) &JetEngine);

 WideString Source = "Provider=Microsoft.Jet.OLEDB.4.0;"
  "Data Source=C:\\Test\\Test.mdb;";
 WideString Dest = "Provider=Microsoft.Jet.OLEDB.4.0;"
  "Data Source=C:\\Test\\Compacted.mdb;";

 JetEngine->CompactDatabase(Source.c_bstr(), Dest.c_bstr());

 JetEngine->Release();
}


You can compact database from one file into another. There should be no
users connected to database.

----------------------------------------------------------------
Regards,
Viatcheslav V. Vassiliev
http://www.oledbdirect.com
The fastest way to access MS SQL Server and MS Jet (MS Access) databases.

"boll" <bollitec@web.de> ???????/???????? ? ???????? ?????????:
news:ap39i6$8mk$04$1@news.t-online.com...
> I look for an simple "ADOCommand" to compact an AccessDB truh an
> ADOConnection.
>
> Has anybody an idea?
>
>