🚀 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)


"yag" <yagyog@tiscali.it> �������/�������� � �������� ���������: 
news:4219ac0f@newsgroups.borland.com...
> help me.!I did not know where to post
> How to compact database mdm (access) witch ado or dao from code ...
>
>
>
>
>
> ~-----------------------------------------------------~
> ...c++, oo, designs are my passion...
>