Discussion :

[archonte]

Salut !

Sur ma Form3, j'ai posé un TADOConnection, un TADOQuery (ADOQryU), un TDataSource, et un TDBLookUpComboBox. Voila ce que j'ai encodé dans ma form3 :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm3.ADOQryUBeforeOpen(DataSet: TDataSet);
begin
  ADOQryU.Active := False;
  ADOQryU.SQL.Text := 'SELECT nom, idservice FROM services WHERE idutilisateur = :Pidutilisateur ORDER BY nom';
  ADOQryU.ParamCheck := true;
  ADOQryU.Parameters.ParamByName('Pidutilisateur').Value := IdxUser;
  ADOQryU.Active := true;
end;

Si en mode design je mets la proprieté active du composant ADOQryU à true : j'obtiens un message d'erreur :

---------------------------
Notification des exceptions du débogueur
---------------------------
Le projet essai.exe a déclenché la classe d'exception EStackOverflow avec le message 'Débordement de pile'.
---------------------------
Arrêter Continuer Aide
---------------------------

Si à l'inverse je fixe à false la propriété active : il ne se passe rien et le DBLookUpComboBox reste vierge malgré la procedure OnBeforeOpen ci dessous!

Merci de m'aider à trouver le bug ! Ou dois-je placer ma requete ?

[evarisnea]

est tu sur que le message d'erreur survient en mode conception ? car vu la manière dont tu as codé ton évènement BeforeOpen, c'est en exécution que cela devrait se produire.
une petite explication sur ce que tu as codé: lorsque ADOQryU s'ouvre, il appelle l'évènement BeforeOpen; dans cet évènement, tu ferme ADOQryU et définit la requête SQL à exécuter, puis Active de nouveau ADOQryU. une fois de plus avant d'ouvrir effectivement le jeu de données, l'évènement BeforeOpen est appelé de nouveau. c'est ce que l'on appelle une boucle sans fin, d'où l'erreur de débordement de pile que tu as.
schématiquement ça donne ceci:

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
ADOQryU.Active := True
  --> BeforeOpen
    -->ADOQryUD.Active := False
    -->...
    -->ADOQryU.Active := True
    --> BeforeOpen
      -->ADOQryUD.Active := False
      -->...
      -->ADOQryU.Active := True
      --> BeforeOpen
        -->ADOQryUD.Active := False
        -->...
        -->ADOQryU.Active := True
        --> BeforeOpen
          -->ADOQryUD.Active := False
          -->...
          -->ADOQryU.Active := True

ainsi de suite jusqu'au débordement de pile...

met le code ailleurs que dans l'évènement BeforeOpen, dans le Click d'un bouton par exemple.

[archonte]

Effectivement !!! merci pour l'explication sur la logique de fonctionnement du OnBeforeOpen

NB : je n'ai peut-être pas été clair par contre sur le moment de survenue de l'erreur : c'était en runtime. Mais j'avais l'impression qu'elle dépendait des valeur de l'inspecteur d'objets.

[evarisnea]