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

Signaler
Messages postés
12
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
5 mai 2006
-
Messages postés
12
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
5 mai 2006
-
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))

<hr size="2" width="100%"> ''''''''''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
<hr size="2" width="100%">

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

<hr size="2" width="100%">''''''''''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
<hr size="2" width="100%"><hr size="2" width="100%">
Voilà si on peut m'aider à trouver l'erreur!

Le message qu'il m'annonce : "Erreur de Synthaxe dans l'instruction INSERT TO"

3 réponses

Messages postés
6728
Date d'inscription
mardi 14 mai 2002
Statut
Contributeur
Dernière intervention
11 janvier 2016

salut,

ton erreur du champ 'Date'. tu utilises un mot réservé...
le plus simple pour nommer est de :
<li> se contenter d'utiliser :</li> - [a-z]
- [A-Z]
- [0-9]
<li>de ne pas utiliser les mots réservés du langage</li><li>toujours débuter par une lettre
</li>avec ça tu devrais passer tous les langages, toutes les versions

[ Dalida ]<hr>
pensez à indiquer le langage utilisé et sa version !
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
12
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
5 mai 2006

Mince j'ai mis deux fois de suite la partie du programme qui beug, donc regardez bien pour voir où cà s'arrête !!! lol
Messages postés
12
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
5 mai 2006

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