Discussion :

[Kephuro]

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 :

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

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 :

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

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 !

[Rayek]

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 :

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

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

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

[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

[Rayek]

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

[Kephuro]

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 :

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

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

Et ça fonctionne

[Aka Guymelef]

Euh là c'est même un peu trop barbare 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 :

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

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.

[Kephuro]

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).

[Aka Guymelef]

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).