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

Résolu
boy77000 Messages postés 12 Date d'inscription mardi 4 janvier 2005 Statut Membre Dernière intervention 5 mai 2006 - 4 mai 2006 à 16:55
boy77000 Messages postés 12 Date d'inscription mardi 4 janvier 2005 Statut Membre Dernière intervention 5 mai 2006 - 5 mai 2006 à 09:17
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

Dalida Messages postés 6728 Date d'inscription mardi 14 mai 2002 Statut Contributeur Dernière intervention 11 janvier 2016
4 mai 2006 à 20:22
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
boy77000 Messages postés 12 Date d'inscription mardi 4 janvier 2005 Statut Membre Dernière intervention 5 mai 2006
4 mai 2006 à 16:58
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
0
boy77000 Messages postés 12 Date d'inscription mardi 4 janvier 2005 Statut Membre Dernière intervention 5 mai 2006
5 mai 2006 à 09:17
Thank you very much Dalida, I love Dalida, Dalida is the best singer in this world!
0