Discussion :

[LARBI18]

bonjour ! voila je veux faire une insertion dans une BD mais a chaque fois j'ai un message d'erreur le suivant : (Erreur de syntaxe dans l'instruction INSERT INTO.) en indiquant la ligne de code (cmd.ExecuteNonQuery()).et je ne comprend pas ou est l'erreur.merci de votre aide .voici la tranche de 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
17
18
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\samir\Desktop\BD_Eleve.accdb")
 
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        If (String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso String.IsNullOrWhiteSpace(TextBox2.Text)) Then
            MessageBox.Show("il faut remplir tout les champs")
            Return
        End If
        'etape de declaration de la commande d'insertion
        Dim cmd As New OleDbCommand("insert into note1 (NomEtPrenom,Adresse,DateDeNaissance) values ('" & TextBox1.Text & "','" & TextBox2.Text & "',#" & DateTimePicker1.Value.ToString("yyyy / MM / dd") & "#,)")
 
        cmd.Connection = con
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        TextBox1.Text = String.Empty
        TextBox2.Text = String.Empty
    End Sub

[shayw]

Bonjour

Utilise des requêtes paramétrées

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
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\samir\Desktop\BD_Eleve.accdb")
Private sub Insert
 Dim command As New OleDbCommand()
  command.Connection = con
  command.CommandText = "INSERT INTO note1 (NomEtPrenom,Adresse,DateDeNaissance) VALUES (?,?,?);"
  command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text
  command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
  command.Parameters.Add("?", OleDbType.BSTR).Value = DateTimePicker1.Value.ToString("yyyy / MM / dd")
  command.ExecuteNonQuery()
 
end sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  If (String.IsNullOrWhiteSpace ......
 
  Insert
  TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
end sub

[LARBI18]

le sub insert doit etre a l'intrieur du button3 , quand je clic dessus l'insertion se fait

[gnain]

enlever la virgule à la fin et il faut que votre champ DateDeNaissance soit de format date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim cmd As New OleDbCommand("insert into note1 (NomEtPrenom,Adresse,DateDeNaissance) values ('" & TextBox1.Text & "','" & TextBox2.Text & "',#" & DateTimePicker1.Value.ToString("yyyy / MM / dd") & "#)")

[rv26t]

Bonjour,

@gnain
Il ne faut pas faire de concaténation de chaîne pour les requêtes.
Comme l'indique shayw, il faut utiliser les requêtes paramétrées. Voir Tuto.

[gnain]

LARBI18 a cité ..... je ne comprend pas ou est l'erreur.merci de votre aide ....
Je crois qu'il était important de lui répondre ce qui' il avait demandé.

Ceci dit. vous avez absolument raison pour les requêtes paramétrées. pour plus de sureté.

Mais moi aussi j'utilise assez souvent les concaténation de chaîne pour les requêtes.
On peut aussi ne pas autorisé certain caractère au moment de la saisie dans un textbox comme ' ou " ou & ou ;