Discussion :

[forzaxelah]

Bonjour,

J'aurais une simple question.

J'effectue un calcul à l'aide de variables.
Je souhaite mettre ces variables dans une requete SQL mais ces valeurs ne sont pas de type string (pour QuotedStr) mais de type float.

Exmple:

Code :

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

1
2
3
4
5
6
7
WITH DataModule1.QCurrency DO
    BEGIN
      SQL.Clear;
      SQL.Add('UPDATE Arbo');
      SQL.Add('   SET Prix = Prix*(NouveauTauxDevise/AncienTauxDevise)   ,Cout_Conso = Cout_Conso*(NouveauTauxDevise/AncienTauxDevise)');
      SQL.Add('WHERE A.ID_Engin_FK3 = '+ QuotedStr(IDLoco_Edit.Text));
      ExecSQL;

Et donc le rapport ici n'est pas correcte car pas entre quote. Mais comme ce sont des Float je ne sais pas comment les implémenter dans ma requête.
Vous auriez une idée?

Merci

[cmen76]

IDLoco_Edit.Text -> ça c'est du string
A.ID_Engin_FK3 -> ça c'est du numérique ?

syntaxiquement en SQL :
...'where champnum = 3.14 and ...' (sans quotes autour de 3.14) est correct

[forzaxelah]

En fait c'est pour :

Code :

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

*(NouveauTauxDevise/AncienTauxDevise)

que je voulais parler, car ce sont des float....

[cmen76]

Code :

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

1
2
3
 
...*('+StringReplace(FloatToStr(NouveauTauxDevise), ',', '.')+'/'+
StringReplace(FloatToStr(NouveauTauxDevise), ',', '.')+') ...

[Eric.H]

J'effectue un calcul à l'aide de variables.
Je souhaite mettre ces variables dans une requete SQL mais ces valeurs ne sont pas de type string (pour QuotedStr) mais de type float.

Le plus simple et propre et d'utiliser des paramétres, regarde du coté de ParamByName() dans l'aide

Code :

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

1
2
3
4
5
6
7
8
WITH DataModule1.QCurrency DO
    BEGIN
      SQL.Clear;
      SQL.Add('UPDATE Arbo');
      SQL.Add('   SET Prix = Prix*(NouveauTauxDevise/AncienTauxDevise)   ,Cout_Conso = Cout_Conso*(NouveauTauxDevise/AncienTauxDevise)');
      SQL.Add('WHERE A.ID_Engin_FK3 = :ID_Engin_FK3');     
      ParamByName('ID_Engin_FK3').AsFloat := Ma_variable_float;
      ExecSQL;

[forzaxelah]

Le hic c'est que:

Code :

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

SQL.Add('   SET Prix = Prix*(NouveauTauxDevise/AncienTauxDevise)

NouveauTauxDevise et AncienTauxDevise sont des variables donc n'ont rien à faire dans mon code SQL....

[forzaxelah]

Code :

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

1
2
3
 
...*('+StringReplace(FloatToStr(NouveauTauxDevise), ',', '.')+'/'+
StringReplace(FloatToStr(NouveauTauxDevise), ',', '.')+') ...

Pourrais tu m'expliquer brièvement cette ligne de code afin de bien omprendre s'il te plait?

[qi130]

Pourrais tu m'expliquer brièvement cette ligne de code afin de bien omprendre s'il te plait?

Ca remplace les "," par des "." afin que la chaine puisse être concaténée à ta requète. (une valeur 3,14 n'est pas correcte pour le sgbd, et comme ton système windows est paramétré France, le séparateur décimal utilisé pour la restitution est la virgule)

La solution est sans doute dans le paramétrage complet de ta requète:

Code :

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

1
2
3
4
5
6
7
SQL.Clear;
      SQL.Add('UPDATE Arbo');
      SQL.Add('   SET Prix = :PRIX   ,Cout_Conso = :COUT');
      SQL.Add('WHERE A.ID_Engin_FK3 = '+ QuotedStr(IDLoco_Edit.Text));
      SQL.ParamByName('PRIX').AsFloat:=Prix*(NouveauTauxDevise/AncienTauxDevise);
      SQL.ParamByName('COUT').AsFloat:=Cout_Conso*(NouveauTauxDevise/AncienTauxDevise);
      ExecSQL;

Qu'il faudra sûrement enrichir avec le stringreplace pour assurer le bon format de séparateur décimal.

[forzaxelah]

Mais dans ta ligne:

Code :

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

1
2
ParamByName('Prix').AsFloat:=Prix*(NouveauTauxDevise/AncienTauxDevise);
      ParamByName('Cout_Conso').AsFloat:=Cout_Conso*(NouveauTauxDevise/AncienTauxDevise);

Comment lui dire que

Code :

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

Prix

n'est pas censé être une variable mais correspond à une cellule d'un champ de la table?

dsl je suis un peu largué...

[qi130]

Ah...oui, alors le paramètre doit être le résultat de

Code :

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

Tx:=NouveauTauxDevise/AncienTauxDevise;

Code :

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

SQL.Add('   SET Prix = Prix *:TAUX.....

puis

Code :

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

SQL.ParamByName(TAUX).AsFloat:=Tx;

ou (à tester)

Code :

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

1
2
SQL.ParamByName(TAUX).AsString:=
           StringReplace(FloatToStr(Tx), ',', '.');