conversion en double invalide

Version imprimable

bonjour,
voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
con.ConnectionString = "Data Source=MEHDI-PC\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=eco"
        Dim com As New SqlCommand
        Dim d As New Date
        d = CDate(MaskedTextBox1.Text)
        Try
            cn.Open()
            com.Connection = con
            com = New SqlCommand("insert into COMPTEURS(N_ORD_ECO,SOUS_QUART,CIL,QUART,NOM_CLT,AV_ACC,PORTE,RUE,N_CPT_DEPO,N_SERIE,DER_IND_LU,TP_CAL,MAR_DEPO,N_CPT_POS,IND_DEPO,DATE_DEPO,CAL_POS,MAR_POS) values('" + ComboBox1.SelectedItem + "','" + TextBox1.Text + "','" + Val(TextBox2.Text) + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + Val(TextBox6.Text) + "','" + TextBox7.Text + "','" + Val(TextBox8.Text) + "','" + Val(TextBox9.Text) + "','" + Val(TextBox10.Text) + "','" + Val(TextBox11.Text) + "','" + TextBox12.Text + "','" + Val(TextBox13.Text) + "','" + Val(TextBox14.Text) + "','" + d + "','" + Val(TextBox16.Text) + "','" + TextBox17.Text + "''" + RichTextBox1.Text + "');", con)
            com.ExecuteNonQuery()
            MsgBox("Ajout avec succes")
        Catch ex As Exception
            MessageBox.Show("Erreur lors du rapatriement des données : " & ex.ToString())
        Finally
            cn.Close()
        End Try

l'erreur générée est la suivante:
la conversion de la chaîne "insert into compteurs(N_ORD_ECO" en type 'DOUBLE' n'est pas valide.
je mentionne que N_ORD_ECO est une clé primaire que je récupère depuis un combobox
merci

02/04/2013, 14h11
madfox48

Salut Mehdi,

tu devrais peut-etre rajouter :
ComboBox1.SelectedItem.tostring

Bonne journée

Madfox48
02/04/2013, 14h12
DotNetMatt

Essaie d'enlever les guillemets simples autour de la valeur de ComboBox1 pour obtenir ceci :

Code:

values(" + ComboBox1.SelectedItem + ",

Ca passe mieux ou pas ?

[EDIT] : on ne le dira jamais assez, les requêtes paramétrées solutionnent bien des problèmes !
02/04/2013, 14h18
mehdi.cheddani

Le .TOSTring me souligne la ligne et les simples cote n'ont rien changé.
autre précision le champs est varchar sur la base de données.
02/04/2013, 14h30
DotNetMatt

Peux-tu STP poster le DDL de ta table COMPTEURS ?
02/04/2013, 14h34
mehdi.cheddani

je ne vous suis pas comment je dois procéder
02/04/2013, 14h37
DotNetMatt

DDL c'est pour Data Definition Language. En gros ce sont les instructions CREATE, ALTER, etc. utilisées en SQL.

Ce que je veux faire c'est créer chez moi une table COMPTEURS, à l'identique, afin de pouvoir tester ton code et voir ce qui cloche. Mais pour cela, j'ai besoin de l'instruction CREATE en SQL qui me permettra d'avoir la même structure que chez toi.

[EDIT] : Peux-tu aussi donner des exemples de valeur que tu as dans ComboBox1.SelectedItem ?

Je soupçonne que le champ N_ORD_ECO ait un type numeric dans ta base, et que le format ne soit pas correct...
02/04/2013, 14h42
_Ez3kiel

As-tu essayé

Code:

'" + ComboBox1.SelectedValue.ToString+ "'

?

Si tu copies la requête avant l'insertion avec les données passées, et que tu l’exécutes dans ton SGBD, fonctionne-t-elle ?
02/04/2013, 14h54
ebastien

Bonjour,

Je pense que ce qui cloche c'est la concaténation de chaines avec des valeurs numériques + objets :

Code:

ComboBox1.SelectedItem + "','" + TextBox1.Text + "','" + Val(TextBox2.Text)

Sauf erreur de ma part, ça correspond à Object + String + Double ...

De plus, il est conseillé d'utiliser le & plutôt que le + comme opérateur de concaténation.

Bon courage.
Eb.

Pour DOTNETMATT mon ddl est le suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
create table COMPTEURS (
   N_ORD_ECO            char(8)              not null,
   SOUS_QUART           char(50)             null,
   CIL                  bigint               null,
   QUART                char(50)             null,
   NOM_CLT              char(60)             null,
   AV_ACC               char(100)            null,
   PORTE                int                  null,
   RUE                  char(60)             null,
   N_CPT_DEPO           bigint               null,
   N_SERIE              bigint               null,
   DER_IND_LU           bigint               null,
   N_CPT_POS            bigint               null,
   IND_DEPO             bigint               null,
   DATE_DEPO            datetime             null,
   CAL_POS              smallint             null,
   OBS                  text                 null,
   constraint PK_COMPTEURS primary key nonclustered (N_ORD_ECO)
)

désolé pour le retard.

j'ai résolu le problème au cas où des gens tombent sur le même pétrin voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
con.ConnectionString = "Data Source=MEHDI-PC\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=eco"
        Dim com As New SqlCommand
        Dim d As New Date
        d = CDate(MaskedTextBox1.Text)
        Try
            con.Open()
            com.Connection = con
            com = New SqlCommand("insert into COMPTEURS(N_ORD_ECO,SOUS_QUART,CIL,QUART,NOM_CLT,AV_ACC,PORTE,RUE,N_CPT_DEPO,N_SERIE,DER_IND_LU,TP_CAL,MAR_DEPO,N_CPT_POS,IND_DEPO,DATE_DEPO,CAL_POS,MAR_POS) values('" & ComboBox1.SelectedItem.ToString & "','" & TextBox1.Text & "','" & Val(TextBox2.Text) & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & Val(TextBox6.Text) & "','" & TextBox7.Text & "','" & Val(TextBox8.Text) & "','" & Val(TextBox9.Text) & "','" & Val(TextBox10.Text) & "','" & Val(TextBox11.Text) & "','" & TextBox12.Text & "','" & Val(TextBox13.Text) & "','" & Val(TextBox14.Text) & "','" & d & "','" & Val(TextBox16.Text) & "','" & TextBox17.Text & "''" & RichTextBox1.Text & "');", con)
            com.ExecuteNonQuery()
            MsgBox("Ajout avec succes")
        Catch ex As Exception
            MessageBox.Show("Erreur lors du rapatriement des données : " & ex.ToString())
        Finally
            cn.Close()
        End Try

Merci pour tout.