Discussion :

[bzhvarik]

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

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 :

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

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 :

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

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 :

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
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

[methylene]

Code :

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

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

[bzhvarik]

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 ?

[methylene]

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 :

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

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".

[bzhvarik]

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

[methylene]

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

[bzhvarik]

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 :

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

SUM(MONTANT_MP) <--- 191

Code :

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

SUM(MONTANT_MP * MARGE_MP) <--- 286.5

Donc mon code fait :

Code :

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

1
2
totalmpnm = 191
        totalmpm = 286.5

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

Code :

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

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 ?