Discussion :

[mamiF]

Bonsoir,
je travaille avec les composant ADO un certain moment


Le programme et bien écrit en langage delphi
par la suite je voulais travailler avec l'utilitaire réparer une base de donnée
CompactAccessDB(Chemin+'\BD.ACCDB','*************');
j'avais ses message
Eolexeption (Argument non valide)
(pas de base de données)
(Compactage non réussi)
je ne s'est plus ce que je doit configurer

[tourlourou]

Comment appelles-tu cet utilitaire ? Grâce à un code de ce type ?

[mamiF]

j'ai vue ce code mais il y'a un message('Compactage non réussi')

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
35
function CompactAccessDB(db,mdp : string): Boolean; {DB = path complet de la base Access, MdP = password de la DB }
// Ajouter ComObj dans les Uses
var
  v: OLEvariant;
begin
  Result := False;
  //backup de la base
  if not CopyFile(PAnsiChar(db),PAnsiChar(db+'.bak'),False) 
  then begin
    showmessage('Base de données introuvable'); 
    exit;
  end;
  //compactage
  try
    v := CreateOLEObject('JRO.JetEngine');
 
    try
 
      begin
        V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+db+';Jet OLEDB:Database Password='+mdp,
         'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+db+'comp'+';Jet OLEDB:Database Password='+mdp); //compactage
        DeleteFile(db);// suppression de la base d'origin
        RenameFile(db+'comp',db); // mise en place de la base compactée
        Result := True;
      end;
 
    except
      showmessage('exception lors du compactage');
    end;
 
  finally
    V := Unassigned;
  end;
 
end;

ce style de code, aux imbrications remaniées, fonctionne-t-il mieux ?

[mamiF]

bonsoir,
j'ai le message ('exception lors du compactage');

[tourlourou]

Bonsoir,
En changeant le bloc Except, quelle erreur s'affiche-t-il ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    except
      on E: Exception do showmessage('erreur au compactage : '+E.message);
    end;

Selon le message, tu pourras en déduire si c'est bien la fonction de compactage qui échoue, et vérifier la chaîne passée en argument :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
S := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+db+';Jet OLEDB:Database Password='+mdp,
         'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+db+'comp'+';Jet OLEDB:Database Password='+mdp;
V.CompactDatabase(S);
//...
except
  on E: Exception do showmessage(S);
end;