🚀 go-pugleaf

When compacting Access db it must be disconnected. Compact always into
another file. Later you may delete initial file and copy new file into its
place.

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);
 try
 {
  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());
 }
__finally
 {
  JetEngine->Release();
 }
}

Compact will also repair database.

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)


"Kim Utley" <kim@simsware.com> �������/�������� � �������� ���������:
news:41052d23$1@newsgroups.borland.com...
> RE: BCB 6 and TADO... Objects
>
> Hi All,
>
> Can anyone provide a simple method for compacting a Microsoft Access
> database file using TADO objects?
>
> I've looked at the MSDN website and saw a utility they provide but am
> looking for a 'built-in' method to use within my application.
>
> Kindest Regards,
>
>
> Kim L. Utley
>
>