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
| Try
Dim row1 As DataRow
row1 = myds.Tables(nomTable).NewRow()
row1(0) = ppr1
row1(1) = nom
row1(2) = prenom
row1(3) = grade
row1(4) = sexe
myds.Tables(nomTable).Rows.Add(row1)
'Pour modifier les valeurs changées dans le DataAdapter
Mycmdbuilder = New MySqlCommandBuilder(MydataAdapter)
'Mise à jour
MydataAdapter.Update(myds, nomTable)
MessageBox.Show("Ajout avec succes", "Saisie", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Sub ajouter" + vbCrLf + ex.Message)
Finally
'On vide le DataSet et on le 'recharge' de nouveau.
myds.Clear()
MydataAdapter.Fill(myds, nomTable)
ObjetDataTable = myds.Tables(nomTable)
End Try |
Partager