Problème avec TSQLQuery : Field not found

Bonsoir à tous,

Je suis un utilisateur de C++ mais j'ai besoin de développer un projet particulier avec Lazarus. J'avais programmé aussi il y a plusieurs années avec Delphi mais j'ai du mal à me remettre au Pascal. Je rencontre un problème avec le composant TSQLQuery qui me donne une erreur de type "SQLQuery: Field not found" après un second affichage de la forme. La partie du code de l'évènement OnShow de la forme est le suivant:

Code:

---

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

procedure TProcForm.FormShow(Sender: TObject); begin If GetNumRecords =0 then begin if MessageDlg('Avertissement','La table des processus est vide !, Voulez-vous saisir des données ?',mtWarning,[mbYes,mbNo],0)=MrNo then begin SetDataChanged(false); ActivateProcFormComponents(false); Close; end; end;   With DataModuleDoc.ProcSQLQuery do begin Close; SQL.Text:='Select * from processus order by IDPROC'; CodeDBEdit.DataField:='CODEPROC'; CodeNameDBEdit.DataField:='NAMEPROC'; ProcDescDBMemo.DataField:='PROCCOMMENT'; Open; First; end;   SetDataChanged(false);

---

A la première vue de la forme pas d'erreur mais si l'on ferme cette forme et que l'on redemande son ouverture j'obtiens un message d'erreur "ProcSQLQuery: Field "CODEPROC" not found".

Merci d'avance pour vos commentaires

Bonne soirée à tous

Biobytes

Bonjour

Je ne pense qu'il ne faut pas assigner DataField.
Cela est fait automatiquement quand la requête est préparée (ou ouverte).

Aussi, on déconseille, en général, les requêtes avec SELECT * car si les champs changent cela peut donner des erreurs difficiles à détecter.
Il faut donc mieux nommer les champs, mais ce n'est pas obligatoire.

Mais où récupères-tu le résultat de la requête ? Ce n'est pas là qu'il y a une erreur ?

Citation:

---

Envoyé par tintinux

Bonjour

Je ne pense qu'il ne faut pas assigner DataField.
Cela est fait automatiquement quand la requête est préparée (ou ouverte).

Aussi, on déconseille, en général, les requêtes avec SELECT * car si les champs changent cela peut donner des erreurs difficiles à détecter.
Il faut donc mieux nommer les champs, mais ce n'est pas obligatoire.

Mais où récupères-tu le résultat de la requête ? Ce n'est pas là qu'il y a une erreur ?

---

Bonsoir Tintinux,

Merci bcp pour ta réponse.

J'ai suivi ton conseil et supprimé les assignations des DataField. Après de multiples tâtonnements, je me suis aperçu que le problème provient d'une requête "Select Count(*) from processus" que j'ai affecté au même composant ProcSqlQuery dans une fonction privée (GetNumRecords) de TProcForm qui devait me permettre de connaître le nombre d'enregistrements dans la base MySQL et donc de savoir si la table est vide.

J'ai donc supprimé cette fonction et l'affectation "Select Count(*) from processus" à la requête. J'ai cependant entré les noms de champs dans la propriété DataField des composants d'affichage (DBEdit et DBMemo) à l'aide de l'inspecteur d'objet. Le code corrigé devient donc:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TProcForm.FormShow(Sender: TObject); begin ActivateProcFormComponents(true);   With DataModuleDoc.ProcSQLQuery do begin SQL.Clear; SQL.Text:='Select * from processus order by IDPROC'; Open; end;   SetDataChanged(false); end;

---

Sais-tu par expérience si Lazarus connaît des problèmes pour gérer les requêtes SQL du type Select Count(*) ?:|

Merci d'avance pour tes commentaires

A+
Biobytes

Citation:

---

Sais-tu par expérience si Lazarus connaît des problèmes pour gérer les requêtes SQL du type Select Count(*)

---

Non, je ne connais aucun problème :lol:

Pour info, afin d'éviter 2 requêtes il est possible de tester comme ça, s'il est utile de faire quelque chose quand la requête ne retourne rien :

Code:

---

1 2 3 4 5 6 7 8 9 10

ProcSQLQuery.Open ; if not ProcSQLQuery.Eof then While not ProcSQLQuery.Eof do begin Action ; Next ; end else AutreAction ;

---

Mais quel est ton souci maintenant ? Toujours le même message ou un autre ?

Si c'est le même, et que le champ DbEdit est bien lié à la bonne requête, c'est que la table ne contient pas de champ CODEPROC.
Vérifie en essayant d'afficher après ouverture de la requête, par exemple :

Code:

---

1 2 3 4

ShowMessage ( ProcSqlQuery.FieldByName('CODEPROC').AsString ); ShowMessage ( ProcSqlQuery.Fields[0].AsString ); ShowMessage ( ProcSqlQuery.Fields[0].FieldName );

---

Si tu donnes tout le code, il sera plus facile de t'aider !

Bonsoir Tintinux,

Merci pour le snippet de la requête qui ne retourne rien.

Maintenant je n'ai plus aucun message d'erreur et tout fonctionne parfaitement bien jusqu'à maintenant :D. Je marque donc le fil de discussion comme résolu.

La solution était de supprimer la fonction privée qui lançait la requête "Select Count(*) from processus" au moment du OnShow de la fenêtre qui lance la requête "Select * from processus order by IDPROC" afin de remplir les DBEdit et le DBMemo.

Je ne sais pas pourquoi mais ça marche.

Encore merci pour ton aide

Cordialement
Biobytes