Bonjour,
Je rencontre un problème lors de l'ajout d'un enregistrement dans une base de données access.
J'ai déjà utilisé ce code pour plusieurs autres tables et cela fonctionne parfaitement.
Ici, j'obtiens le message d'erreur indiqué dans le titre du topic.
J'ai vérifier le type de mes données et tout concorde parfaitement.
Je ne copie que la partie qui crée et ajoute le nouvel enregistrement dans la table. La ligne en rouge est la ligne qui aboutit au message d'erreur.
Je suis conscient qu'il doit probablement s'agir d'une erreur de "débutant" mais je dois bien reconnaître que j'en suis un.
Merci d'avance à tous ceux qui prendront le temps de m'aider un peu.
Griftou.
EDIT :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Try dataRow = dataTable.NewRow dataRow("NUMERO") = Me.tbNumOffre.Text dataRow("DATE") = Me.tbDateOffre.Text dataRow("GESTIONNAIRE") = employes.Item(Me.cbGestionnaire.Text) dataRow("ORIGINE") = Me.tbOrigine.Text dataRow("DESTINATION") = Me.tbDesti.Text dataRow("REMARQUE") = Me.tbRem.Text dataRow("CAR") = car dataRow("PRIX") = prix dataRow("CLIENT") = clients.Item(Me.cbClient.Text) dataRow("TOTAL") = total dataRow("ACCOMPTE") = 0 dataRow("CONFIRMEE") = False dataRow("CHAUFFEURS") = "" dataSet.Tables("TB_OFFRE").Rows.Add(dataRow) commandBuilder = New OleDbCommandBuilder(dataAdapter) dataAdapter.Update(dataSet, "TB_OFFRE") Catch ex As Exception MessageBox.Show("Erreur lors de l'enregistrement de la nouvelle offre : " & ex.Message.ToString, "Database error") Exit Sub End Try
Inutile de dire que j'ai consulté tous les tutoriels du site ainsi que la FAQ.
Partager