Из dataset-> datatable вывожу данные в texbox _ы, пользователь может произвести изменение данных, и по нажатию на кнопку из texbox _ов я отправляю данные в datatable и затем уже обновляю запись в БД. Мне необходимо обновить строку таблицы в БД, если измение произошло хотя бы в одном из texbox _ов и выдать сообщение, что измение прошло успешно и не обновлять, если не было изменений и выдать сообщение, что обновление данных не произошло, так как текст в texbox не подвергся изменениям. Или кто-то предложит другую схему обновления записи в таблице? Вот код кнопки:
- Код: Выделить всё
Private Sub Modifier_Click(sender As Object, e As EventArgs) Handles Modifier.Click
Try
ObjetDataRow = ObjetDataSet.Tables("LBPA_ETI_CARACT").Rows(RowNumber)
- заношу данные из texbox _ов в Table("LBPA_ETI_CARACT")
ObjetDataRow("ETI_ID") = Me.TB_ID.Text
ObjetDataRow("ETI_TAILLE") = Me.TB_TAILLE.Text
ObjetDataRow("ETI_OFFSET") = Me.TB_OFFSET.Text
ObjetDataRow("ETI_AVERTICAL") = Me.TB_AVERTICAL.Text
ObjetDataRow("ETI_AHORIZONTAL") = Me.TB_AHORIZONTAL.Text
ObjetDataRow("ETI_FR") = Me.TB_FR.Text
ObjetDataRow("ETI_POLICE") = Me.TB_POLICE.Text
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
-- обновление данных в таблице БД
ObjetDataAdapter.Update(ObjetDataSet, "LBPA_ETI_CARACT")
-- загружаю новые данные в ObjetDataSet.Tables("LBPA_ETI_CARACT")
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "LBPA_ETI_CARACT")
ObjetDataTable = ObjetDataSet.Tables("LBPA_ETI_CARACT")
Catch ex As Exception
MessageBox.Show( ex.message, "Сообщение об ошибке.", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub