[ADO] Violation d'accès en utilisant EditConnectionString

Bonjour à tous !

Je suis en train de coder une petite appli et dans certains cas j'ai besoin d'utiliser une chaine de connexion qui n'est pas définie à la base.
J'ai vu qu'on pouvait utiliser une boite de dialogue similaire à celle que l'on peut avoir en utilisant l'inspecteur d'objet sur la propriété ConnectionString d'un TADOConnection.
Pour celà il faut inclure AdoConEd dans les uses et appeller la methode :

Code:

---

EditConnectionString(Component:TComponent):boolean

---

Je me suis renseigné un peu et l'utilisation est plutôt simple. On passe un TADOconnection en paramètre de cette fonction et après la boite de dialogue apparait.

Le souci c'est qu'en appelant cette méthode j'ai eu une EAccessViolation. Alors j'ai refait un petit bout de code pour épurer tout ce qui aurait pu gêner et je me retrouve avec la même erreur, voici ce petit bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TfrmImport.Button2Click(Sender: TObject); Var aConn:TADOConnection; begin aConn:=TADOConnection.Create(nil); aConn.Connected:=false; if EditConnectionString(aConn) then begin ShowMessage(aConn.ConnectionString); end; end;

---

A l'exécution du EditConnectionString j'ai donc une EAccessViolation.

J'ai pas trouvé grand chose sur le net concernant cette erreur, juste un mec qui a eu le même problème sans réponse (2004) dans ce topic

J'ai pas grand chose à ajouter, je vous remercie d'avance pour vos réponses et éclaircissements.
Si vous avez besoin de plus d'informations, n'hésitez pas !

Il ne faut pas que le composant AdoConnection soit créé avec la valeur nil, il lui faut absolument une form ou un datamodule de dépot.

Code:

---

1 2	aConn:=TADOConnection.Create(Datamodule1);

---

Je ne sais pas pourquoi c'est obligatoire, mais c'est nécessaire pour que cela fonctionne correctement.

Merci Rayek, c'était bien ça. C'est embêtant du coup, j'utilisais ce code sur une unité sans form ni rien.
Je vais me débrouiller, merci ;)

Citation:

---

Envoyé par Kephuro

Merci Rayek, c'était bien ça. C'est embêtant du coup, j'utilisais ce code sur une unité sans form ni rien.
Je vais me débrouiller, merci ;)

---

Utilise un Datamodule, c'est fait pour les cas comme celui ci ^^

Bizarrement ça n'a pas fonctionné avec un DataModule, m'y suis peut-être mal pris....
Au final j'ai fait un peu le "barbare" :

Code:

---

ConnexionADO:=TADOConnection.create(TComponent.create(nil))

---

Et ça fonctionne :D

Euh là c'est même un peu trop barbare 8O parce que là tu créé des TComponent qui ne seront jamais détruit => fuite de mémoire énorme.

Fait au moins un truc du style

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var UseLess: TComponent; begin UseLess := TComponent.Create( NIL ); try ConnexionADO:=TADOConnection.create( UseLess ); // truc à faire   finally FreeAndNil( UseLess ); end; end;

---

Néanmoins je te conseillerais de quand même persévérer avec le DataModule parce que c'est la solution la plus propre.

C'est une toute petite appli, mais bon, c'est vrai que ce n'est pas une raison pour négliger la consommation mémoire.

Je débute, j'ai pas toujours le réflexe :)

Pour le DataModule, j'ai pas besoin de poser "physiquement" un composant TADOConnexion ?
Parce que si je créé juste le DataModule et que je l'inclus dans les uses, le fait de l'utiliser comme parent pour le TADOConnection me fait exactement la même erreur (EAccessViolation). :?

Est-ce que tu passe la variable globale représentant le DataModule créé comme paramètre du constructeur ? Es-tu sûr que cette variable est bien créé (regarder dans le code source du DPR, attention si l'instanciation se fait après la création de la fiche principale mais que ton traitement est dans le OnCreate ou le OnShow de la fiche alors effectivement la variable globale n'est pas créé tu dois déplacer son instanciation avant celle de ta fiche).