Le format de la chaîne d'entrée est incorrect.

Version imprimable

Bonjour,

Je suis actuellement en stage et j'ai quelque soucis. Je n'ai jamais codé en VB.net et donc il se peut que l'erreur soit toute simple.

J'ai un problème lorsque j'essaye d'entrer des données dans une table de la BDD.
Ce que je pense:
-Soit c'est un problème avec les guillemets et les chaines de caractères dans la requête elle même
-Soit il y a un problème avec les type des variables
et dans les deux cas, je ne sais pas comment le régler

Je reçois ce message:

Citation:

Le format de la chaîne d'entrée est incorrect.
Description : Une exception non gérée s'est produite au moment de l'exécution de la requête Web actuelle. Contrôlez la trace de la pile pour plus d'informations sur l'erreur et son origine dans le code.

Détails de l'exception: System.FormatException: Le format de la chaîne d'entrée est incorrect.

pour la ligne:

Code:

Ligne 190 :        Obj_Command.CommandText = "INSERT INTO TYPE_ARTICLE (TYPE_ART_IMG, TYPE_ART_LIB, TYPE_ART_DATE_CREATION, TYPE_REF_FOURN, TYPE_REF_CONST, TYPR_ART_GAR_DUREE, TYPE_ART_GAR_MOD, TYPE_ART_DETAILS, TYPE_ART_QTE, TYPE_ART_QTE_LESS, TYPE_ART_QTE_SEC, CAT_ID, TYPE_ART_PA, TYPE_ARTP_PV_HT, TYPE_ART_PV_TTC) VALUES ('" + lienImg + "','" + txtlibelle + "','" + dateDeCreation + "','" + reFourn + "','" + refConstr + "','" + dureeGarant + "','" + modalGarantie + "','" + descArt + "','" + quantStock + "','" + quantAlert + "','" + quantStockSecur + "','" + nomCAT + "','" + prixAchat + "','" + pHT + "','" + pTTC + "')"

