А как можно без запроса сделать обновление? Ведь по всему видно, что DataSet содержит всю информацию о струкруре и наборе данных серверной БД. Почему нельзя обновить DataSet и найти способ обновления БД, при котором база данных анализирует изменения, произошедшие в таблицах датасета и принимает эти изменения на свой счет. Или проще - это делает не БД, а на клиенте - с помощью какой-нить функции (короткой) без применения параметризованных запросов и без сложной логики обновления. Просто прога видет, что данные в таблице датасет изменились и меняет их в таблице БД. Почему так нельзя сделать? Пожалуйста, объясните начинающему.

До встречи, Yurfact

Извиняюсь, загнался немного. Имел ввиду DataAdapter

Пробовал по Вашему совету с помощью SqlCommandBuilder:

Dim _daDovObl As SqlDataAdapter

Private Sub Frm_RtrNew_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

_daDovObl = DAFill(Me.DS, "DOVOBL") 'Me.DS - DataSet (на форме, но не типизирован), DOVOBL - таблица


'Здесь код по присвоения значений контролам
'...

End Sub

-----------------------------------------------------------------------------------------------------------


'А тепeрь присваиваем значения записям DataSet (в данном случае - из TreeView):
Private Sub TV_AfterLabelEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.NodeLabelEditEventArgs) Handles TV.AfterLabelEdit

Dim tn As TreeNode = Me.TV.SelectedNode
Dim dt As DataTable = PropertyNode(tn, mvPropertyTreeNodeClass.mvDataTable)
Dim tit As String = PropertyNode(tn, mvPropertyTreeNodeClass.mvNameColumnTitle)
Dim colId As String = PropertyNode(tn, mvPropertyTreeNodeClass.mvNameColumnId)
Dim id As Integer = PropertyNode(tn, mvPropertyTreeNodeClass.mvID)
Dim strRes As String = tn.Text

If FindAndUpdateRow(dt, colId, id, tit, strRes) = True Then MsgBox("Yes!!!")

End Sub


-----------------------------------------------------------------------------------------------------------

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
UpdateDA(Me.DS, "DOVOBL", _daDovObl)
End Sub

-----------------------------------------------------------------------------------------------------------

Public Function DAFill(ByVal Ds As DataSet, ByVal tblName As String, Optional ByVal strSQL As String = Nothing) _
As SqlDataAdapter

Dim stSQL As String

If IsNothing(strSQL) Then
stSQL = "SELECT * FROM " & tblName
Else
stSQL = strSQL
End If

Dim DA As New SqlDataAdapter(stSQL, OpenCnn.ConnectionString) 'Использую функцию подключения к БД (в ней храниться инфа о подключении,
'оторое может изменяться

DA.FillSchema(Ds, Source, tblName)
DA.Fill(Ds, tblName)

Return DA

End Function

-----------------------------------------------------------------------------------------------------------

Public Function FindAndUpdateRow(ByVal dt As DataTable, ByVal colId As String, ByVal id As Integer, _
ByVal colTit As String, ByVal strRes As String) As Boolean

Try
dt.PrimaryKey = New DataColumn() {dt.Columns(colId)}
Dim row As DataRow = dt.Rows.Find(id)

row(colTit) = strRes
row.AcceptChanges()

Return True

Catch ex As Exception
Return False

End Try
End Function

Но БД все равно не обнавляется. Почему?

А ЕЩЕ ЗАБЫЛ СКАЗАТЬ : ПОСЛЕ ОБНОВЛЕНИЕ ДАТАСЕТА ПРОВЕРИЛ - ДАННЫЕ ИЗМЕНИЛИСЯ, А ВОТ В БД ПОСЛЕ ВСЕХ ОПЕРАЦИЙ DA.UpdateCommand = Nothing
Т.е. по всему видно, что что-то с апдайтом

До встречи, Yurfact

Вопрос решен. Мешала строка row.AcceptChanges()

До встречи, Yurfact