Compacter access 2007

Version imprimable

14/03/2010, 16h43
yannba

Compacter access 2007

Bonjour,

J'utilisais à aujourd'hui access 2003 et j'utilisais la procedure pour compacter :
http://delphi.developpez.com/faq/?pa...acterbddaccess

Je n'ai aucun probleme pour utiliser une base access 2007 avec le Provider=Microsoft.ACE.OLEDB.12.0

La question est la suivante : comment fait-on pour compacter avec access 2007 sans JRO étant donné qu'il est fourni avec delphi 2009

Merci
17/03/2010, 17h21
philnext

Ta question n'est pas claire (du moins pour moi..)
17/03/2010, 21h21
BuzzLeclaire

Citation:

Envoyé par yannba

Bonjour,

J'utilisais à aujourd'hui access 2003 et j'utilisais la procedure pour compacter :
http://delphi.developpez.com/faq/?pa...acterbddaccess

Je n'ai aucun probleme pour utiliser une base access 2007 avec le Provider=Microsoft.ACE.OLEDB.12.0

La question est la suivante : comment fait-on pour compacter avec access 2007 sans JRO étant donné qu'il est fourni avec delphi 2009

Merci

Mise à part le fait que sur le poste en question ton moteur Access 2007 doit être présent regarde çà :

social.msdn.microsoft.com

;)
18/03/2010, 07h35
yannba

Merci pour votre reponse, je regarde ca ce soir.

Désolé pour le retard,

Je viens de migrer vers delphi 2009.
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
function CompactAccessDB(DB, MdP:string):Boolean;
var v:OLEvariant;
begin
    Result:=False;
    try
      v:=CreateOLEObject('JRO.JetEngine');
      try
        if CopyFile(PChar(DB),PChar(DB+'.bak'),False) then // Sauvegarde de la base d'origine
          begin
              V.CompactDatabase('Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+DB+';Jet OLEDB:Database Password='+MdP,
                                'Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+DB+'comp'+';Jet OLEDB:Database Password='+MdP); // Compactage de la base d'origine
              DeleteFile(DB); // Suppression de la base d'origine
              RenameFile(DB+'comp',DB); // Mise en place de la base compactée
              showmessage('Compactage réussi');
              Result:=True;
          end;
      finally
        V:=Unassigned;
        showmessage('Pas de base de données');
      end;
    except
      showmessage('Compactage non réussi');
      Result:=False;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    CompactAccessDB(ExtractFilepath(application.ExeName)+'Base.accdb', '');
end;

J'ai un message d'erreur "argument non valide" lorsque le programme arrive sur :
'Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+DB+'comp'+';Jet OLEDB:Database Password='+MdP); // Compactage de la base d'origine