Voici mon code VB:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
'déclaration des variables        
Dim txtlibelle As String
        Dim reFourn As String
        Dim refConstr As String
        Dim dureeGarant As String
        Dim modalGarantie As String
        Dim descArt As String
        Dim quantStock As Integer
        Dim quantAlert As Integer
        Dim quantStockSecur As Integer
        Dim dateDeCreation As Date
        Dim Categorie As String
        Dim nomCAT As String
        Dim prixAchat As Decimal
        Dim pHT As Decimal
        Dim pTTC As Decimal
        Dim lienImg As String
 
        info_img.Text = ""
        Info_Alert.Text = ""
        Info_Success.Text = ""
 
        'condition si et seulement si /
 
        If Libelle.Text = "" Or RefFourn.Text = "" Or ddlCateg.SelectedItem.Text = "" Or RefConst.Text = "" Or dureeGarantie.Text = "" Or ddlModalGarantie.SelectedItem.Text = "" Or PrixAchatType.Text = "" Or PrixHT.Text = "" Or PrixTTC.Text = "" Or Not ImageArticle.HasFile Then
            Info_Alert.Text = "Il manque des champs obligatoires !"
            info_img.Text = "Vous n'avez pas sélectionné d'image."
            Response.Write("<script language=""javascript"">window.onload=function(){alert('Veuillez sélectionner une image !')};</script>")
 
        Else
            'Libelle
            txtlibelle = Libelle.Text
 
            'Reference fournisseur
            reFourn = RefFourn.Text
 
            'Référence constructeur
            refConstr = RefConst.Text
 
            'Duree de garantie
            dureeGarant = dureeGarantie.Text
 
            'Modal de garantie
            modalGarantie = ddlModalGarantie.SelectedItem.Text
 
 
            'Description Article
            If DescArticle.InnerText = "" Then
                descArt = "Aucune description"
            Else
                descArt = DescArticle.InnerText
            End If
 
            'Date d'ajout de l'article dans BDD
            dateDeCreation = DateTime.Now.ToString("dd/MM/yyyy")
 
            'Quantité sock
            If QteStock.Text = "" Then
                quantStock = "0"
            Else
                quantStock = QteStock.Text
            End If
 
            'Quantité Alert sock
            If QteAlert.Text = "" Then
                quantAlert = "0"
            Else
                quantAlert = QteAlert.Text
            End If
 
            'Quantité sock securité
            If QteStockSecur.Text = "" Then
                quantStockSecur = "0"
            Else
                quantStockSecur = QteStockSecur.Text
            End If
 
            'Si une catégorie a été selectionnée alors on attribue un nom à la catégorie afin de pouvoir distribuer les image upload dans les fichiers en fonction de sa catégorie
            Categorie = ddlCateg.SelectedItem.Text
            Select Case Categorie
                Case "ACCESSOIRES"
                    nomCAT = "ACCESSOIRES"
                [...]
                Case Else
                    nomCAT = "Autre"
            End Select
 
            Dim path As String = Server.MapPath("~/Articles/" + nomCAT + "/")
            Dim fileOK As Boolean = False
 
 
            Dim fileExtension As String
            fileExtension = System.IO.Path. _
                GetExtension(ImageArticle.FileName).ToLower()
            Dim allowedExtensions As String() = _
                {".jpg", ".jpeg", ".png"}
            For i As Integer = 0 To allowedExtensions.Length - 1
                If fileExtension = allowedExtensions(i) Then
                    fileOK = True
                End If
            Next
 
            lienImg = "~/Articles/" + nomCAT + "/" + RefFourn.Text + fileExtension
 
            If fileOK Then
                Try
                    ImageArticle.PostedFile.SaveAs(path & _
                         RefFourn.Text & fileExtension)
                    info_img.Text = "L'image a été upload dans le dossier: " + path + " <br/>" + lienImg
                Catch ex As Exception
                    info_img.Text = "L'image n'a pas été upload ! "
                End Try
            Else
                info_img.Text = "Les fichiers de ce type ne sont pas acceptés. (seul les .jpg, .jpeg et .png sont autorisés !)"
            End If
 
 
            'Prix à l'achat du type d'article
            prixAchat = PrixAchatType.Text
 
            'Prix HT
            pHT = PrixHT.Text
 
            'Prix TTC
            pTTC = PrixTTC.Text
 
            'Connexion à la BDD
            access_connexion()
 
            'Instancier un objet Command
            Obj_Command = New OleDbCommand()
 
            'Initialiser l'objet Command
            Obj_Command.Connection() = laConnection
            Obj_Command.CommandText = "INSERT INTO TYPE_ARTICLE (TYPE_ART_IMG, TYPE_ART_LIB, TYPE_ART_DATE_CREATION, TYPE_REF_FOURN, TYPE_REF_CONST, TYPR_ART_GAR_DUREE, TYPE_ART_GAR_MOD, TYPE_ART_DETAILS, TYPE_ART_QTE, TYPE_ART_QTE_LESS, TYPE_ART_QTE_SEC, CAT_ID, TYPE_ART_PA, TYPE_ARTP_PV_HT, TYPE_ART_PV_TTC) VALUES ('" + lienImg + "','" + txtlibelle + "','" + dateDeCreation + "','" + reFourn + "','" + refConstr + "','" + dureeGarant + "','" + modalGarantie + "','" + descArt + "','" + quantStock + "','" + quantAlert + "','" + quantStockSecur + "','" + nomCAT + "','" + prixAchat + "','" + pHT + "','" + pTTC + "')"
            Obj_Reader = Obj_Command.ExecuteReader()
 
            Obj_Reader.Close()
            access_deconnexion()
 
            'message success
            Info_Success.Text = "L'article a bien été enregistré dans la BDD"
 
 
        End If

Je vous remercie par avance pour vos réponses.

Artas

07/06/2016, 19h02
DotNetMatt

Il ne faut jamais construire les requêtes SQL tel que tu le fais, c'est une très mauvaise pratique. A la place il faut utiliser les requêtes paramétrées (voir Tuto ou FAQ). Elles permettent de mieux protéger ton application contre les attaques par injection SQL, ça fige le plan d'exécution de la requête, et en prime il n'est pas nécessaire de se soucier de la représentation des données sous forme de string et de son format.
07/06/2016, 19h12
Artas

