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 ?