VB + MYSQL + Inserer corectement Decimal

Bonjour,
Je n’arrive pas à insérer correctement une valeur décimal dans mysql.

J'ai une db sous MYSQL, la colonne est décimal (10,2).
Pour faire simple j'ai qu'une valeur.
Dans TextBox8.Text = 18,55 (pour l'exemple).

Une partie de mon code boutton est le suivant :

Code:

---

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

Dim Sin_IVA, Con_IVA, Diff_IVA As Decimal Sin_IVA = Val(TextBox8.Text) Dim COMMAND As New MySqlCommand Dim READER As MySqlDataReader Dim a As New OpenFileDialog Try MysqlConn.Open() COMMAND.Connection = MysqlConn COMMAND.CommandText = "INSERT INTO CostesMaquinaria (Precio_Sin_Iva) Values (@Value1)" 'COMMAND.Parameters.AddWithValue("@Value1", Sin_IVA) COMMAND.Parameters.AddWithValue("@Value1", MySqlDbType.Decimal).Value = Sin_IVA READER = COMMAND.ExecuteReader MsgBox("Data Save !", MsgBoxStyle.Information) MysqlConn.Close() Catch ex As Exception MessageBox.Show(ex.Message) Finally MysqlConn.Dispose() End Try

---

Malheureusement le résultat dans mysql est 18,00

Que dois-je faire pour avoir le bon résultat.
Merci

Hola :D

Tu as certainement un problème séparateur décimal.

Pour toutes les zones de texte à l'écran, le séparateur est celui défini dans les paramètres régionaux de Windows. L'insertion d'un séparateur de millier (ex. US 10 000.00$) pose aussi des problèmes.
Dans le code, les calcul ne peuvent se faire qu'avec le POINT comme séparateur décimal : 10000.00$.

Pour vérifier que ton problème est bien celui-là, remplace la virgule par un point dans la TextBox : TextBox8.Text = 18.55

Quand cela se vérifie, je te proposerai une petite fonction qui remplace "automatiquement" la virgule par un point quand c'est nécessaire.

:D

Merci d'avoir répondu.
Le problème est le suivant.
Si je mets un point. Bam, fermeture direct du debug.

Là, rien à voir, il n'y a aucun rapport entre le fait de mettre un point quelque part dans le code et le fonctionnement du debogueur (sauf erreur de ma part :oops:).

Ne peux-tu envoyer ton code et le schéma de la DB, que je puisse tester sur mon PC ?

Mais avant cela, vérifie encore (s'il tu veux bien ...) le détail suivant :
Je vois dans ton code READER = COMMAND.ExecuteReader.
Vu que l'opération demandée ,n'est pas un SELECT, ne devrais-tu pas écrire READER = COMMAND.ExecuteNonQuery.

:)

J'envoi cela demain.
Car cela commence à être un peu compliquer.
Je vérifie demain.
Merci.

Pas de problème, j'arrête pour ce soir.
Bonne nuit.
:D

Bonjour !
J'ai mis les liens ici :

https://framadrop.org/r/OxzE8iOdz6#2...dXuIf+a0mPH4M=
https://framadrop.org/r/7bXbCApPlm#c...6TbFfsiJ7iwsQ=

Voir si on peux m'eclairer un peux plus.

Je me pose la entre double et decimal et les claviers.

Sur ce code j'ai mis Decimal. Mais sur les textbox je met une virgule et le code passe pas. Par contre avec un point cela passe.
Aussi apres qu'en je clique sur enregistrer. Les colonnes sont decimal mais cela marche pas pour Precio_Con_Iva et Diff_IVA.

Edit:
Je pense que pour Precio_Con_Iva et Diff_IVA le resultat apparait avec des virgules au lieu de point. Je vais voi ce qui cloche en attendant une reponse.

Bonjour,

Tu utilises le type DECIMAL. Il est différent du type SINGLE ou DOUBLE.
Le type DECIMAL en VB sert à présenter de grands nombres. (ci-joint Pièce jointe 515492, un tableau des types en VB).+
Pour représenter des nombres réels (des Floats), il faut utiliser Single ou Double.
Je ne sais pas quel est l'usage de Decimal en MySql, mais je te suggère d'utiliser Single ou Double en VB et en MySql.

Par ailleurs, je te signalais hier qu'il ne convient pas d'ultiliser EXECUTEREADER pour un INSERT. Il faut (je crois) utiliser EXECUTENONQUERY.

Pour ce qui est de la virgule et du point, peu importe ce qui se voit dans le TextBox. Mais pour ce qui entre dans un calcul ou dans un champs de DB, ça doit être un point.

Puisqu'il n'y a pas de séparateur de milliers (si je comprends bien), je te propose de traiter toujours le texte numérique d'un TextBox comme ceci :

Code:

---

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

' ... ... Dim Sin_IVA, Con_IVA, Diff_IVA As DOUBLE Sin_IVA = CTYPE(TextBox8.Text.Replace(",", "."), Double) Con_IVA = CTYPE(TextBox10.Text.Replace(",", "."), Double)) Diff_IVA = CTYPE(TextBox11.Text.Replace(",", "."), Double)) ' ... ... COMMAND.Parameters.AddWithValue("@Value4", Sin_IVA)   COMMAND.Parameters.AddWithValue("@Value6", Con_IVA) COMMAND.Parameters.AddWithValue("@Value7", Diff_IVA) ' ... ...

---

Je te propose de réviser ces quelques détails.Tiens moi informé.

Questions indiscrètes : tu es hispanophone ? Pourquoi questionnes-tu un forum francophone ? (pas obliger de répondre ...).

:D

OK. Je vais revérifier mon code je reviens vers toi demain. Je vis en Espagne pour le boulot. C'est plus facile de se comprendre en français. :lol:

Merci pour la réponse ...
L'adresse d'un forum en langue espagnole ne t'intéresse donc pas.

Bonne soirée,

:D

Ne pas utiliser val mais decimal.tryparse
Ça utilise le séparateur de décimal paramétré dans Windows, on peut jouer sur la culture pour forcer un séparateur.

Décimal est un nombre fixe, single et double peuvent être des approximations et donc ne sont pas pratique pour des mesures ou des valeurs monétaires.

Bonjour !

Merci pour le code

Mais j'ai d'autres question avec DOUBLE.

J'ai tester le code. Pas de problème à ce niveau.
J'avais 3 valeurs pour tester, "111,23","111,2325" et "111,555". Pas de problème à l'insert dans la db MYSQL.
J'ai voulu vérifier le résultat qui devrait être "334,0175" mais j'ai "334,01750000000004". Pourquoi ?
C'est surement pour cela que Pol63 dis que c'est pas bon.
Aussi comme j'utilise CrystalReport pour générer mes résultats.
Je ne peux pas faire un sum de détail. A moins de créer une formule avec ToNumber({CostesMaquinaria.PrecioCoste})
Oui j'ai modifier un peu le code avec un truc simple pour tester au lieu de SIN_IVA
Merci pour vos réponses.

Bonjour,

C'est vrai qu'un réel est rarement "juste" dans sa représentation en machine (sur 8 octets, par exemple, il y a toujours un ou deux bits à l'extrême droite du jeu d'octets qui n'ont pas la valeur qui faudrait) et cela laisse "trainer" une lointaine décimale résiduelle.
Cependant, cela n'affecte pas les calculs considérés avec une précision raisonnable, qui serait au maximum de 4 décimales dans ton cas (pour le calcul de TVA, 4 décimales pour les calculs et 2 à l'affichage).

Je suppose que tu as bien choisi le même type "Double" dans VB et dans MySQL (j'insiste sur ce détail parce que généralement, en Double l'imprécision des réels ne se perçoit plus, me semble-t-il).
Je te propose donc de formater les valeurs à l'affichage, ou même juste avant la sommation, avant leur mise à disposition de CrystalReport. Une fonction ToNumber par exemple, peut être très utile.

Ton problème serait-il donc résolu ?

Excellente journée,

:D

Oui en effet. J'avais mis bien DOUBLE dans MYSQL, etc....
Mon Problème est bien résolu.
Merci à vous et a très bientôt.