Echec de la conversion de la valeur de paramètre d'un string en un double

J'ai des champs où je dois saisir des valeurs monétaires. Ces champs sont de type "Monétaire" dans ma base de données mais au niveau de l'application ils sont de type "Double". Par la suite j'ai ce msg d'erreur "Echec de la conversion de la valeur de paramètre d'un string en un double". J'ulilise comme SGBD access 2003 (il n'y a que le type monétaire dans access et il n'y a pas de type double). Comment corriger cette erreur?

Code:

---

1 2 3

command.Parameters.Add(New OleDbParameter("@rea1er", OleDbType.Double, 15)) command.Parameters("@rea1er").Value = Txtrea1ertrim.Text

---

Citation:

---

Envoyé par loverdev

J'ai des champs où je dois saisir des valeurs monétaires. Ces champs sont de type "Monétaire" dans ma base de données mais au niveau de l'application ils sont de type "Double". Par la suite j'ai ce msg d'erreur "Echec de la conversion de la valeur de paramètre d'un string en un double". J'ulilise comme SGBD access 2003 (il n'y a que le type monétaire dans access et il n'y a pas de type double). Comment corriger cette erreur?

Code:

---

1 2 3

command.Parameters.Add(New OleDbParameter("@rea1er", OleDbType.Double, 15)) command.Parameters("@rea1er").Value = Txtrea1ertrim.Text

---

---

au lieu de OleDbType.Double mets monétaire ou decimal
et convertir ton double en decimal

J'ai essayé ceci :

Code:

---

1 2 3

command.Parameters.Add(New OleDbParameter("@rea1er", OleDbType.Decimal, 15)) command.Parameters("@rea1er").Value = Txtrea1ertrim.Text

---

Mais ca ne marche tjrs pas. ça me met "Echec de la conversion de la valeur de paramètre d'un string en un Decimal".

et avec ca :
command.Parameters("@rea1er").Value = cdec(Txtrea1ertrim.Text).tostring
?

Ca marche!!! Merci Sperot;) :yaisse2:

Code:

---

1 2 3 4 5 6 7 8

If Txtbudget.Text = "" Then command.Parameters.Add(New OleDbParameter("@budget", OleDbType.Double, 15)) command.Parameters("@budget").Value = DBNull.Value Else command.Parameters.Add(New OleDbParameter("@budget", OleDbType.Double, 15)) command.Parameters("@budget").Value = CDec(Txtbudget.Text).ToString End If

---