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
|
Dim newRow As DataRow
newRow = ObjetDataSet.Tables("insertion_job").NewRow()
newRow("idPage") = idPage
newRow("sequence") = sequence
newRow("typeTexte") = typeTexte
newRow("pointeVers") = pointeVers
newRow("textePrecedent") = textePrecedent
newRow("url") = url
newRow("texteSuivant") = texteSuivant
newRow("flag") = flag
'il faudra essayer d'ajouter la ligne à l'endroit ou la sequence et immediatement supérieur et ou
'l'idPage correspond
ObjetDataSet.Tables("insertion_job").Rows.Add(newRow)
'créer les commande
ObjetCommandBuilder = New OdbcCommandBuilder(objetDataAdapter)
'insertion
objetDataAdapter.InsertCommand = ObjetCommandBuilder.GetInsertCommand
objetDataAdapter.Update(ObjetDataSet, "insertion_job")
ObjetDataSet.AcceptChanges()
'On vide le DataSet et on le 'recharge' de nouveau
ObjetDataSet.Clear()
objetDataAdapter.Fill(ObjetDataSet, "insertion_job")
ObjetDataTable = ObjetDataSet.Tables("insertion_job") |
Partager