Delphi Et Oracle Ora-01722

Version imprimable

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:

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

Essaie comme ca

Code:

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

01/12/2006, 16h06
sessime

Je suis desole Malatar ca fonctionne pas ,j'ai toujours la meme erreur.
Merci de m'aider.
01/12/2006, 16h08
Rayek

A la palce du . dans le FormatFloat met une , pour tester
01/12/2006, 16h17
Cl@udius
Salut,

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

1 2 DecimalSeparator := '.';
En le restaurant à son état initial si nécessaire.
@+
01/12/2006, 19h46
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.,
04/12/2006, 08h28
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.

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

Code:

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)

04/12/2006, 11h45
Rayek
Juste comme çà, il faut pas fair eun post avant le applyupdates ?
Code:

1 2 3 ClientDataSet.Post; ClientDataSet.ApplyUpdates(0);
04/12/2006, 16h30
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.
04/12/2006, 16h41
Rayek

Citation:

Envoyé par 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.

Oui, il serait bien que tu tests en mettant un Post pour valider les données dans le clientdataset avant de faire applyUpdates
04/12/2006, 20h41
sessime

Avec un post suivi d'un applyupdates j'ai toujours le meme probleme,la meme erreur.
Pour informations j'utilise une connexion dbexpress et mon clientdataset est un TSimpledataset.

Merci de m'aider si cette information que je vous donne pourrait etre utile.
Merci

Et si tu fais ca :

Code:

1
2
3
4
5
6
7
8
 
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:=0.00;
ClientDataSet.ApplyUpdates(0);

Est ce que cela fonctionne ?

05/12/2006, 19h52
sessime

Cette possibilité ne fonctionne pas non plus,quand je le mets en ouevre il me renvoit la meme erreur et quand j'insiste la dessus il me renvoit ensuite l'erreur enregistrement introuvable.
Merci de m'aider.
21/01/2007, 14h40
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 .

Citation:

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