Erreur de synthaxe dans l'instruction INSERT INTO

- - Dernière réponse :  Delivel - 23 sept. 2016 à 16:07
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!
Afficher la suite 

3 réponses

Messages postés
26145
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 août 2019
314
0
Merci
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

Commenter la réponse de jordane45
0
Merci
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
Commenter la réponse de HD
0
Merci
Bonjour et merci de m'avoir repondu!
J'essaie et je tiens au courant merci.
Commenter la réponse de Delivel