Discussion :

[jean sami]

bonjour à tous
j'ai créé une table "article"sous oracle qui contient un attribut "montant" de type numérique (numeric(12,2)),,,j'ai créé un "edit" sous delphi pour ajouter sa valeur à la table "article" (grace à insert into article(montant) values(edit1.text)) ) .. si je tape une valeur sans virgule il l'accepte, mais lorsque je tape par exemple '123,45' il m'affiche ce message "trop de valeurs"... j'ai essayé toutes les methodes mais sans interet
pouvez vous m'aider SVP

[Cl@udius]

Salut

C'est normal en SQL le séparateur décimal est le point (.)
Donc tu as plusieurs solutions:

• substituer la virgule par un point pendant la saisie (via KeyPress)
• Ou alors effectuer cette substitution avant de transmettre la valeur à ta requête
• Ou enfin stocker la saisie dans une variable de type Float ou Currency et transmettre cette valeur à ta requête paramétrée dans ce cas

Voilà
@+ Claudius

[jean sami]

je vous jure que j'ai essayé tout ce que vous avez dit:
-j'ai essayé la virgule et le point
-j'ai ajouté cette instruction dans le code source "DecimalSeparator:= '.'/ ',' "(j'ai essayé les deux)
-j'ai déclaré x:float x:=strtofloat(edit1.text)
......add values... floattostr(x);

mais toujours le même message

[Cl@udius]

... mais lorsque je tape par exemple '123,45' il m'affiche ce message "trop de valeurs"...

Avec cette requête:

Code :

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

SQL.Text := 'insert into article(montant) values(' + edit1.text + ')'

Si ta valeur contient une virgule le résultat sera:

Code sql :

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

insert into article(montant) values(124,45)

d'où l'erreur puisque SQL interprète 2 valeurs distinctes: 124 et 45.

La solution la plus simple est substituer ta virgule par un point pendant la saisie dans le TEdit:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',' , '.', Chr(VK_BACK), Chr(VK_DELETE)]) then
    Key := #0;
  if Key = ',' then
    Key := '.';
end;

[edit]
Ainsi la requête transmise sera:

Code sql :

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

insert into article(montant) values(124.45)

et là ce sera OK

@+ Claudius

[jean sami]

merci pour votre reponse
mais ...mais.... lorsque je fais la consultation de cette table, ni le point apparait ni la virgule (12.45-->1245),,même si je veux affecter la valeur de Edit à une variable : x:real ,x:=strtofloat(edit1.text),, il m'affiche (virgule absente)
sachant que j'ai utilisé la proposition de "keypress"

[sjrd]

Il faut aussi que le type de données du champ de la base de données soit un type qui accepte une partie décimale Si tu utilises un type entier dans ta base, normal qu'il se débarrasse de la partie fractionnaire.

[Cl@udius]

j'ai créé une table "article"sous oracle qui contient un attribut "montant" de type numérique (numeric(12,2))

d'où mon interrogation face à la disparition du séparateur décimal.

Un bout de code devrait nous permettre de voir plus clair.

@+ Claudius

[andreditdd]

Bonsoir,
effectivement un bout de code serait bien venu car:

j'ai créé une table "article"sous oracle qui contient un attribut "montant" de type numérique (numeric(12,2))

crée bien un champ qui accepte des nombres de maximum 12 chiffres et 2 chiffres après la virgule.

C'est normal en SQL le séparateur décimal est le point (.)

C'est exact.

Et donc,

INSERT INTO article(montant) VALUES(124.45)

devrais fonctionner.
Donc je ne vois pas où est la tuile.

André


P.S.: Salut Cl@udius

[JP.NUAGE]

Pour rajouter une tuille suplémentaire, j'ai eu un pb similaire avec une table Firebird. J'ai même essayé de saisir 123.45, de le multiplier par 100 avant la requête et de le diviser par 100 dans la réquête. Rien n'y a fait ....tant que mon champ était déclaré NUMERIC. Dès que je l'ai passé en DECIMAL(15,2) tout à fonctionné.

Maintenant ne me demandez pas pourqoui. C'est un des grands moments de l'informatique !

[jean sami]

merci tous pour vos reponse
concernant la déclaration, comme j'ai mentioné,montant est de type numeric (12,2),donc j'ai essayé la méthode de Cl@udius (keypress) et elle a marché,,, mais lorsque j'ai fait la consultation de cet attribut ,, la virgule est disparait!!
(12.45)-->1245

[Golgotha]

quels sont les composants que tu utilise ?

[jean sami]

sqlconnection et
sqlquery

[andreditdd]

Quand tu consulte ta base de données afin de vérifier la valeur enregistrée, tu le fais via une application Delphi ou via Oracle ?

André

[jean sami]

via une application delphi

[andreditdd]

Afin d'éliminer les inconnues, essaye de voir via Oracle ce qui se trouve dans ta colonne. Car potentiellement, pour le moment on a 2 risques d'erreurs:
1/ l'ecriture
2/ la lecture

André

[jean sami]

oui ça marche sous oracle, il a affiché (12,45)
donc c'est un problème de lecture sous delphi

[andreditdd]

YES !!! Me voila rassuré car ton problème me chatouillait les 2-3 neurones que je possede
Reste à nous montrer le code que tu as mit pour la lecture.

André

[jean sami]

sous delphi ,tout simplement j'ai fait pour la lecture de la valeur de edit.text
'inert into article(montant) values('+edit1.text+');
et pour la consultation (toujours sous delphi):
select montant from article

[andreditdd]

Bonjour,
ton problème est il résolu ?

André

[jean sami]

pas encore,meme si j'utilise le type decimal.. quand je fais 'select montant from article 'sous delphi, il n'ya ni le point ni la virgule,mais sous "sql plus" (d'oracle)ça marche trés bien
j'ai une autre question dans le sous forum composant concernant le DBLookupCombobox qui m'a fatigué, SVP, si vous avez une reponse, aidez moi SVP