Merci, je vais voir ça

Bonjour,

J'ai essayé avec votre méthode cependant je reçois d'autre erreurs

voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
Dim txtlibelle As String
        Dim reFourn As String
        Dim refConstr As String
        Dim dureeGarant As String
        Dim modalGarantie As String
        Dim descArt As String
        Dim quantStock As Integer
        Dim quantAlert As Integer
        Dim quantStockSecur As Integer
        Dim dateDeCreation As DateTime
        Dim Categorie As String
        Dim nomCAT As String
        Dim prixAchat As Decimal
        Dim pHT As Decimal
        Dim pTTC As Decimal
        Dim lienImg As String
 
        info_img.Text = ""
        Info_Alert.Text = ""
        Info_Success.Text = ""
 
        'condition si et seulement si /
 
        If Libelle.Text = "" Or RefFourn.Text = "" Or ddlCateg.SelectedItem.Text = "" Or RefConst.Text = "" Or dureeGarantie.Text = "" Or ddlModalGarantie.SelectedItem.Text = "" Or PrixAchatType.Text = "" Or PrixHT.Text = "" Or PrixTTC.Text = "" Or Not ImageArticle.HasFile Then
            Info_Alert.Text = "Il manque des champs obligatoires !"
            info_img.Text = "Vous n'avez pas sélectionné d'image."
            Response.Write("<script language=""javascript"">window.onload=function(){alert('Veuillez sélectionner une image !')};</script>")
 
        Else
            'Libelle
            txtlibelle = Libelle.Text
 
            'Reference fournisseur
            reFourn = RefFourn.Text
 
            'Référence constructeur
            refConstr = RefConst.Text
 
            'Duree de garantie
            dureeGarant = dureeGarantie.Text
 
            'Modal de garantie
            modalGarantie = ddlModalGarantie.SelectedItem.Text
 
 
            'Description Article
            If DescArticle.InnerText = "" Then
                descArt = "Aucune description"
            Else
                descArt = DescArticle.InnerText
            End If
 
            'Date d'ajout de l'article dans BDD
            dateDeCreation = DateTime.Now.ToString("dd/MM/yyyy")
 
            'Quantité sock
            If QteStock.Text = "" Then
                quantStock = 0
            Else
                quantStock = QteStock.Text
            End If
 
            'Quantité Alert sock
            If QteAlert.Text = "" Then
                quantAlert = 0
            Else
                quantAlert = QteAlert.Text
            End If
 
            'Quantité sock securité
            If QteStockSecur.Text = "" Then
                quantStockSecur = 0
            Else
                quantStockSecur = QteStockSecur.Text
            End If
 
            'Si une catégorie a été selectionnée alors on attribue un nom à la catégorie afin de pouvoir distribuer les image upload dans les fichiers en fonction de sa catégorie
            Categorie = ddlCateg.SelectedItem.Text
            Select Case Categorie
                Case "ACCESSOIRES"
                    nomCAT = "ACCESSOIRES"
                Case "HOUSSE"
                    nomCAT = "ACCESSOIRES"
                Case "ALIMENTATIONS"
                    nomCAT = "ALIMENTATIONS"
                Case "BOITIERS EXTERNE"
                    nomCAT = "BOITIEREXTERNE"
                Case "BOITIERS"
                    nomCAT = "BOITIERS"
                Case "CARTES GRAPHIQUES"
                    nomCAT = "CARTEGRAPHIQUE"
                Case "CARTES SONS"
                    nomCAT = "CARTESON"
                Case "MICRO-CASQUES"
                    nomCAT = "CASQEUS"
                Case "CARTES MERES"
                    nomCAT = "CM"
                Case "ECRANS"
                    nomCAT = "ECRANS"
                Case "GRAVEURS"
                    nomCAT = "GRAVEURS"
                Case "HAUTS-PARLEUR"
                    nomCAT = "HAUTPARLEURS"
                Case "DISQUE DURS"
                    nomCAT = "HD"
                Case "DISQUE DURS EXTERNES"
                    nomCAT = "HD"
                Case "IMPRIMANTES"
                    nomCAT = "IMPRIMANTES"
                Case "LOGICIELS"
                    nomCAT = "LOGICIELS"
                Case "MÉMOIRES VIVES"
                    nomCAT = "MEMOIREVIVE"
                Case "ORDINATEURS PORTABLES"
                    nomCAT = "NOTEBOOK"
                Case "PROCESSEURS"
                    nomCAT = "PROCESSEURS"
                Case "VENTILATEURS"
                    nomCAT = "VENTILATEURS"
                Case "WEBCAMS"
                    nomCAT = "WEBCAMS"
                Case Else
                    nomCAT = "Autre"
            End Select
 
            Dim path As String = Server.MapPath("~/Articles/" + nomCAT + "/")
            Dim fileOK As Boolean = False
 
 
            Dim fileExtension As String
            fileExtension = System.IO.Path. _
                GetExtension(ImageArticle.FileName).ToLower()
            Dim allowedExtensions As String() = _
                {".jpg", ".jpeg", ".png"}
            For i As Integer = 0 To allowedExtensions.Length - 1
                If fileExtension = allowedExtensions(i) Then
                    fileOK = True
                End If
            Next
 
            lienImg = "~/Articles/" + nomCAT + "/" + RefFourn.Text + fileExtension
 
            If fileOK Then
                Try
                    ImageArticle.PostedFile.SaveAs(path & _
                         RefFourn.Text & fileExtension)
                    info_img.Text = "L'image a été upload dans le dossier: " + path + " <br/>" + lienImg
                Catch ex As Exception
                    info_img.Text = "L'image n'a pas été upload ! "
                End Try
            Else
                info_img.Text = "Les fichiers de ce type ne sont pas acceptés. (seul les .jpg, .jpeg et .png sont autorisés !)"
            End If
 
 
            'Prix à l'achat du type d'article
            prixAchat = PrixAchatType.Text.ToString()
 
            'Prix HT
            pHT = PrixHT.Text.ToString()
 
            'Prix TTC
            pTTC = PrixTTC.Text.ToString()
 
            'Connexion à la BDD
            access_connexion()
 
            'Instancier un objet Command
            Obj_Command = New OleDbCommand()
 
            'Initialiser l'objet Command
            Dim reqSQL As String = "INSERT INTO TYPE_ARTICLE (TYPE_ART_IMG, TYPE_ART_LIB, TYPE_ART_DATE_CREATION, TYPE_REF_FOURN, TYPE_REF_CONST, TYPE_ART_GAR_MOD, TYPE_ART_GAR_DUREE, TYPE_ART_DETAILS, TYPE_ART_QTE, TYPE_ART_QTE_LESS, TYPE_ART_QTE_SEC, CAT_ID, TYPE_ART_PA, TYPE_ARTP_PV_HT, TYPE_ART_PV_TTC) VALUES (@img, @libelle, " + DateTime.Now() + ", @reFourn, @refConst, @modalGarant, @dureeGarant, @detail, @quandStock, @quantAlert, @quantSecur, @catId, @prixAchat, @prixHT, @prixTTC)"
 
            Obj_Command.Connection() = laConnection
            Obj_Command.CommandText = reqSQL
            Obj_Command.Parameters.Add("@img", OleDbType.VarChar, 255).Value = lienImg
            Obj_Command.Parameters.Add("@libelle", OleDbType.VarChar, 255).Value = txtlibelle
            'Obj_Command.Parameters.Add("@dateCreation", OleDbType.Date).Value = dateDeCreation
            Obj_Command.Parameters.Add("@reFourn", OleDbType.VarChar, 255).Value = reFourn
            Obj_Command.Parameters.Add("@refConst", OleDbType.VarChar, 255).Value = refConstr
            Obj_Command.Parameters.Add("@modalGarant", OleDbType.VarChar, 50).Value = modalGarantie
            Obj_Command.Parameters.Add("@dureeGarant", OleDbType.VarChar, 10).Value = dureeGarant
            Obj_Command.Parameters.Add("@Detail", OleDbType.LongVarChar).Value = descArt
            Obj_Command.Parameters.Add("@quantStock", OleDbType.Integer, 10).Value = quantStock
            Obj_Command.Parameters.Add("@quantAlert", OleDbType.Integer, 10).Value = quantAlert
            Obj_Command.Parameters.Add("@quantSecur", OleDbType.Integer, 10).Value = QteStockSecur
            Obj_Command.Parameters.Add("@catId", OleDbType.VarChar, 15).Value = Categorie
            Obj_Command.Parameters.Add("@prixAchat", OleDbType.Currency, 10).Value = prixAchat
            Obj_Command.Parameters.Add("@prixHT", OleDbType.Currency, 10).Value = pHT
            Obj_Command.Parameters.Add("@prixTTC", OleDbType.Currency, 10).Value = pTTC
 
            Obj_Command.ExecuteNonQuery()
            Obj_Reader.Close()
            access_deconnexion()
 
            'message success
            Info_Success.Text = "L'article a bien été enregistré dans la BDD"
 
        End If

