Bonjour
j'arrive à me connecter à ma base de données mais je n'arrive pas à insérer des données dans la base pourtant j'ai suivi exactement les instructions de ce tuto de plasserrehttp://plasserre.developpez.com/v6-5.htm
mais je bloque au niveau du
Code : Sélectionner tout - Visualiser dans une fenêtre à part
AdapTContact2.Update(DtSet2, "EXAMEN")
je l'ai découvert avec un Msgbox avant cette instruction qui s'affiche mais celui juste après ne s'affiche pas. Voici mon code
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
26
27
28
29
30
31
32
33
                          command2 = New OleDbCommand("SELECT * FROM EXAMEN")
AdapTContact2 = New OleDbDataAdapter(command1)
command1.Connection = con1 
 
                'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
                AdapTContact2.Fill(DtSet2, "EXAMEN")
 
                'Mettre dans un Objet DataTable une table du DataSet
                Matable2 = DtSet2.Tables("EXAMEN")
 
                         'on insère
                myRow = DtSet2.Tables("EXAMEN").NewRow()
                myRow(0) = "MATH"
                myRow(1) = "MATHEMATIQUES"
                DtSet2.Tables("EXAMEN").Rows.Add(myRow)
 
                'Pour modifier les valeurs changées dans le DataAdapter
                ObjetCommandBuilder = New OleDbCommandBuilder(AdapTContact2)
 
               'je vérifie que ma dataset est bien rempli (marche)
                Matable2 = DtSet2.Tables("EXAMEN")
                While RowNumber < Matable2.Rows.Count
                    MsgBox(Matable2.Rows(RowNumber).Item(0).ToString)
                    RowNumber = RowNumber + 1
                End While
 
                MsgBox("je suis là") 's'affiche
                AdapTContact2.Update(DtSet2, "EXAMEN")
                MsgBox("me voici") 'ne s'affiche pas
                'On vide le DataSet et on le 'recharge' de nouveau.
                DtSet2.Clear()
                AdapTContact2.Fill(DtSet2, "EXAMEN")
                Matable2 = DtSet2.Tables("EXAMEN")
merci pour l'aide