SQL + vb , la guerre des décimal

Bonjour, désolé pour le titre, je commence à avoir l'esprit qui chauffe :evil:.

Je suis sur que c'est très très con, mais je ne m'en sors pas. Voilà le souci :

J'ai une table

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

/*==============================================================*/ /* Table : MP */ /*==============================================================*/ create table MP ( CODE_MP int not null auto_increment, CODE_DEVIS int not null, CODE_TYPE_MP int not null, NOM_MP varchar(50), MONTANT_MP decimal, MARGE_MP decimal, primary key (CODE_MP) );

---

Et je désire faire une requête toute bête avec un petit calcul :

Code:

---

select SUM(MONTANT_MP), SUM(MONTANT_MP * MARGE_MP) from MP where CODE_DEVIS=unentier

---

Bref, la requête fonctionne très bien, je l'ai testée soys phpmyadmin.
Mais avec vb.net, dès que le résultat n'est pas entier, l'affichage est impossible.
Je suppose que c'est le point "." faisant office de virgule sous mysql qui vient poser problème sous vb.net, sauf que je ne vois pas comment résoudre ce problème.
Voilà le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim totalmpm As Decimal Dim totalmpnm As Decimal   Dim cnxmp As MySqlConnection cnxmp = New MySqlConnection(M_PAP.cnx) cnxmp.Open() Dim cmdmp As MySqlCommand cmdmp = cnxmp.CreateCommand() cmdmp.CommandText = "select SUM(MONTANT_MP), SUM(MONTANT_MP * MARGE_MP) from MP where CODE_DEVIS=" & M_PAP.codedevis & "" Dim drmp As MySqlDataReader drmp = cmdmp.ExecuteReader() drmp.Read()   totalmpnm = drmp.GetValue(0) totalmpm = drmp.GetValue(1)   cnxmp.Close()   T_MP_Non.Text = totalmpnm T_MP_oui.Text = totalmpm

---

Si "totalmpnm" et "totalmpm" sont entier, aucun souci, ils s'affichent dans les textbox.
En revanche si l'un des deux comporte un ".", c'est à dire n'est pas entier, alors plus rien ne fonctionne.

Une idée pour régler ce problème ?

Merci d'avance

Code:

---

Replace(Tadonnée, ",", ".")

---

Merci d'essayer de m'aider, mais sans vouloir être désagréable, je ne pense pas que tu ais lu le sujet.

Je vais chercher des décimal dans la base, ils sont donc stocké avec des "." en guise de séparateur.

