Как получить значение уникального поля

[Lonely]

Вопрос.
Как получить значение уникального поля.

Ситуация такая.
Уникальное поле являеться счетчиком
Когда запись добовляеться в датасет уникальное поле имеет одно значение (допустим -1)
Делаем Update
В базе эта же запись имеет другое уникальное значение (допустим 1), а датасете осталось старое (-1)

База аксесовская

--------------
Заранее блогадарен

[Rainbow]

Как, когда и кем делается Update?

Для того, чтобы синхронизировать данные базы и DataSet необходимо фактически заново заполнить DataSet.

Дело в том, что DataSet - это отсоединенная копия базы. Он позволяет производить изменения локально, а потом, когда это потребуется, анализировать изменения и вносить их в базу.

Может, задача была некорректно решена с точки зрения ADO.NET?

[Lonely]

Обновление происходить с помощью датаадаптера
Если сравнивать InsertComand
для Sql server

INSERT INTO Orders
(CustomerID,...)
VALUES (@CustomerID,...);
SELECT OrderID,...
FROM Orders
WHERE (OrderID = @@IDENTITY)

И он сразу возвращает добавленую запись

А для аксесса

INSERT INTO TableName
(Pole1,...)
VALUES (?, ...)
Может возможно это решить по другому

[Rainbow]

Ага, проблема, вроде, понятна: после того, как выполнен Insert, достать вновь добавленный ID.

Решение нашла такое
На AfterRowUpdated повесить выполнение "SELECT @@IDENTITY"
Это должно работать для Jet4 (Access 2000 и выше)

Пойду проверять...

[Lonely]

Я так понимаю AfterRowUpdated - это событие, но у какого обьекта

[Rainbow]

у DataAdapter

[Lonely]

Спасибо за подсказку

Вопрос снимаеться все решено.

[Rainbow]

ммм... не за что...
А у меня не получилось. Не отдает, хотя коннекция открыта, запись добавляется. Странно .

Ну да ладно, раз все уже хорошо...

[Lonely]

Я решил проблему так, если будут другие варианты буду готов принять

Protected Shared Sub OnRowUpdated(ByVal sender As Object, ByVal e As System.Data.OleDb.OleDbRowUpdatedEventArgs)
Dim lSelectCmd As New OleDb.OleDbCommand("Select @@Identity")
lSelectCmd.Connection = e.Command.Connection
Dim lObj As Object
lObj = lSelectCmd.ExecuteScalar
If Not e.Row.Table.Columns(0).ReadOnly Then
e.Row(0) = Convert.ToInt32(lObj)
End If
End Sub

Еще раз огромное тебе спасибо

[Rainbow]

нет, других вариантов нет
делаю то же самое

Еще раз огромное тебе спасибо

пожалуйста. Welcome, как говорится