Composant ADO Connection

Bonsoir,
je travaille avec les composant ADO un certain moment
Pièce jointe 267655Pièce jointe 267660

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

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

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

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 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 ?

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

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

Code:

---

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:

---

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;

---

Bonsoir,

Citation:

---

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

---

Code:

---

1 2 3

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

---

le prg se compile avec un message erreur en argument
puis il imbrique sur l'exception

j'ai déclarer la variable S:string dans la fonction

Code:

---

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;

---

[Error] Unit.pas(140): E2029 'END' expected but ',' found

Ton code a donc une erreur de structure... s'il rencontre une virgule au lieu d'un 'end'

Bonsoir,
j'ai déclarer la variable s:string en s:widestring

Code:

---

1 2 3 4 5 6 7 8

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;

---

j'ai remplacer , par + le code est exact mais il y a un raised exeption class EoleSysError with message 'Nombre de paramètres non valide'

Bonjour,

AMHA il manque un point virgule dans la chaine de connexion ! jamais vous n'utilisez le debug pour vérifier la valeur de la variable S !?
pour la pertinence d'un telle chaine par contre je n'ai aucune idée, je trouve étrange de voir deux fois les mêmes termes mais bon c'est ADO et ADO n'est pas etc...


Utiliser Format et une constante serait pas mal non plus

Code:

---

1 2 3 4 5

const ChainedeConnexion='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%0:s;Jet OLEDB:Database Password=%1:s'+ ';Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%0:scomp;Jet OLEDB:Database Password=%1:s'; .... S:=Format(ChainedeConnexion,[deb,mdp]); Showmessage(S);

---

merci tourlourou et merci SergioMaster votre aide ma un peut éclaircie , le code de NoisetteProd et bref j'ai ajouter des argument au code
c'est comme le ptit déjeuner et le diner