Et tu me propose de remplacer des virgules (qui n'existent nulle part) par des points (qui sont déjà là et qui apparemment sont justement la source du problème), le tout dans une chaîne alors que ma valeur est numérique.

Merci quand même.:?

D'autres idées ?:(

Pour ton information, vb travaille avec des points dans ses chiffres, et non avec des virgules.

De plus si j'ai mis un string, c'était juste pour illustrer.

Cependant, le problème ne venant d'après moi pas du".", tu devrais peut-être essayer de travailler avec des "Double" ou des "Single" tout dépend le nombre de chiffres que tu utilise.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

/*==============================================================*/ /* Table : MP */ /*==============================================================*/ create table MP ( CODE_MP int not null auto_increment, CODE_DEVIS int not null, CODE_TYPE_MP int not null, NOM_MP varchar(50), MONTANT_MP Double, MARGE_MP Double, primary key (CODE_MP) );

---

PS : en même temps je n'ai jamais travaillé avec le format "Decimal".

Citation:

---

Pour ton information, vb travaille avec des points dans ses chiffres, et non avec des virgules.

---

Je sais, et je n'ai jamais dis le contraire. Nulle part que ce soit dans mySQL ou dans mes saisies, ou mon code, il n'y a de virgules, c'est pour cela que je m'étonnais du fait que tu me demande de remplacer des virgules --> ya pas de virgules à remplacer.


Je vais tester avec des Double, si jamais je peux contourner le problème comme ça, ça sera déjà très bien.

Merci:ccool:

Citation:

---

Je sais, et je n'ai jamais dis le contraire. Nulle part que ce soit dans mySQL ou dans mes saisies, ou mon code, il n'y a de virgules, c'est pour cela que je m'étonnais du fait que tu me demande de remplacer des virgules --> ya pas de virgules à remplacer.

---

J'avais juste lu ton post un peu vite, je dois l'admettre :oops:

Hop, je viens de tester avec Double, Float, etc ..

Rien n'y fais cela a bien l'air de venir de ce foutu "."

Au final, pour avoir toutes les données du problème :

Les 2 résultats de la requête sont :

Code:

---

SUM(MONTANT_MP) <--- 191

---

Code:

---

SUM(MONTANT_MP * MARGE_MP) <--- 286.5

---

Donc mon code fait :

Code:

---

1 2	totalmpnm = 191 totalmpm = 286.5

---

J'ai demandé à des msgbox d'afficher à ce moment les deux valeurs

Code:

---

1 2 3 4

totalmpnm = drmp.GetValue(0) MsgBox(totalmpnm, MsgBoxStyle.OkOnly, "!!!!!!!!") totalmpm = drmp.GetValue(1) MsgBox(totalmpm, MsgBoxStyle.OkOnly, "!!!!!!!!")

---

la première s'affiche bien, pour ce qui est de la seconde, la msgBox n'apparaît même pas.

Le problème semble donc bien venir du point.

Des idées ?

J'avoue que je sèche, c'est bizarre en effet. Il va falloir attendre la réponse de quelqu'un d'autre, mais je vais suivre le topic, car je ne comprends pas ce qui foire.

Bonjour,

Sur le poste où tu teste l'application quelle est la valeur des paramètres régionaux pour le séparateur décimal ???

Quelque idée et pistes en vrac.

Qu'est ce qui se passe si tu fais 2 requêtes (une pour chaque résultat?)

As-tu essayer de nommer les colonnes de résultat ( AS blabla )

As-tu essayer de caster la colonne de résultats sur Mysql (Forcer un type). Par exemple en chaine de caractère? Puis à caster à nouveau en VB si besoin?

Si tu as une datatable as-tu essayer la même opération avec un compute()?


Si t'as msgbox n'apparait pas est-ce que tu as une erreur (C'est le point le plus strange dans ta problèmatique....)?

As-tu regarder l'évolution de la valeur tes variables en pas à pas?

Bonne chance

Sur ton DataReader tu as des méthodes GetString, GetDecimal, GetInt32, ... afin de récupérer la valeur dans le bon type. As-tu essayé d'utiliser GetDecimal au lieu de GetValue ?

les double et float sont dangereux, les decimal sont bien mieux

ton problème parrait étrange, mais je vois une chose mal écrite

un decimal = un object

utilise un cast ou un tryparse, parce que si ta valeur vaut null ca va planter

sinon avec un point d'arret tu verras le contenu de getvalu(1)

Bonjour, et merci de votre interêt ;)

C'est à n'y rien comprendre, mais hier soir, un peu à cours d'idées, j'ai sauvegardé mes données, supprimé la bdd, et recréé la base avec le script SQL.

Et ça marche ...

Les getdecimal à la place des getvalue ne changaient rien, aucune erreur pour la msgBox, au final malgré toutes vos bonnes pistes : rien.

Et une réinstallation de la base , hop ça marche. :?

Je marque comme résolu, mais le mystère reste complet pour moi, sachant qu'il n'y a AUCUNE différence entre les anciennes données et les nouvelles 8O

Merci au passage à Pol63 pour le conseil ;)

Même si ce n'est pas dans mes habitudes, j'ai l'impression que parfois ... faut pas chercher à comprendre :?

Citation:

---

Envoyé par Pol63

les double et float sont dangereux, les decimal sont bien mieux

---

Au passage en quoi les Double et les Float sont-ils dangereux?

Citation:

---

Envoyé par methylene

Au passage en quoi les Double et les Float sont-ils dangereux?

---

http://www.developpez.net/forums/d81...-correctement/


http://www.developpez.net/forums/d53...e/#post3165715

Intéressant, en effet :-)

Merci pour ta réponse.