Problème ajout d'information base de données

Version imprimable

Bonsoir,

J'ai une application qui a pour but de gérer un fichier client, d'avoir une partie marketing et une partie gestion des stocks.
La partie fichier client marche très bien pour afficher mes données, les modifier ainsi que les supprimer.

J'ai donc voulu faire de même avec la gestion des produits cependant j'ai une erreur : "type de données incompatible dans l'expression du critère" et je ne comprend par car j'ai la même méthode pour mon autre partie qui marche très bien.
Voici mon code avec prix et epiloderm se sont des chiffres

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
 Private Sub saveContact()
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
        Try
 
 
            If TbProduits.Text <> "" And TbPrix.Text <> "" And TbCireepiloderm.Text <> "" Then
                sqll = "insert into soins([ID], [produits], [prix], [epiloderm])" &
                    "values(?,?,?,?)"
 
                Dim cmdd As OleDbCommand = New OleDbCommand(sqll, conn)
                cmdd.Parameters.Add(New OleDbParameter("ID", CType(TbID.Text, String)))
                cmdd.Parameters.Add(New OleDbParameter("produits", CType(TbProduits.Text, String)))
                cmdd.Parameters.Add(New OleDbParameter("prix", CType(TbPrix.Text, String)))
                cmdd.Parameters.Add(New OleDbParameter("epiloderm", CType(TbCireepiloderm.Text, String)))
 
 
                Try
                    cmdd.ExecuteNonQuery()
                    cmdd.Dispose()
                    conn.Close()
                    MessageBox.Show("Produits/Services Ajouté")
                    clearChamps()
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            Else
                MessageBox.Show("Remplir tous les champs")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        BtnAjouter.Enabled = True
        BtnSupprimer.Enabled = True
        BtnModifier.Enabled = True
 
    End Sub

16/05/2017, 20h42
DotNetMatt

Peux-tu poster ton DDL CREATE pour voir les types cote base de donnees ?
16/05/2017, 21h24
StringBuilder

ID et PRIX, j'ai comme un sérieux doute quand au type... L'un ne serait-il pas INT et l'autre DECIMAL ?

A mon avis, ça vient de là, tu balances des STRING dans des paramètres qui ne sont pas des (VAR)CHAR.
18/05/2017, 17h18
Corentin_G

Salut,

Merci a vous d'avoir été rapide.

DotNetMatt : où est ce que je le trouve ?

StringBuilder : Ce qui veux dire qu'ici il faudrais que je change mes String en Double ?
18/05/2017, 17h37
StringBuilder

Dans une requête paramétrée, il faut passer les paramètres dans le bon type : pas de string pour un type numérique par exemple.

Donc l'ID qui est logiquement un integer en base, il faut le transformer en int avant de l'envoyer, et le prix, qui devrait être un decimal en base, il faut le transformer en decimal avant.

Et pas de double pour un prix, ou tu t'exposes à de gros soucis d'arrondis.

Ok donc se qui veux dire qu'il faudrait que je le change ici ?

Code:

1
2
3
4
5
Dim cmdd As OleDbCommand = New OleDbCommand(sqll, conn)
                cmdd.Parameters.Add(New OleDbParameter("ID", CType(TbID.Text, String)))
                cmdd.Parameters.Add(New OleDbParameter("produits", CType(TbProduits.Text, String)))
                cmdd.Parameters.Add(New OleDbParameter("prix", CType(TbPrix.Text, String)))
                cmdd.Parameters.Add(New OleDbParameter("epiloderm", CType(TbCireepiloderm.Text, String)))

Citation:

Envoyé par Corentin_G

Ok donc se qui veux dire qu'il faudrait que je le change ici ?

Code:

1
2
3
4
5
Dim cmdd As OleDbCommand = New OleDbCommand(sqll, conn)
                cmdd.Parameters.Add(New OleDbParameter("ID", CType(TbID.Text, String)))
                cmdd.Parameters.Add(New OleDbParameter("produits", CType(TbProduits.Text, String)))
                cmdd.Parameters.Add(New OleDbParameter("prix", CType(TbPrix.Text, String)))
                cmdd.Parameters.Add(New OleDbParameter("epiloderm", CType(TbCireepiloderm.Text, String)))

Oui, le "CType" doit être changé pour transformer ID en int, prix en decimal ou autre selon ce qu'il y a en base.