Ajout des donnés avec un DataAdapter
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:
ObjetDataAdapter.Update(ObjetDataSet, "T_mdp")
:?
de mon code:
Code:
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...
:P
