Bouton 'ajouter' cherches l'erreur mais ne la voit pas !!!Résolu

Question

Bonjour tout le monde, Je suis toujours sur mon programme de gestion de base de données access pour ceux qui suivent mes péripéties. Et comme toujours lorsque je viens ici, j'ai un problème. Pour déroger à la règle cette fois-ci je ne vois pas d'où peut venir l'erreur. Voici mon bouton ajouter: Donc si quelqu'un veut jouer au jeu des erreurs Il y en a au moins une! VB.NET et OleDB (Pour infos: ce bouton se trouve dans une Form annexe appelée par la principale sur clic d'un bouton, elle gère une autre table différentes de celle gérée par la form principale. Et pour la form principale ce bouton ajouter fonctionne et est consrtuit de la même facon. Je vous met à la suite le bouton ajouter de la form principal (celui-là fonctionne))

''''''''''Ajouter un enregistrement:'''''''''' ObjetDataRowSorties = ObjetDataSetSorties.Tables("Sorties").NewRow() ObjetDataRowSorties("NuméroSérie") = Me.NuméroSérie.Text ObjetDataRowSorties("Client") = Me.Client1.Text ObjetDataRowSorties("Date") = Me.DateSortie.Text ObjetDataRowSorties("NuméroBonLivraison") = Me.NuméroBL.Text ObjetDataSetSorties.Tables("Sorties").Rows.Add(ObjetDataRowSorties) 'Pour modifier les valeurs changées dans le DataAdapter ObjetCommandBuilderSorties = New OleDbCommandBuilder(ObjetDataAdapterSorties) 'Mise à jour Try ObjetDataAdapterSorties.Update(ObjetDataSetSorties, "Sorties") Catch ex As OleDbException MsgBox(ex.Message) End Try 'On vide le DataSet et on le 'recharge' de nouveau. ObjetDataSetSorties.Clear() ObjetDataAdapterSorties.Fill(ObjetDataSetSorties, "Sorties") ObjetDataTableSorties = ObjetDataSetSorties.Tables("Sorties") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If RowNumber < 0 Then ObjetConnectionSorties.Close() Exit Function End If 'Lors de l'ouverture de la BD, s'il yn'y a aucun enregistrement If RowNumber > ObjetDataTableSorties.Rows.Count - 1 Then ObjetConnectionSorties.Close() Exit Function End If 'ObjetTable.Rows(Numéro de lignes).Item(Nom de colonne) donne le contenu d'un champ dans une case donnée Me.NuméroSérie.Text = ObjetDataTableSorties.Rows(RowNumber).Item("NuméroSérie") Me.Client1.Text = ObjetDataTableSorties.Rows(RowNumber).Item("Client") Me.DateSortie.Text = ObjetDataTableSorties.Rows(RowNumber).Item("Date") Me.NuméroBL.Text = ObjetDataTableSorties.Rows(RowNumber).Item("NuméroBonLivraison") 'affichage des données dans le datagrid DataGrid1.SetDataBinding(ObjetDataSetSorties, "Sorties") 'Item peut avoir en paramètre le nom de la colonne ou son index Me.ObjetConnectionSorties.Close() Me.ObjetConnectionSorties.Open() ''''''''''Ajouter un enregistrement:'''''''''' ObjetDataRowSorties = ObjetDataSetSorties.Tables("Sorties").NewRow() ObjetDataRowSorties("NuméroSérie") = Me.NuméroSérie.Text ObjetDataRowSorties("Client") = Me.Client1.Text ObjetDataRowSorties("Date") = Me.DateSortie.Text ObjetDataRowSorties("NuméroBonLivraison") = Me.NuméroBL.Text ObjetDataSetSorties.Tables("Sorties").Rows.Add(ObjetDataRowSorties) 'Pour modifier les valeurs changées dans le DataAdapter ObjetCommandBuilderSorties = New OleDbCommandBuilder(ObjetDataAdapterSorties) 'Mise à jour Try ObjetDataAdapterSorties.Update(ObjetDataSetSorties, "Sorties") Catch ex As OleDbException MsgBox(ex.Message) End Try 'On vide le DataSet et on le 'recharge' de nouveau. ObjetDataSetSorties.Clear() ObjetDataAdapterSorties.Fill(ObjetDataSetSorties, "Sorties") ObjetDataTableSorties = ObjetDataSetSorties.Tables("Sorties") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If RowNumber < 0 Then ObjetConnectionSorties.Close() Exit Function End If 'Lors de l'ouverture de la BD, s'il yn'y a aucun enregistrement If RowNumber > ObjetDataTableSorties.Rows.Count - 1 Then ObjetConnectionSorties.Close() Exit Function End If 'ObjetTable.Rows(Numéro de lignes).Item(Nom de colonne) donne le contenu d'un champ dans une case donnée Me.NuméroSérie.Text = ObjetDataTableSorties.Rows(RowNumber).Item("NuméroSérie") Me.Client1.Text = ObjetDataTableSorties.Rows(RowNumber).Item("Client") Me.DateSortie.Text = ObjetDataTableSorties.Rows(RowNumber).Item("Date") Me.NuméroBL.Text = ObjetDataTableSorties.Rows(RowNumber).Item("NuméroBonLivraison") 'affichage des données dans le datagrid DataGrid1.SetDataBinding(ObjetDataSetSorties, "Sorties") 'Item peut avoir en paramètre le nom de la colonne ou son index

Et le bouton 'ajouter' de la form principale, celui-là fonctionne:

''''''''''Ajouter un enregistrement:'''''''''' ObjetDataRow = ObjetDataSet.Tables("Client").NewRow() ObjetDataRow("Société") = Me.Société.Text ObjetDataRow("Adresse") = Me.Adresse.Text ObjetDataRow("CodePostal") = Me.CodePostal.Text ObjetDataRow("Ville") = Me.Ville.Text ObjetDataRow("Téléphone") = Me.Téléphone.Text ObjetDataRow("FAX") = Me.FAX.Text ObjetDataRow("Civilité") = Me.Civilité.Text ObjetDataRow("Contact") = Me.Contact.Text ObjetDataRow("Fonction") = Me.Fonction.Text ObjetDataRow("Portable") = Me.Portable.Text ObjetDataRow("Email") = Me.Email.Text ObjetDataSet.Tables("Client").Rows.Add(ObjetDataRow) 'Pour modifier les valeurs changées dans le DataAdapter ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter) 'Mise à jour Try ObjetDataAdapter.Update(ObjetDataSet, "Client") Catch ex As OleDbException MsgBox(ex.Message) End Try 'On vide le DataSet et on le 'recharge' de nouveau. ObjetDataSet.Clear() ObjetDataAdapter.Fill(ObjetDataSet, "Client") ObjetDataTable = ObjetDataSet.Tables("Client") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If RowNumber < 0 Then ObjetConnection.Close() Exit Function End If 'Lors de l'ouverture de la BD, s'il yn'y a aucun enregistrement If RowNumber > ObjetDataTable.Rows.Count - 1 Then ObjetConnection.Close() Exit Function End If 'ObjetTable.Rows(Numéro de lignes).Item(Nom de colonne) donne le contenu d'un champ dans une case donnée Me.Société.Text = ObjetDataTable.Rows(RowNumber).Item("Société").ToString Me.Adresse.Text = ObjetDataTable.Rows(RowNumber).Item("Adresse").ToString Me.CodePostal.Text = ObjetDataTable.Rows(RowNumber).Item("CodePostal").ToString Me.Ville.Text = ObjetDataTable.Rows(RowNumber).Item("Ville").ToString Me.Téléphone.Text = ObjetDataTable.Rows(RowNumber).Item("Téléphone").ToString Me.FAX.Text = ObjetDataTable.Rows(RowNumber).Item("FAX").ToString Me.Civilité.Text = ObjetDataTable.Rows(RowNumber).Item("Civilité").ToString Me.Contact.Text = ObjetDataTable.Rows(RowNumber).Item("Contact").ToString Me.Fonction.Text = ObjetDataTable.Rows(RowNumber).Item("Fonction").ToString Me.Portable.Text = ObjetDataTable.Rows(RowNumber).Item("Portable").ToString Me.Email.Text = ObjetDataTable.Rows(RowNumber).Item("Email").ToString 'affichage des données dans le datagrid DataGrid1.SetDataBinding(ObjetDataSet, "Client") 'Item peut avoir en paramètre le nom de la colonne ou son index

Voilà si on peut m'aider à trouver l'erreur! Le message qu'il m'annonce : "Erreur de Synthaxe dans l'instruction INSERT TO"

Dalida · Accepted Answer

salut, ton erreur du champ 'Date'. tu utilises un mot réservé... le plus simple pour nommer est de :

se contenter d'utiliser :

- [a-z] - [A-Z] - [0-9]

de ne pas utiliser les mots réservés du langage

toujours débuter par une lettre

avec ça tu devrais passer tous les langages, toutes les versions [ Dalida ]

pensez à indiquer le langage utilisé et sa version !

boy77000 · Answer

Mince j'ai mis deux fois de suite la partie du programme qui beug, donc regardez bien pour voir o&#249; c&#224; s'arr&#234;te !!! lol

boy77000 · Answer

Thank you very much Dalida, I love Dalida, Dalida is the best singer in this world!

Bouton 'ajouter' cherches l'erreur mais ne la voit pas !!!

3 réponses

Discussions similaires