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!
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é")