Ecrire dans une base de donnée access
Bonsoir, je souhaite écrire des données dans ma base de donnée avec la méthode Update, j'ai beaux vérifier si j'ai pas fait une erreur de syntaxe mais le programme me dit qu'il y a une erreur de syntaxe dans l'instruction Update or je ne la voit pas. Je comprend pas pourquoi il me rejette. Pourriez vous m'aidez?
Voici mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Private Sub Valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Valider.Click
ObjetDataRow = ObjetDataSet.Tables("InformationEntreprise").Rows(0)
ObjetDataRow("Nom Entreprise") = NomAutoEntreprise.Text
ObjetDataRow("Statut") = Statut.Text
ObjetDataRow("Nom") = Nom.Text
ObjetDataRow("Prenom") = Prenom.Text
ObjetDataRow("Adresse") = Adresse.Text
ObjetDataRow("Code Postal") = CodePostal.Text
ObjetDataRow("Ville") = Ville.Text
ObjetDataRow("Telephone") = Telephone.Text
ObjetDataRow("Portable") = Portable.Text
ObjetDataRow("Fax") = Fax.Text
ObjetDataRow("Email") = Email.Text
ObjetDataRow("SIREN") = SIREN.Text
ObjetDataRow("SIRET") = SIRET.Text
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
Try
ObjetDataAdapter.Update(ObjetDataSet, "InformationEntreprise")
Catch ex As Exception
MsgBox(ex.Message)
End Try
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "InformationEntreprise")
ObjetDataTable = ObjetDataSet.Tables("InformationEntreprise")
ObjetConnection.Close()
Close()
End Sub |