Insertion de données dans une base acces
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:
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:
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