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.

[SergioMaster]

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

[heart100]

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

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

[SergioMaster]

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.

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 :

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

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

[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