Discussion :

[Klemsy78]

Bonjour monsieurs, je reçois une erreur lorsque j'essaie d'extraire la valeur de certains champs.
J'utilise un composant query pour selectionner des données qui existent bien dans ma base Mysql5.
J'ai l'exception suivante:

Code :

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

Query1:field 'Valeur' not found

Alors ce champs existe bien et contient des données .
Vraiment je ne comprend pas la source de cette erreur.
Aidez moi s'il vous plaît.
Voici code :

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
 
     while not DM.ZQuery1.Eof do
      begin
          ObData:=TDonnees.GetDonnee(DM.ZQuery1.FieldByName('IdDonnes').AsInteger);
          VCol:=TComptabiliser.GetLine(VListDepart[i],VListompta_Manager);
          VLigne:=TComptabiliser.GetCol(ObData,VListompta_Manager);                         
         //VLigne:=strtoint(ObData.Code);
          VListompta_Manager[VCol,VLigne].Id:=DM.ZQuery1.FieldByName('Id').AsInteger;            
          VListompta_Manager[VCol,VLigne].Valeur:=DM.ZQuery1.FieldByName('Valeur').AsFloat;
          VListompta_Manager[VCol,VLigne].Date_Operation:=DM.ZQuery1.FieldByName('DateOperation').AsDateTime;
          VListompta_Manager[VCol,VLigne].IdDepart:=DM.ZQuery1.FieldByName('IDDepart').AsInteger;
          VListompta_Manager[VCol,VLigne].IdDonnes:=DM.ZQuery1.FieldByName('IdDonnes').AsInteger;
          VListompta_Manager[VCol,VLigne].Exist:=true;                        
          DM.ZQuery1.Next;
      end;

[evarisnea]

peut être as-tu juste oublié de préciser le champ en question dans ta requête SQL ?

[Klemsy78]

Non je précise bien tous les champs dans ma requête.
Ma requête se présente comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
 Vsql:='select Id,Valeur,DateOperation,IDDepart,IdDonnes from comptabilite where IDDepart=:VIdDepart '+
  ' and DateOperation=:VDateF ';
 
     DM.ZQuery1.Close;
     DM.ZQuery1.SQL.Clear;
     DM.ZQuery1.SQL.Text:= Vsql;
     DM.ZQuery1.ParamByName('VDateF').Value:=PDateF;
     DM.ZQuery1.ParamByName('VIdDepart').Value:=VListDepart[0].Id;         DM.ZQuery1.Open;

Je besoin de comprendre cette erreur.
Merci d'avance.

[popo]

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
18
19
20
21
22
23
24
25
26
Vsql:='select Id,Valeur,DateOperation,IDDepart,IdDonnes from comptabilite where IDDepart=:VIdDepart '+
  ' and DateOperation=:VDateF ';
 
    
     DM.ZQuery1.Active := False;
     DM.ZQuery1.SQL.Clear;
     DM.ZQuery1.SQL.Text:= Vsql;

     DM.ZQuery1.ParamByName('VDateF').Value:=PDateF;
     DM.ZQuery1.ParamByName('VIdDepart').Value:=VListDepart[0].Id;         DM.ZQuery1.Open;
    DM.ZQuery1.Active := True;

   while not DM.ZQuery1.Eof do
      begin
          ObData:=TDonnees.GetDonnee(DM.ZQuery1.FieldByName('IdDonnes').AsInteger);
          VCol:=TComptabiliser.GetLine(VListDepart[i],VListompta_Manager);
          VLigne:=TComptabiliser.GetCol(ObData,VListompta_Manager);                         
         //VLigne:=strtoint(ObData.Code);
          VListompta_Manager[VCol,VLigne].Id:=DM.ZQuery1.FieldByName('Id').AsInteger;            
          VListompta_Manager[VCol,VLigne].Valeur:=DM.ZQuery1.FieldByName('Valeur').AsFloat;
          VListompta_Manager[VCol,VLigne].Date_Operation:=DM.ZQuery1.FieldByName('DateOperation').AsDateTime;
          VListompta_Manager[VCol,VLigne].IdDepart:=DM.ZQuery1.FieldByName('IDDepart').AsInteger;
          VListompta_Manager[VCol,VLigne].IdDonnes:=DM.ZQuery1.FieldByName('IdDonnes').AsInteger;
          VListompta_Manager[VCol,VLigne].Exist:=true;                        
          DM.ZQuery1.Next;
      end;

Sinon j'ai déjà eu quelques souci avec FieldByName, j'ai essayé avec FindField et ça a résolu mon problème

[Cl@udius]

Sinon j'ai déjà eu quelques souci avec FieldByName, j'ai essayé avec FindField et ça a résolu mon problème

Dans la mesure où FieldByName de TDataSet appelle FindField, je ne vois pas trop la différence.

@Klemsy
Les 2 requêtes que tu présentes sont différentes ! Laquelle des deux ne fonctionne pas ?

@+ Claudius

[Klemsy78]

C'est la dernière requête qui pose problème.
C'est dans la boucle que l'erreur est soulevé quand je lis un champs avec FieldbyName.

Merci!

[teach]

Je te propose de faire un showmessage de ta requête juste avant de l'exécuter et tu nous retournes le contenu de ta requête.

[Rayek]

Je te propose de faire un showmessage de ta requête juste avant de l'exécuter et tu nous retournes le contenu de ta requête.

Sauf qu'avec l'utilisation des paramètres cela ne sert à rien car il affichera la requête de base avec les :param

[teach]

C'est la syntaxe de la requête qui nous interesse pour essayer de comprendre le pourquoi du rejet de la colonne Valeur.

[Rayek]

C'est la syntaxe de la requête qui nous interesse pour essayer de comprendre le pourquoi du rejet de la colonne Valeur.

déjà donnée ici


@Klemsy78

As tu testé cette même requête dans ton sgbd ?
Si non, fais un test et dis nous le résultat (erreur & co)

sinon modifie ta requête afin de changer le nom de valeur

Code SQL :

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

1
2
3
4
 
select Id,Valeur as MaValeur,DateOperation,IDDepart,IdDonnes 
from comptabilite 
where IDDepart=:VIdDepart and DateOperation=:VDateF

[popo]

Dans la mesure où FieldByName de TDataSet appelle FindField, je ne vois pas trop la différence

Lorsque j'ai fait mes tests je n'ai pas regardé quelle procedure apellait telle autre. J'ai simplement constaté que je n'avais plus de violation d'accès