Dalbator
Messages postés51Date d'inscriptionmardi 9 juillet 2013StatutMembreDerniè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.