BOOL fCreated;

fCreated = SQLConfigDataSource(NULL,
                        ODBC_ADD_DSN,
                       "Microsoft Access Driver (*.mdb)",
   "CREATE_DB=C:\\Test.mdb General\0" );

    // ne pas oublier d'inclure #include <comobj.hpp>
 
    Variant vADO;
    AnsiString Filename = "C:\\Documents and Settings\\blondelle\\Mes documents\\MySQL\\maBdd2.mdb";
    AnsiString provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +Filename+";";

    if (FileExists(Filename.c_str()))
{
MessageBox(Handle,"Ce fichier existe déja!" ,"ATTENTION",MB_OK|MB_ICONWARNING ) ;
vADO = Unassigned;
return;
}

    vADO = Variant::CreateObject("ADOX.Catalog");
    vADO.OleFunction("create", provider.c_str());
 
    // on termine
    vADO = Unassigned;

// ne pas oublier d'inclure #include <comobj.hpp>
 
void  CompactDatabase(AnsiString Base1, AnsiString psw1, AnsiString Base2, AnsiString psw2)
{
 
      AnsiString  Provider1=    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Base1 + ";Password =" + psw1;
      AnsiString  Provider2=    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Base2 + ";Password =" + psw2;
 
      Variant  v=Variant::CreateObject("JRO.JetEngine");
      v.OleFunction("CompactDatabase",  Provider1.c_str(), Provider2.c_str());
 
      v = Unassigned;
}
void __fastcall TForm1::Button4Click(TObject *Sender)
{
        AnsiString  Base1="C:\\Documents and Settings\\Fernand Bartolo\\Dev\\Testxxxxxx\\Iris.mdb";
        AnsiString  psw1="";
 
        AnsiString  Base2="C:\\Documents and Settings\\Fernand Bartolo\\Dev\\Testxxxxxx\\Test.mdb";
        AnsiString  psw2="";
 
 
        if  (FileExists(Base2))
                DeleteFile(Base2);
        CompactDatabase(Base1,psw1,Base2,psw2);
        ShowMessage("OK!!");
}