Erreur de synthaxe dans l'instruction INSERT INTO

Signaler
-
 Delivel -
Bonjour,
Merci beaucoup pour votre aide Mr.Jordane ça marche bien le bouton modifier. Mais j'ai des problème sur le bouton ajouter un enregistrement car il y a unr erreur de syntaxte au niveau de ObjetDataAdapter.Update(ObjetDataSet, "NomPatient")
svp je solicite votre aide merci!

3 réponses

Messages postés
29569
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
20 septembre 2020
337
Vu que tu as ouvert une nouvelle discussion ... merci d'y remettre le code concerné ( en utilisant LES BALISES DE CODE )
Voir ici comment faire : http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Bonjour,

Si c’était le meme probleme que le mien j'ai changer l'emplacement de ma base donnée vers disque "E/", qui a été avant dans "C/" car update montre un erreur "Erreur de synthaxe dans l'instruction INSERT INTO"

et voila comment j l'ai resolu:

Private Sub Enregistrer_Click()

strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\MABASEDONNE.accdb"
strSql = "SELECT * FROM TABLE1"
ObjetConnection = New OleDbConnection(strConn)
ObjetConnection.ConnectionString = strConn
ObjetConnection.Open()
ObjetCommand = New OleDbCommand(strSql)
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
ObjetDataAdapter.Fill(ObjetDataSet, "TABLE1")
ObjetDataTable = ObjetDataSet.Tables("TABLE1")

Try
'Creer nouvelle ligne
ObjetDataRow = ObjetDataSet.Tables("TABLE1").NewRow()
ObjetDataRow("champ1") = Me.TextBox1.Text
ObjetDataRow("champ2") = Me.TextBox2.Text
ObjetDataRow("champ3") = Me.TextBox3.Text
ObjetDataRow("champ4") = Me.ComboBox1.Text
ObjetDataSet.Tables("TABLE1").Rows.Add(ObjetDataRow)

'Modifier les valeurs changées dans le DataAdapter
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)

'Mise à jour
ObjetDataAdapter.Update(ObjetDataSet, "TABLE1") '// l’exception apparait ici

'On vide le DataSet et on le 'recharge' de nouveau.
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "TABLE1")
ObjetDataTable = ObjetDataSet.Tables("TABLE1")

Catch ex As Exception
MsgBox(ex.Message)
End Try
MsgBox("Bien enregisté")

End Sub
Bonjour et merci de m'avoir repondu!
J'essaie et je tiens au courant merci.