Discussion :

[heart100]

Bonjour a tout le monde , utilisant Delphi2010 +sql server 2008 , j'ai 5 dbedit.text qui constituent la table1 et les 5 champs sont des "float " , et je les ai donné le format "### ##0.00", je voulais insérer ces contenus des dbedit dans un autre table qui s'appelle "Rub" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dm.Calc.SQL.Clear;
dm.Calc.SQL.add('update rub set montant= :a where code=110');
dm.Calc.SQL.add('update rub set montant= :b where code=100');
dm.Calc.SQL.add('update rub set montant= :c where code=150');
dm.Calc.SQL.add('update rub set montant= :d where code=160');
dm.Calc.SQL.add('update rub set montant= :e where code=170');
 
dm.calc.Parameters.ParamByName('a').value:=detail_perso.dbedit8.text;
dm.calc.Parameters.ParamByName('b').value:=detail_perso.dbedit7.text ;
dm.calc.Parameters.ParamByName('c').value:=detail_perso.dbedit46.text ;
dm.calc.Parameters.ParamByName('d').value:=detail_perso.dbedit48.text ;
dm.calc.Parameters.ParamByName('e').value:=detail_perso.dbedit51.text ;
dm.Calc.ExecSQL;

Mon probleme c'est que le delphi ou sql server arronde les chiffre après la virgule , par exemple si dbedit7.text=20385.65 la requette sql insere ceci:"20385.00"
généralement je veux savoir si insertion d'un contenu float format:"### ##0.00" dans une table se fait correctement ?
et Merci

[sergio_is_back]

Deux façons de faire :

Code :

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

1
2
dm.calc.Parameters.ParamByName('a').AsFloat:=StrToFloat(detail_perso.dbedit8.text);

ou

Code :

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

1
2
dm.calc.Parameters.ParamByName('a').AsCurrency:=StrToFloat(detail_perso.dbedit8.text);

[ALWEBER]

Peut être utiliser .asString plutôt que .value.
Note le mail de Sergio est apparu pendant que je rédigeais le message.

[sergio_is_back]

Peut être utiliser .asString plutôt que .value.
Note le mail de Sergio est apparu pendant que je rédigeais le message.

Je l'ai corrigé entre temps, j'avais omis StrToFloat() pour convertir les valeurs en Float du coup ça n'aurais pas compilé

[heart100]

Je l'ai corrigé entre temps, j'avais omis StrToFloat() pour convertir les valeurs en Float du coup ça n'aurais pas compilé

erreur: identificateur non déclaré: 'asfloat';

[sergio_is_back]

erreur: identificateur non déclaré: 'asfloat';

Quel est le type la classe de base du composant "dm.calc" ?

[heart100]

Quel est le type la classe de base du composant "dm.calc" ?

dm :datamodule et calc simplement le nom d'un adoquery qui se trouve dans le DM.

[ALWEBER]

Peut êtr quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dm.Calc.SQL.Clear;
dm.Calc.SQL.add('update rub set montant= :a where code=110;');
dm.Calc.SQL.add('update rub set montant= :b where code=100;');
dm.Calc.SQL.add('update rub set montant= :c where code=150;');
dm.Calc.SQL.add('update rub set montant= :d where code=160;');
dm.Calc.SQL.add('update rub set montant= :e where code=170;');
 
FormatSettings.DecimalSeparator := '.'
dm.calc.Parameters.ParamByName('a').value:=StringReplace(detail_perso.dbedit8.text,' ','',[]) ;
dm.calc.Parameters.ParamByName('b').value:=StringReplace(detail_perso.dbedit7.text ,' ','',[]) ;
dm.calc.Parameters.ParamByName('c').value:=StringReplace(detail_perso.dbedit46.text,' ','',[]) ;
dm.calc.Parameters.ParamByName('d').value:=StringReplace(detail_perso.dbedit48.text,' ','',[]) ;

ne pas oublier le ; en fin de chaque ligne comme dit précédement