Discussion :

[defluc]

Je voudrais affecter à une variable d'un programme Delphi, le résultat d'une requête.
J'utilise un composant Query et la requête suivante se fait sans message d'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   CadaDataModule.Zquery.Sql.Clear;
   SqlStr := 'Select Distinct REVENU As REVENU FROM "SelectTable" ';
   SqlStr := SqlStr + 'WHERE Div = :Divis And Sect = :Section And Radical = :Radic ';
   SqlStr := SqlStr + 'And ExposLet = :ExpLet And ExposDigit = :ExpDigit And Indice = :Ind ';
   SqlStr := SqlStr + 'And NOM = :Nom ';
   CadaDataModule.Zquery.SQL.Add(SqlStr);
   CadaDataModule.Zquery.Params[0].AsInteger := Divis ;
   CadaDataModule.Zquery.Params[1].AsString := Section ;
   CadaDataModule.Zquery.Params[2].AsInteger := Radic ;
   CadaDataModule.Zquery.Params[3].AsString := ExpLet ;
   CadaDataModule.Zquery.Params[4].AsString := ExpDigit ;
   CadaDataModule.Zquery.Params[5].AsString := Ind ;
   CadaDataModule.Zquery.Params[6].AsString := Nom ;
   CadaDataModule.Zquery.ExecSQL;

Par contre, l'instruction

Code :

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

   Revenu := CadaDataModule.Zquery.FieldByName ('Revenu').asinteger ;

qui suit directement le code précédent donne l'erreur

Le projet MonProjet a provoqué une classe d'exception EDatabaseError avec le message 'Zquery: Champ 'Revenu' non trouvé

J'ai forcément oublié quelque chose.
Une idée sur l'erreur ?

[Cl@udius]

Salut

J'ai forcément oublié quelque chose.

ou peut-être l'inserve, quelque chose en trop.

Code :

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

1
2
  SqlStr := 'Select Distinct REVENU As REVENU FROM "SelectTable" ';

Pourquoi mettre un alias alors que le champ porte le même nom ? Je ne sais si c'est la source de l'erreur, mais je supprimerais l'alias.

Code :

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

1
2
 
  SqlStr := 'Select Distinct REVENU FROM "SelectTable" ';

@+ Claudius

[defluc]

L'erreur persiste sans alias.

[Cl@udius]

Bon ce n'était pas ca, mais cela reste bizarre !
Ce sont des compos Zeos que tu utilises ?

As-tu essayé avec Fields[0] ?

[defluc]

avec

Code :

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

Revenu := CadaDataModule.Zquery.Fields[0].asinteger ;

j'ai le message

Index de liste hors limites (0)

Pourtant quand je fais un «Insert Into TableTest» avec la même sélection, la valeur du champs est bien insérée.
C'est un peu idiot de passer par une table temporaire pour extraires une valeur unique.

Je travaille avec les composants Zeos qui me donnent toute satisfaction et je ne crois pas que cette erreur leur soit imputable.

[Cl@udius]

Je travaille avec les composants Zeos qui me donnent toute satisfaction et je ne crois pas que cette erreur leur soit imputable.

Non je ne le crois pas non plus, les compos Zeos ont très bonne réputation.

Bon ben là je suis à court d'idée !

le message:

Index de liste hors limites (0)

laisserais entendre que la requête ne renvoie aucun champ !! J'y perds mon latin, désolé

@+

[giltonic]

avec

Code :

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

Revenu := CadaDataModule.Zquery.Fields[0].asinteger ;

j'ai le message
Pourtant quand je fais un «Insert Into TableTest» avec la même sélection, la valeur du champs est bien insérée.
C'est un peu idiot de passer par une table temporaire pour extraires une valeur unique.

Je travaille avec les composants Zeos qui me donnent toute satisfaction et je ne crois pas que cette erreur leur soit imputable.

Si c un peu un requete a tout faire il faut faire assez gaffe
Essaye plutot un
Query.open au lieu d'un Query.ExecSQL

De plus au debut il faudrait passer en RequestLive:=false pour une requete de Selection c mieux.

Salutations

[defluc]

Cela marche avec Query.Open plutôt que Query.ExecSql que j'ai toujours utilisé comme une «bonne à tout faire».

Va falloir la nuance qui différencie ces deux commandes.

Grand merci pour ton aide rapide et fructueuse et à charge de revanche.