Ajout des donnés avec un DataAdapter

**Marc_27** · 21/03/2009, 20h40

Bonjour à tous,

j'essaye de ajouter des donnés (username et mdp) dans une table access, mais j'ai toujours la message suivant:
Erreur de syntaxe dans l'instruction INSERT INTO.
elle apparait dans la ligne

Code :

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

ObjetDataAdapter.Update(ObjetDataSet, "T_mdp")

de 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
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
52
53
54
55
Imports System.Data.OleDb
 
Public Class frmModifierMDP
    Private ObjetConnection As OleDbConnection
    Private ObjetCommand As OleDbCommand
    Private ObjetDataAdapter As OleDbDataAdapter
    Private ObjetDataSet As New DataSet()
    Private strSql As String
    Private ObjetDataTable As DataTable
    Private ObjetDataRow As DataRow
    Private RowNumber As Integer
    Private strConn As String
    Private ObjetCommandBuilder As OleDbCommandBuilder
 
    Private Sub btnEntrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEntrer.Click
        If Me.txtNom.Text.Length < 3 Then
            MsgBox("Le nom d'utilisateur doit avoir au moins 3 caractéres", MsgBoxStyle.Exclamation, "Invalid Username")
            Me.txtNom.SelectAll()
        ElseIf txtMDP.Text <> txtMDP2.Text Then
            MsgBox("Les deux mots de passe doivent être egales", MsgBoxStyle.Exclamation, "Invalid mot de passe")
            txtMDP2.Text = ""
            txtMDP.Text = ""
            txtMDP.Select()
        Else
            ObjetConnection = New OleDbConnection()
            ObjetConnection.ConnectionString = ConnectionString
            ObjetConnection.Open()
            ObjetCommand = New OleDbCommand("SELECT T_mdp.* FROM T_mdp")
            ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
            ObjetCommand.Connection() = ObjetConnection
            ObjetDataAdapter.Fill(ObjetDataSet, "T_mdp")
            ObjetDataTable = ObjetDataSet.Tables("T_mdp")
            ObjetDataRow = ObjetDataSet.Tables("T_mdp").NewRow()
            ObjetDataRow("user") = Me.txtNom.Text
            ObjetDataRow("mdp") = Me.txtMDP.Text
            ObjetDataSet.Tables("T_mdp").Rows.Add(ObjetDataRow)
            ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
            ObjetDataAdapter.Update(ObjetDataSet, "T_mdp")
            ObjetDataSet.Clear()
            ObjetDataAdapter.Fill(ObjetDataSet, "T_mdp")
            ObjetDataTable = ObjetDataSet.Tables("T_mdp")
            strUser = txtNom.Text
            frmAccueil.Show()
        End If
 
    End Sub
 
    Private Sub frmModifierMDP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtNom.Select()
    End Sub
 
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub
End Class

Merci d'avance pour toute l'aide...

**tomlev** · 21/03/2009, 21h36

Bizarre ça... avec un CommandBuilder ça ne devrait pas arriver
Essaie d'ajouter un handler à l'évènement RowUpdating du DataAdapter, pour voir la requête générée

**Marc_27** · 22/03/2009, 14h07

Merci tomlev.

Ce matin j'ai trouvé le soucis dans le site du support Microsoft:
Je ne peux pas avoir un champ "user" dans la table, ça fait un erreur, car user est une mot clé d'ADO.