Discussion :

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

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

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

[Pol63]

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 :

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

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

[loverdev]

J'ai essayé ceci :

Code :

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

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

[Pol63]

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

[loverdev]

Ca marche!!! Merci Sperot

Code :

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

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