Faire une insertion dans une BD Access

Version imprimable

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:

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

Bonjour

Utilise des requêtes paramétrées

Code:

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

26/01/2015, 13h42
LARBI18

le sub insert doit etre a l'intrieur du button3 , quand je clic dessus l'insertion se fait
31/01/2015, 16h16
gnain

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

Code:

Dim cmd As New OleDbCommand("insert into note1 (NomEtPrenom,Adresse,DateDeNaissance) values ('" & TextBox1.Text & "','" & TextBox2.Text & "',#" & DateTimePicker1.Value.ToString("yyyy / MM / dd") & "#)")
31/01/2015, 17h33
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.
01/02/2015, 00h22
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 ;
01/02/2015, 13h38
rv26t

Citation:

Envoyé par gnain

On peut aussi ne pas autorisé certain caractère au moment de la saisie dans un textbox comme ' ou " ou & ou ;

Ou comment construire une usine à gaz. :aie:
On ne le répètera jamais assez, l'utilisation des requêtes paramètrées est la seule solution fiable.
Cela est plus sur, évite la gestion (et doublage) des ' , et gére les formats de données. Bref plus sur, plus simple. ;)