bonjour,
voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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