et voici le message d'erreur:

Citation:

L'objet doit implémenter IConvertible.
Description : Une exception non gérée s'est produite au moment de l'exécution de la requête Web actuelle. Contrôlez la trace de la pile pour plus d'informations sur l'erreur et son origine dans le code.

Détails de l'exception: System.InvalidCastException: L'objet doit implémenter IConvertible.

Erreur source:

Ligne 209 : Obj_Command.Parameters.Add("@prixTTC", OleDbType.Currency, 10).Value = pTTC
Ligne 210 :
Ligne 211 : Obj_Command.ExecuteNonQuery()
Ligne 212 : Obj_Reader.Close()
Ligne 213 : access_deconnexion()

Fichier source : ***\Ajouter.aspx.vb Ligne : 211

Trace de la pile:

[InvalidCastException: L'objet doit implémenter IConvertible.]
System.Convert.ChangeType(Object value, Type conversionType, IFormatProvider provider) +10785573
System.Data.OleDb.OleDbParameter.CoerceValue(Object value, NativeDBType destinationType) +252

[InvalidCastException: Échec de la conversion de la valeur de paramètre d'un TextBox en un Int32.]
System.Data.OleDb.OleDbParameter.CoerceValue(Object value, NativeDBType destinationType) +299
System.Data.OleDb.OleDbParameter.BindParameter(Int32 index, Bindings bindings) +67
System.Data.OleDb.OleDbCommand.CreateAccessor() +133
System.Data.OleDb.OleDbCommand.InitializeCommand(CommandBehavior behavior, Boolean throwifnotsupported) +193
System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult) +19
System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method) +162
System.Data.OleDb.OleDbCommand.ExecuteNonQuery() +107
Ajouter.btn_save_Click(Object sender, EventArgs e) in D:\BDD\CORTEX-WEB\Ajouter.aspx.vb:211
System.Web.UI.WebControls.Button.OnClick(EventArgs e) +9628442
System.Web.UI.WebControls.Button.RaisePostBackEvent(String eventArgument) +103
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +10
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +13
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +35
System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +1724

