Discussion :

[sessime]

Salut,
je developpee une appli ous DELPHI 7 avec comme base de données sous ORACLE 9.2i.
J'ai defini un chanmp de float dans une
de mes tables (mont_reglement float(10)).
Quand j'essaie d'envoyer des valeurs numeriques dans ce champ j'ai l'erreur suivante :
ORA-01722 nombre invalide.

Voici un exemple de code qui renvoit l'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
 
      ClientDataSet.Open;
               ClientDataSet.Insert;
               ClientDataSet.FieldByName('REF_REGLEMENT').AsString:=TREGLEMENT.FieldByName('RG_NO').AsString;
               ClientDataSet.FieldByName('REF_JOURNAL').AsString:=TREGLEMENT.FieldByName('JO_NUM').AsString;
               ClientDataSet.FieldByName('REF_TIERS').AsString:=TREGLEMENT.FieldByName('CT_NUMPAYEUR').AsString;
               ClientDataSet.FieldByName('MONT_REGLEMENT').AsFloat:=TREGLEMENT.FieldByName('RG_MONTANT').AsFloat;
 
               ClientDataSet.ApplyUpdates(0);

Merci de m'aider

[Rayek]

Essaie comme ca

Code :

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

1
2
 
ClientDataSet.FieldByName('MONT_REGLEMENT').AsString:= FormatFloat('0.00',TREGLEMENT.FieldByName('RG_MONTANT').AsFloat);

[sessime]

Je suis desole Malatar ca fonctionne pas ,j'ai toujours la meme erreur.
Merci de m'aider.

[Rayek]

A la palce du . dans le FormatFloat met une , pour tester

[Cl@udius]

Salut,

Personellement je conserverais le point ( . ) pour le FormatFloat, mais je le ferais précéder par:

Code :

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

1
2
 
  DecimalSeparator := '.';

En le restaurant à son état initial si nécessaire.
@+

[sessime]

Aussi bien la solution de Malatar et Claudius40 ne marche pas.
je sais pas trop comment faire maintenant.
Y a pas une autre piste.
merci de m'aider.,

[Rayek]

Tu peux fournir la structure complète de la table (pas que le champ réglement), car autant c'est un des autres champs qui retourne l'erreur.

[sessime]

Voici la structure de ma table reglement obtenu avec la commande describe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
SQL> describe reglement;
 Nom                                       NULL ?   Type
 ----------------------------------------- -------- ---------------------------
 REF_REGLEMENT                             NOT NULL VARCHAR2(20)
 REF_JOURNAL                                        VARCHAR2(15)
 MONT_REGLEMENT                                     FLOAT(10)
 DATE_REGLEMENT                                     DATE
 SENS                                               VARCHAR2(14)
 MODE_REGLEMENT                                     VARCHAR2(9)
 NUM_CHEQUE                                         VARCHAR2(30)
 BANQUE_TIERS                                       VARCHAR2(30)
 BANQUE_REMISE                                      VARCHAR2(30)
 BANQUE_EMETTEUR                                    VARCHAR2(30)
 REF_FACTURE                                        VARCHAR2(20)
 DATE_OPERATION                                     DATE
 REF_TIERS                                          VARCHAR2(8)

[Rayek]

Juste comme çà, il faut pas fair eun post avant le applyupdates ?

Code :

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

1
2
3
 
ClientDataSet.Post;
ClientDataSet.ApplyUpdates(0);

[sessime]

Malatar,j'ai pas compris votre derniere reponse car dans mon code je n'ai pas fait du post avant applyupadtes ou c'est ce que tu me suggeres comme code pour resoudre mon problème.
Merci de m'apporter les eclaircissements sur ton dernier post.

[pedro226]

La réponse à ta question réside dans :
'ALTER SESSION SET NLS_NUMERIC_CHARACTERS=''.,'''

que tu peux ajouter pour que oracle accepte les décimales françaises .

créez l'événement OnAfterConnect, et placez-y l'instruction
SqlConnection1.ExecuteDirect(
'ALTER SESSION SET NLS_NUMERIC_CHARACTERS=''.,''');

plus de détail sur http://www.jcolibri.com/articles/bdd..._tutorial.html

ciao