inserer une valeur float dans un table

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:

---

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

Deux façons de faire :

Code:

---

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

---

ou

Code:

---

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

---

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

Citation:

---

Envoyé par ALWEBER

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é

Citation:

---

Envoyé par sergio_is_back

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';

Citation:

---

Envoyé par heart100

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

---

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

Citation:

---

Envoyé par sergio_is_back

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.

:arf: ADO (toujours pas ma tasse de thé), il faut typer les paramètres.
Je ne savais pas que l'on pouvait mettre plusieurs instructions non terminées par des ; au sein d'un ADOQuery 8O

Citation:

---

Envoyé par SergioMaster

:arf: ADO (toujours pas ma tasse de thé), il faut typer les paramètres.
Je ne savais pas que l'on pouvait mettre plusieurs instructions non terminées par des ; au sein d'un ADOQuery 8O

---

loin de ADO comment je peux transferer le contenu d'un dbedit format ### ###.00 dans une table en utilisant une requette

Déjà, je suis contre les StrToFloat trop réducteurs et dangereux je préfère un StrToFloatF et encore avec FormatSettings mais là on aurait plutôt à faire à autre chose.

Citation:

---

comment je peux transferer le contenu d'un dbedit format ### ###.00

---

en passant la valeur Format('%m',[champdudbedit]) par exemple mais est-ce une bonne idée ? AMHA non, car certaines bases de données ont leur propre formatsetting, c'est bien un float qu'il faut passer en requête.

je ne suis pas d'accord avec dm.calc.Parameters.ParamByName('a').value:=detail_perso.dbedit8.text;, il faut utiliser le champ de DBEdit8 (et son datasource cela va de soit)
et de typer le paramètre

Code:

---

1 2	dm.calc.Parameters.ParamByName('a').DataType:=ftFloat; dm.calc.Parameters.ParamByName('a').AsFloat:=detail_perso.dbedit8.DataSource.FieldByName(detail_perso.dbedit8.FieldName).asFloat;

---

bien sûr ceci écrit sans filet, et comme je n'ai ni la datasource ni le nom de colonne j'ai essayé de récupérer à partir de dbEdit8 les infos

Peut êtr quelque chose comme cela :

Code:

---

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