Discussion :

[jakouz]

j'ai un TIBQuery nommé qyGeneriques qui "plante" sur l'instruction Open :
"indice de liste hors limites(21)".
remarque : 21 est le nombre de champs persistants du TIBQuery.
Je ne vois pas d'où peut provenir l'erreur et pourquoi sur le open ?
Quelqu'un a t il une idée svp. merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
with qyGeneriques do
  begin
    SQL.Clear;
    SQL.AddStrings(slSQLInitGen);
    Close;
    setQyeryParams(qyGeneriques, true);
//    SQL.SaveToFile('C:\TEMP\qyGen.sql');
    Open;
    First;
  end;

[Cl@udius]

Salut

Ces quelques lignes ne sont pas a priori très parlantes.
Tu as des événements AfterOpen ou AfterScroll qui poseraient problème ?

La définition des champs persistants est-elle correcte (un champ persistant absent de la requête) ?

EListError, inattendu sur un Open ?

@+

[jakouz]

bonjour Cl@udius,

aucun évènement est relié au TIBQuery dans l'inspecteur d'objet. Quant aux champs persistants je les ai obtenu avec un double-click sur le composant TIBQuery puis click droit "ajouter des champs" dans l'éditeur de champs (donc ces champs existent dans la requête). as tu besoin d'autre informations ?

[Cl@udius]

C'est bien sur Open que cela plante, et non à l'appel de setQueryParams ?

Si oui, supprime temporairement tes champs persistants pour s'assurer qu'ils sont bien en cause.

@+

[jakouz]

oui c'est bien sur l'instruction Open que ça plante. si je supprime temporairement les champs persistants, ça marche (mais ça plante plus loin dans le code ...)

[Cl@udius]

[...] mais ça plante plus loin dans le code ...

Ah et ça plante sur quoi ?

Car, sauf erreur de ma part, il n'y a pas de relation entre un TDataSet (ou un descendant) et la classe d'exception EListError.

[Edit]
Un Echec sur le Open devrait te renvoyer une exception de type EIBxxxError.

[jakouz]

oui c'est pour cela que je ne comprend pas le type de l'erreur par rapport au contexte. remarque : la requete en elle même fonctionne car je l'ai testé dans un autre outil que Delphi (SQL manager for Interbase). cela me rend un 11 enregistrements. Donc je n'ai pas vraiment de pistes où creuser pour corriger ce bug !

[Cl@udius]

Si 21 correspond au nombre de champs persistants, tu dois quelque part avoir un truc du genre:

Code :

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

  for I := 0 to IBQuery1.FieldCount do

au lieu de:

Code :

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

  for I := 0 to IBQuery1.FieldCount - 1 do

Ce qui lève bien une exception EListError.
Etonné suis-je.

[ShaiLeTroll]

Normalement, un Query avec des Champs persistants ne doit pas changer de SQL, celui étant généralement défini dans l'IDE

Si tu veux un Query dynamique qui permet d'être utiliser pour n'importe quel SQL, il ne faut pas de champ persistant mais utilise FieldByName à la place !
Normalement, DefaultFields est à False, cela indique qu'il utilise des champs persistants ou des champs générés en fonction du recordset reçu !
Pour un Query dynamique, DefaultFields doit rester à True !

Evidemment, si tu déclares 21 champs persistants et que la requête ne renvoie que 11 champs, ça ne peut pas fonctionner !

setQyeryParams, qui doit être en vrai setQueryParams, est une fonction à toi ! cela fait quoi ?

Ce n'est pas l'erreur que tu ne comprends pas ! C'est plutôt l'utilisation des Champs persistants !

[jakouz]

après recherche, il n'y a pas pas de boucle for avec FieldCount dans le code ...

[Cl@udius]

Tu fais forcément un accès à une liste en dehors ses bornes.
21 n'est peut-être qu'un hasard trompeur.

Pas de T[Object]List, TStringList, ou autres Items...

[jakouz]

je suis d'accord qu'il y a forcement un accès à une liste qq part, mais vu que ça plante sur l'instruction "Open" et pas après (en effet en mode débuggage F8 je ne vais pas à l'instruction suivante "First"), alors je ne vois pas où chercher

[evarisnea]

et les propositions de Shai ? les as-tu explorées ?

Normalement, un Query avec des Champs persistants ne doit pas changer de SQL, celui étant généralement défini dans l'IDE

Si tu veux un Query dynamique qui permet d'être utiliser pour n'importe quel SQL, il ne faut pas de champ persistant mais utilise FieldByName à la place !
Normalement, DefaultFields est à False, cela indique qu'il utilise des champs persistants ou des champs générés en fonction du recordset reçu !
Pour un Query dynamique, DefaultFields doit rester à True !

Evidemment, si tu déclares 21 champs persistants et que la requête ne renvoie que 11 champs, ça ne peut pas fonctionner !

setQyeryParams, qui doit être en vrai setQueryParams, est une fonction à toi ! cela fait quoi ?

Ce n'est pas l'erreur que tu ne comprends pas ! C'est plutôt l'utilisation des Champs persistants !

[jakouz]

OK je vais explorer la proposition de ShaiLeTroll