Problème d'enregistrement dans une BDD en vb.net

Fermé
Dalbator Messages postés 51 Date d'inscription mardi 9 juillet 2013 Statut Membre Dernière intervention 3 juin 2017 - 26 avril 2015 à 20:04
Bonjour,

J'i un nouveau problème. lorsque je veux mettre de nouvelles informations dans ma BDD j'utilise le code suivant :
 Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic

Public Class Form1

    Private cnx As OleDbConnection
    Private cmd As OleDbCommand
    Private dta As OleDbDataAdapter
    Private [/contents/76-dts-digital-theater-sound dts] As New DataSet
    Private sql As String
    Private dtt As DataTable
    Private dtr As DataRow
    Private rownum As Integer
    Private cnxstr As String
    Private cmdb As OleDbCommandBuilder

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cnxstr = "provider = microsoft.ace.oledb.12.0 ; data source = " & "bdd.accdb"
        cnx = New OleDbConnection
        cnx.ConnectionString = cnxstr
        cnx.Open()
        sql = "select * From Table1"
        cmd = New OleDbCommand(sql)
        dta = New OleDbDataAdapter(cmd)
        cmd.Connection() = cnx
        dta.Fill(dts, "table")
        dtt = dts.Tables("table")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("Veuillez remplir tout les champs")
            Else
                dtr = dts.Tables("table").NewRow
                dtr("Pseudo") = TextBox1.Text
                dtr("Mot de passe") = TextBox2.Text
                dtr("Adresse Mail") = TextBox3.Text
            dts.Tables("table").Rows.Add(dtr)
            cmdb = New OleDbCommandBuilder(dta)
            dta.Update(dts, "table")
                dts.Clear()
            dta.Fill(dts, "table")
            dtt = dts.Tables("table")
           
            End If

    End Sub


End Class


Mais j'ai un problème lorsque j'appuie sur le bouton Ici :
dta.Update(dts, "table")

L'erreur : Erreur de syntaxe dans l'instruction INSERT INTO.

J'ai beau avoir cherché je n'ai pas trouvé de réponse a mon problème et comme c'est la première fois que j'essaie de me connecter a une base de donnée en vb.net je ne comprend pas tout. Est ce que vous pourriez me dire d'où viens ce problème.

Merci
A voir également: