🚀 go-pugleaf

The following code works for me but it is not an Access2000 file.......
Haven't tested it yet with it...

It looks very similar to your code but maybe something will help

bye!

file://---------------------------------------------------------------------
------

#include <vcl.h>
#pragma hdrstop



#include "FCompactBD.h"
#include "JRO_TLB.h"
file://---------------------------------------------------------------------
------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
file://---------------------------------------------------------------------
------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
file://---------------------------------------------------------------------
------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

 try
 {
        TCOMIJetEngine aa;
        aa = CoJetEngine::Create();
      WideString sSource = WideString("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\\YOURBD.mdb;Jet OLEDB:Database Password=\"YOURPASSWORD\"");
      WideString sDest = WideString("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\\test.mdb;Jet OLEDB:Engine Type=4;Jet OLEDB:Database
Password=\"YOURPASSWORD\"");
        HRESULT nn = aa.CompactDatabase(sSource, sDest);
        if (nn == S_OK)
           ShowMessage("ADS");


 }
 catch(Exception &e)
 {
            ::MessageBox(NULL, e.Message.c_str(), "", MB_OK) ;
 }


}
file://---------------------------------------------------------------------
------




Mike Collins <mcollins@tynetec.demon.co.uk> wrote in message
news:3b2f3c53_1@dnews...
> Does anyone know if it IS POSSIBLE to compact an MS Access 2000 database
> when connecting using ADO and the MS Jet Engine 4.
>
> I've spent the last week trying to compact an Access database, I've been
to
> every site on the net which has a reference to this, and I've posted
> numerouse questions.  Nigal Jones pointed me in the direction of using the
> Import Type Libaray to access the msjro.dll.  I've done all this, pass
what
> I think are the correct parameter, compiled and run.  And the result is
> NOTHING.  Please, please, please, if anyone knows how to achieve this in
> C++Builder (not delphi), could you please post me.  My code is below if
> anyone cares to have a look:
>
> file://Project.cpp
>       USE("C:\Program
> Files\Programming\Borland\CBuilder5\Imports\JRO_TLB.h", File);
>
> file://Main.cpp#pragma package(smart_init)
>   #pragma link "JRO_TLB"
>   #pragma resource "*.dfm"
>
>   TForm1 *Form1;
>
>   void __fastcall TForm1::BitBtn1Click(TObject *Sender)
>   {
>      try
>      {
>         jet = CoJetEngine::Create();
>         jet->CompactDatabase(
>
> WideString"Provider=Microsoft.Jet.OLEDB.4.0;DatSource=c:\\bob.mdb"),
>
> WideString("Provider=Microsoft.Jet.OLEDB.4.0;Dat Source=c:\\biff.mdb;Jet
>                                     OLEDB:Engine Type=5"));
>      }
>     catch (...)
>     {
>         ShowMessage("Error");
>     }
>  }
>
> file://Main.h
>   #ifndef MainH
>   #define MainH
>   #include "JRO_TLB.h"
>   #include <Classes.hpp>
>   #include <Controls.hpp>
>   #include <StdCtrls.hpp>
>   #include <Forms.hpp>
>   #include <Buttons.hpp>
>   #include <Db.hpp>
>
>   class TForm1 : public TForm
>   {
>   __published:
>      TBitBtn *BitBtn1;
>      void __fastcall BitBtn1Click(TObject *Sender);
>   private:
>       TCOMIJetEngine jet;
>   public:
>      __fastcall TForm1(TComponent* Owner);
>   };
>
>
file://---------------------------------------------------------------------
-----
> -
>   extern PACKAGE TForm1 *Form1;
>
>
file://---------------------------------------------------------------------
-----
> -
>   #endif
>
>
>
>
>