Est-ce que c'est un problème avec mes variables:
Dim quantStock As Integer
Dim quantAlert As Integer
Dim quantStockSecur As Integer
ou est-ce que j'ai mal construit mes paramètres?

Artas

Edit:
J'ai fait quelque modifications pour les paramètres:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
'Connexion à la BDD
            access_connexion()
 
            'Instancier un objet Command
            Obj_Command = New OleDbCommand()
 
            'Initialiser l'objet Command
            Obj_Command.Connection() = laConnection
            Obj_Command.CommandText = "INSERT INTO [TYPE_ARTICLE] ([TYPE_ART_IMG], [TYPE_ART_LIB], [TYPE_ART_DATE_CREATION], [TYPE_REF_FOURN], [TYPE_REF_CONST], [TYPE_ART_GAR_MOD], [TYPE_ART_GAR_DUREE], [TYPE_ART_DETAILS], [TYPE_ART_QTE], [TYPE_ART_QTE_LESS], [TYPE_ART_QTE_SEC], [CAT_ID], [TYPE_ART_PA], [TYPE_ART_PV_HT], [TYPE_ART_PV_TTC]) VALUES (@img, @libelle, @dateCreation, @reFourn, @refConst, @modalGarant, @dureeGarant, @detail, @quandStock, @quantAlert, @quantSecur, @catId, @prixAchat, @prixHT, @prixTTC)"
 
            Obj_Command.Parameters.Add(New OleDbParameter("@img", OleDbType.VarChar, 255))
            Obj_Command.Parameters.Add(New OleDbParameter("@libelle", OleDbType.VarChar, 255))
            Obj_Command.Parameters.Add(New OleDbParameter("@dateCreation", OleDbType.Date)).Value = dateDeCreation
            Obj_Command.Parameters.Add(New OleDbParameter("@reFourn", OleDbType.VarChar, 255))
            Obj_Command.Parameters.Add(New OleDbParameter("@refConst", OleDbType.VarChar, 255))
            Obj_Command.Parameters.Add(New OleDbParameter("@modalGarant", OleDbType.VarChar, 50))
            Obj_Command.Parameters.Add(New OleDbParameter("@dureeGarant", OleDbType.VarChar, 10))
            Obj_Command.Parameters.Add(New OleDbParameter("@Detail", OleDbType.LongVarChar))
            Obj_Command.Parameters.Add(New OleDbParameter("@quantStock", OleDbType.Integer, 10))
            Obj_Command.Parameters.Add(New OleDbParameter("@quantAlert", OleDbType.Integer, 10))
            Obj_Command.Parameters.Add(New OleDbParameter("@quantSecur", OleDbType.Integer, 10))
            Obj_Command.Parameters.Add(New OleDbParameter("@catId", OleDbType.VarChar, 15))
            Obj_Command.Parameters.Add(New OleDbParameter("@prixAchat", OleDbType.Currency, 10))
            Obj_Command.Parameters.Add(New OleDbParameter("@prixHT", OleDbType.Currency, 10))
            Obj_Command.Parameters.Add(New OleDbParameter("@prixTTC", OleDbType.Currency, 10))
 
            Obj_Command.Parameters("@img").Value = Convert.ToString(lienImg)
            Obj_Command.Parameters("@libelle").Value = Convert.ToString(txtlibelle)
            Obj_Command.Parameters("@dateCreation").Value = dateDeCreation
            Obj_Command.Parameters("@reFourn").Value = Convert.ToString(reFourn)
            Obj_Command.Parameters("@refConst").Value = Convert.ToString(refConstr)
            Obj_Command.Parameters("@modalGarant").Value = Convert.ToString(modalGarantie)
            Obj_Command.Parameters("@dureeGarant").Value = Convert.ToString(dureeGarant)
            Obj_Command.Parameters("@Detail").Value = Convert.ToString(descArt)
            Obj_Command.Parameters("@quantStock").Value = Convert.ToInt32(quantStock)
            Obj_Command.Parameters("@quantAlert").Value = Convert.ToInt32(quantAlert)
            Obj_Command.Parameters("@quantSecur").Value = Convert.ToInt32(quantStockSecur)
            Obj_Command.Parameters("@catId").Value = Convert.ToString(Categorie)
            Obj_Command.Parameters("@prixAchat").Value = Convert.ToDecimal(prixAchat)
            Obj_Command.Parameters("@prixHT").Value = Convert.ToDecimal(pHT)
            Obj_Command.Parameters("@prixTTC").Value = Convert.ToDecimal(pTTC)
 
            Obj_Command.ExecuteNonQuery()
            access_deconnexion()

Et ça a fonctionné.

Merci pour votre aide.

09/06/2016, 10h46
Dokho1000

Il ne faut pas mettre le symbole "@" dans le nom du paramètre...