Erreur de synthaxe dans l'instruction INSERT INTO

Delivel - 16 sept. 2016 à 13:03
 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!

3 réponses

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 344
16 sept. 2016 à 13:42
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

0
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
0
Bonjour et merci de m'avoir repondu!
J'essaie et je tiens au courant merci.
0
Rejoignez-nous