Delphi 10 et TIBSQL

Bonjour,
Quelqu'un peut-il m'aider à résoudre mon problème.
Je suis sous Delphi 10 avec une connexion à une base Firebird.
Je veux utiliser le composant TIBSQL pour récupérer des enregistrements d'une table.

Lorsque je définie ma requête directement dans le SQL_pltg.SQL

Code:

---

SELECT N_LOT , N_PLANT, NB_PIED, ANNEE, SEMAINE, SURFACE from PLANTING WHERE ID_SECT = 'Y2'"

---

et que je l'exécute, tout se passe très bien.

Lorsque j'exécute la même requête dans une unité comme ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9 10

begin sect := s_sect.text; SQL_pltg.Close; SQL_pltg.sql.clear; SQL_pltg.SQL.add('SELECT N_LOT,SURFACE,ANNEE,SEMAINE,NB_PIED FROM PLANTING WHERE ID_SECT = ''Y2'''); SQL_pltg.ExecQuery; surf :=SQL_pltg.fieldbyname('SURFACE').asdouble; nbpied :=SQL_pltg.fieldbyname('NB_PIED').asdouble; an_fl :=SQL_pltg.fieldbyname('ANNEE').asinteger; sem_fl :=SQL_pltg.fieldbyname('SEMAINE').asinteger;

---

cela fonctionne parfaitement.

Mon problème vient du fait que je veux pouvoir changer ma valeur de sélection 'Y2' en la saisissant dans un TEDIT,
puis de l'introduire dans la requête de sélection sous forme de paramètre.

J'ai essayé différentes forme, mais aucune ne fonctionne:

Code:

---

SQL_pltg.SQL.add('SELECT N_LOT,SURFACE,ANNEE,SEMAINE,NB_PIED FROM PLANTING WHERE ID_SECT = ' + sect);

---

La compilation se déroule normalement, mais j'ai une erreur d'exécution: "SQL error code = -206, column unknown Y2"

Code:

---

SQL_pltg.SQL.add('SELECT N_LOT,SURFACE,ANNEE,SEMAINE,NB_PIED FROM PLANTING WHERE ID_SECT = :sect');

---

La compilation se déroule bien, l'exécution également, mais la requête ne renvoie aucunes données.

Sur les forums, je n'ai pas trouvé grand chose sur TIBSQL et rien qui explique mon problème. Et je ne comprends pas pourquoi dans le 1er test;
delphi prend la valeur que je lui passe pour le nom d'un colonne.

Toute aide sera la bienvenue.

Merci d'avance.

Bonjour,
Utiliser QuotedStr(MyEdit.Text) fonctionne-t-il mieux ?

Bonjour,

La bonne solution est d'utiliser la requête paramétrée (la dernière)

Code:

---

1 2 3 4 5

SQL_pltg.Close; SQL_pltg.SQL.Text:='SELECT N_LOT,SURFACE,ANNEE,SEMAINE,NB_PIED FROM PLANTING WHERE ID_SECT =:sect'; SQL_pltg.ParamByName('sect').asstring:=s_sect.text; SQL_pltg.Open;

---

Si vous avez une erreur

Citation:

---

j'ai une erreur d'exécution: "SQL error code = -206, column unknown Y2"

---

c'est normal car, pour l'interpreteur de SQL vous indiquez un colonne et non une valeur, la suggestion de Tourlourou ( QuotedStr(Sect) ) fonctionnera aussi mais ce n'est pas vraiment une forme conseillée

Quelques remarques :
les composants IBxxxxx sont de moins en moins succeptibles de fonctionner correctement avec Firebird, de plus il faut que fbclient.dll soit aussi copiée en gds32.dll.
Si vous en avez la possiblité utilisez plutôt les composants Firedac ainsi le code au dessus pourrait devenir : SQL_pltg.Open('SELECT N_LOT,SURFACE,ANNEE,SEMAINE,NB_PIED FROM PLANTING WHERE ID_SECT =:sect',[s_sect.text]);

Bonjour à tous,

Merci Tourlourou, mais je n'ai pas testé votre solution. J'ai plutôt testé celle de SergioMaster qui fonctionne très bien. Cela m'a même permit de compendre mon erreur.

En réalité, je pensais que l'expression ":sect" servait à passer sous forme de paramètre ma variable "sect", mais c'est une grosse erreur.

Après avoir testé votre proposition qui fonctionnait parfaitement, je pensais que ma première expression après le "Begin"

Code:

---

sect := s_sect.text;

---

faisait double usage avec la nouvelle instruction

Code:

---

SQL_pltg.ParamByName('sect').asstring:=s_sect.text;

---

.
En supprimant ma première expression, la requête s'exécute parfaitement, sauf que dans ma fenêtre de suivi des variables, la variable "sect" reste vide, alors que les autres reçoivent bien les données.
Conclusion, ":sect" et "sect" sont deux choses complètement différentes.

Je vais continuer mon programme, et il est fort possible que j'ai à nouveau des problèmes avec les TIBSQL, car maintenant, je dois créer des enregistrement dans une nouvelle table et faire des mises à jour.

Merci pour tout.