🚀 go-pugleaf

Mike,

I feel your pain. I do not have any code to post, but I do remember once
reading that you may have to unset the password of the database before you
can compact it, even if there is no password set.

Neo


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:
>
> //Project.cpp
>       USE("C:\Program
> Files\Programming\Borland\CBuilder5\Imports\JRO_TLB.h", 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");
>     }
>  }
>
> //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);
>   };
>
>
//--------------------------------------------------------------------------
> -
>   extern PACKAGE TForm1 *Form1;
>
>
//--------------------------------------------------------------------------
> -
>   #endif
>
>
>
>
>