1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Dim MaterialTableAdapter = New Pc_ManagementDataSetTableAdapters.MaterialsTableAdapter
Dim Materiels = New Pc_ManagementDataSet
Try
If Materiels.HasChanges Then
If MessageBox.Show("Are you sure you want to save changes?", "Confirmation of registration", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
MaterialTableAdapter.Update(Materiels.employe)
Else
Materiels.RejectChanges()
End If
End If
Catch ex As Exception
MessageBox.Show("An error occured when updating", "Error of update")
End Try |
Partager