и еще вопросик по добавлению/удалению строк в DataSet и базе

[Loiste]

Помогите еще разочек, пожалуйста..запуталась совсем..

Добавляю строку в таблицу Вопросы в DataSet11:

Код: Выделить всё

Dim cRow As DataRow
cRow = DataSet11.Вопросы.NewRow()
cRow.BeginEdit()
cRow("Вопрос") = AddNode.Text
cRow("КодТемы") = AddNode.Parent.Tag
cRow.EndEdit()
DataSet11.Вопросы.Rows.Add(cRow)
OleDbDataAdapter1.Update(DataSet11, "Вопросы")

Пробую удалить строку из таблицы Вопросы из DataSet11:

Код: Выделить всё

DataSet11.Вопросы.Rows(R).Delete()  'R - номер удаляемой строки
OleDbDataAdapter1.Update(DataSet11, "Вопросы")

Проблема в том, что если я пробую удалить строку, которая была добавлена при прошлом запуске приложения - все получается.
Если я добавляю строку при текущем запуске приложения и тут же пытаюсь ее удалить на строке OleDbDataAdapter1.Update(DataSet11, "Вопросы") отладчик выдает ошибку

An unhandled exception of type 'System.Data.DBConcurrencyException' occurred in system.data.dll

Additional information: Concurrency violation: the DeleteCommand affected 0 records.

Опять же, если я ту же самую строку пробую удалить при следующем запуске приложения она нормально удаляется..

[Sebas]

Всё правильно, её же нет в базе.
Если нужно удалить ряд из ТОЛЬКО из датасета используй Remove.

[Loiste]

Нет, мне нужно, чтобы при удалении строка удалялась из DataSet11 и из базы..
А если использовать Remove я не смогу потом обновить базу с помощью адаптера, верно?

Подразумевается, что приложение будет сетевым и работать с базой будут одновременно несколько пользователей.
Но, может быть, вы все же посоветуете обновлять базу данных при завершении приложения?

[Loiste]

Странный он какой-то, этот отладчик. То все работает и все нормально удаляется, а то ошибку вдруг выдает.. Хотя я ничего не меняла. Код одинаковый.

[Sebas]

на обнови датасет после апдейта и будет тебе счастье, а лучше книгу про адо купи и разберись как она(оно?) работает

[AlexM]

Ваш код:
Dim cRow As DataRow
cRow = DataSet11.Вопросы.NewRow()
cRow.BeginEdit()
cRow("Вопрос") = AddNode.Text
cRow("КодТемы") = AddNode.Parent.Tag
cRow.EndEdit()
DataSet11.Вопросы.Rows.Add(cRow)
OleDbDataAdapter1.Update(DataSet11, "Вопросы")

Попробуйте после обновления БД очистить dataSet и заново его заполнить методом Fill.

[Sebas]

или просто использовать проверку на наличие изменений

HasChanges

Если Ложь, то нефиг и обновлять.