Discussion :

[mtcsmohamed]

Bonsoir ,
SVP j'ai un problème au niveau de l'insertion des données à partir VB.net vers une table Sql Server management Studio.

lors de l'exécution j'ai un msg d'erreur " Syntaxe incorrecte vers (..) "





Voilà le code que j'utilise :

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
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
Imports System.Data.SqlClient
 
 
Public Class NvDossierct
 
    Dim con As New SqlConnection
 
    Private Sub NvDossier_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        con.ConnectionString = "Data Source=NOURELFERDOUS\SQLEXPRESS;Initial Catalog=mOnia;Integrated Security=True;Pooling=False"
 
        'TODO: cette ligne de code charge les données dans la table 'MOniaDataSet1.CT'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.CTTableAdapter.Fill(Me.MOniaDataSet1.CT)
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        con.Open()
 
        Dim idct As Integer = Id_CTTextBox.Text
        Dim nd As String = NDossier_CTTextBox.Text
        Dim ntel As String = NTel_CTTextBox.Text
        Dim nom As String = Nom_CTTextBox.Text
        Dim prenom As String = Prenom_CTTextBox.Text
        Dim idm As Integer = ID_MComboBox.TabIndex
        Dim nomprelevement As String = NomPrelevement_CTTextBox.Text
        Dim honoraire As Integer = Honoraire_CTTextBox.Text
        Dim recu As Integer = Recu_CTTextBox.Text
        Dim dateE As Date = DateE_CTDateTimePicker.Value
        Dim dateS As Date = DateS_CTDateTimePicker.Value
        Dim cnam As String = EtatCNAM_CTTextBox.Text
        Dim idc As Integer = ID_CTextBox.Text
        Dim remarque As String = Remarque_CTTextBox.Text
 
 
        Dim cmd As New SqlCommand(("INSERT INTO [CT] ([Id_CT], [NDossier_CT], [NTel_CT], [Nom_CT], [Prenom_CT], [ID_M], [NomPrelevement_CT], [Honoraire_CT], [Recu_CT], [DateE_CT], [DateS_CT], [EtatCNAM_CT], [ID_C], [Remarque_CT]) VALUE('" & idct & "','" & nd & "','" & ntel & "','" & nom & "','" & prenom & "','" & idm & "','" & nomprelevement & "','" & honoraire & "','" & recu & "','" & dateE & "','" & dateS & "','" & cnam & "','" & idc & "','" & remarque & "'"), con)
 
        Try
 
            cmd.ExecuteNonQuery()
            con.Close()
            MsgBox("Enregistrer", MsgBoxStyle.Information, "ok")
 
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
 
    End Sub
End Class

Merci.