Problème avec une requête paramétrée

[youce90]

Bonsoir !
j'aimerai insérer des lignes à partir de mon application Delphi,
Mais comme les valeurs sont des chaines de caractères, il doivent être délimitées par des cotes
et aussi les noms des paramètres doivent etre précédés par ':'.
J'ai essayé le suivant:

Code :

1
2
3
4
5
6
7
8
9
.
.
.
with query1 do
  begin
  sql.clear;
  sql.Add('Insert into Matable values('+quotedstr(':nom')+')');
  parameters.parambyname('nom').value:=edit1.text;
  end;

Je pense que le problème avec mon code c'est qu'il rajoute les cotes avant de charger les paramètres,
et je n'arrive pas à inverser les choses.

[seabs]

Bonjour,

Une requête d'insertion s'écrit ainsi

Code :

1
2
INSERT INTO MaTable(Col_1, Col_2, Col_3) 
VALUES(:pCol_1, :pCol_2, :pCol_3)

En partant de ce principe, ton code devrait être

Code :

1
2
3
4
5
6
7
8
with query1 do
  begin
  sql.clear;
  sql.Text := 'INSERT INTO MaTable(Col_1, Col_2, Col_3) VALUES(:pCol_1, :pCol_2, :pCol_3)';
  parameters.parambyname('pCol_1').value:=edit1.text;
  parameters.parambyname('pCol_2').value:=edit2.text;   
  parameters.parambyname('pCol_3').value:=edit3.text;
end;

Je pense que tu peux supprimer sql.clear. A vérifier.

Ainsi, tu n'es plus ennuyé par les délimiteurs

A+

[SergioMaster]

Envoyé par seabs

Je pense que tu peux supprimer sql.clear. A vérifier.

exact à partir du moment où tu utilises SQL.text:= ....
car SQL.Text:= "réinitialise" la propriété SQL

[e-ric]

Je comprend mal ton besoin, pourquoi ne pas écrire directement :

Code :

1
2
3
4
5
6
7
 
with query1 do
  begin
  sql.clear;
  sql.Add('Insert into Matable values(:nom)');
  parameters.parambyname('nom').value:=edit1.text;
  end;

Il s'agit d'un paramètre pas d'une valeur littérale (une constante si tu préfères), dans ce dernier cas, tu aurais eu besoin de "quoter" ta valeur (qui n'est alors plus un paramètre).

Pour seabs, si tu affectes directement la propriété SQL.Text, effectivement, le SQL.Clear est superflu.

Cdlt