Еще один подход, который использует преимущества LinqToSql
Dim Customer = (From cust in db.Customers Where cust.SalesID = -1).GetEnumerator
While Customer.MoveNext
Customer.Current.SomeField = NewValue
End While
db.SubmitChanges()
где db - полностью определенный объект DataContext.
Обновление (с набором данных):
Dim cmdEditCustomer as String = "UPDATE Customers SET Myvalue = @Myvalue WHERE SalesID = -1"
Dim CN as New SqlConnection(ConnString)
DACustomers.UpdateCommand = New SqlClient.SqlCommand(cmdEditCustomer)
DACustomers.UpdateCommand.Connection = CN
Dim param as New SqlParameter
param.ParameterName = "@Myvalue"
param.sqldbtype = Sqldbtype.String ( or whatever it is)
param.Direction = ParameterDirection.Input
param.Size = 15
Param.Value = "Whatever"
DaCustomers.UpdateCommand.Parameters.Add(param)
или
DACustomers.UpdateCommand(New System.Data.SqlClient.qlParameter(paramName,paramType,paramSize, _
paramDirection,ParamNullable,paramPrecision,paramScale,columnName,rowVersion,paramValue)