🚀 go-pugleaf

Hello,

I'm trying to compact an Access databse by program code (provider OLEDB
4.0 ) with ADO. But the following code doesn't work

Can Anybody help telling me what's wrong, Please.

Thanks

-----------------------
Here the code :
----------------------

void __fastcall TformMenuPrincipal::FormCloseQuery(TObject *Sender,
      bool &CanClose)
    {
    // bo�te de message demandant confirmation de fermeture

    if (Flag)  // Pour le bouton quitter on a la demande de confirmation,
pas pour le logout.
        {
        int res ;

        res = MessageBox(NULL, "Voulez-vous r�ellement quitter l'application
?", "Confirmation de sortie",
        MB_ICONINFORMATION + MB_YESNO + MB_DEFBUTTON1) ;

        if (res == IDYES)
            {
            CanClose = true ;


            DataModuleQry->ConnectionISNetQry->Close() ;
            DataModuleTbl->ConnectionISNetTbl->Close() ;
            DataModuleRecherche->ConnectionISNetRecherche->Close() ;

            Variant V ;
            AnsiString dbFile = "C:\\ProjetAGL\\BD\\ISNet.mdb" ;
            AnsiString compactFile = "C:\\ProjetAGL\\BD\\Compact.mdb" ;

            // Essai de cr�ation de DBEngine with DAO 4.0
            try
                {
                V = CreateOleObject("DAO.DBEngine.40") ;
                }
            catch(...)
                {
                MessageDlg("Le moteur 4.0 de la base de donn�es n'a pas �t�
trouv�. Recherche d'un autre.", mtWarning, TMsgDlgButtons() <<
mbOK, 0) ;
                V = CreateOleObject("DAO.DBEngine") ;
                }

            V.Exec(Function("CompactDatabase") << dbFile << compactFile) ;

            // Compression
            if (FileExists(compactFile))
                {
                // Remplacement de l'ancienne base par la nouvelle
compact�e.
                DeleteFile(dbFile) ;
                RenameFile(compactFile, dbFile) ;
                }
            }
        else
            CanClose = false ;
        }
    }

-------------
End of code
-------------

*******************************************************

Xavier Barmaz
Etudiant en Informatique de Gestion

barmxavi@students.hevs.ch