Discussion :

[chekkal]

Bonjour,

J'utilise souvent des requettes sql dans mes programmes exple:

Code :

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

1
2
3
 
TAB.sql.add(update table1 set des='Zone D'instruction');
TAB.execsql;

Cette commande va renvoyer une erreur du fait que la valeur donnée au champs "des" contient une apostrophe. La solution immédiate serait de réécrire le code comme ceci

Code :

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

1
2
3
 
TAB.sql.add(update table1 set des='Zone D''instruction');
TAB.execsql;

Mais le probléme, c'est dans le cas ou la valeur du champs est variable et vient d'une autre table, comment la contrôler avant la validation?

[SergioMaster]

Bonjour,

1- c'est un problème delphi pas firebird
2- les deux SQL dans le code sont faux TAB.sql.add('update table1 set des='Zone D'instruction'');, la fonction add attends une chaine de caractères
3- Il manque un Tab.SQL.Clear ou alors utilisez TAB.sql.Text:='update table1 set des='Zone D'instruction''; ;
4- vous devriez utiliser une requête paramétrèe

Code pascal :

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

1
2
3
TAB.sql.Text:='update table1 set des=:d';
TAb.ParambyName('d').asString:=QuotedStr('Zone D''instruction');
Tab.ExecSQL;

bien que cela n'empêchera pas d'avoir à utiliser la double apostrophe, mais c'est un problème de langage

P.S. encore une fois vous avez oublié d'indiqué le type de composant utilisé !

[ShaiLeTroll]

je reprends ceci et juste je modifie pour répondre à "valeur du champs est variable"

Code pascal :

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

1
2
3
TAB.sql.Text:='update table1 set des=:d';
TAb.ParambyName('d').asString:= Edit1.Text // DataSet1.FieldByName('d').AsString
Tab.ExecSQL;

P.S. encore une fois vous avez oublié d'indiqué le type de composant utilisé !

Et je dirais qu'encore une fois, c'est la même question qui est posé avec la même réponse et chekkal n'écoute pas nos conseils

Bonjour,
moi j'utilise jamais les parambyname même si on me la beaucoup recommandé dans ce forum sinon...

Et tout cela est tellement trivial :

Code :

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

1
2
TAB.sql.Text := 'update table1 set des=' + QuotedStr(DataSet1.FieldByName('d').AsString);
TAB.execsql;

[escartefigue]

Il n'y a aucun problème en ce cas, car vous n'affectez pas une constante délimitée par des quotes (c'est là qu'on peut avoir un souci avec les apostrophes) mais la valeur d'une colonne d'une table, et là, pas besoin de délimiteur

[chekkal]

Il manque un Tab.SQL.Clear

Non, je l'ai pas oublié, j'ai seulement oublié de le mentionner.

Il n'y a aucun problème en ce cas, car vous n'affectez pas une constante délimitée par des quotes (c'est là qu'on peut avoir un souci avec les apostrophes) mais la valeur d'une colonne d'une table, et là, pas besoin de délimiteur

j'ai pas compris.

[Gouyon]

Pour avoir souvent rencontré ce type de problème j'utilise dans mon code chr(39) en lieu et place du ' et " pour tous ce qui est chaine de caractère dans les chaines sql
exemple
instruction SQL

Code sql :

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

INSERT INTO `t_action` VALUES ('32', 'TestMoralOK', 'Signale la réussite d\'un test de moral');

sera traduite en code

Code :

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

s:='INSERT INTO `t_action` VALUES ('+chr(39)+'32'+chr(39)+', '+chr(39)+'TestMoralOK'+chr(39)+');';