Проблема с работой в рекодсете

[Чудик]

В цикле такая часть кода:

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

    rs.AddNew
    rs.Fields(0) = frmPrihod.MSHFlexGrid1.TextMatrix(MyRow, 1)
    rs.Fields(1) = frmPrihod.txtPrihod.Text
    rs.Fields(3) = PrihodSum
    rs.Fields(2) = a + PrihodSum
    rs.Fields(8) = s1
    rs.Fields(10) = s2
    rs.Fields(12) = b
    rs.Update

rs2.MoveLast
Do While Not rs2.BOF
    If rs.Fields(0)= rs2.Fields(0) Then
        rs2.Edit
        rs2.Fields(5) = rs2.Fields(5) + PrihodSum
        rs2.Update
        GoTo MyDA
    End If
    rs2.MovePrevious
Loop
MyDA:


в начале все хорошо работает, но при достижении n-ого раза после rs.Update значение rs.Fields(0) просто слетает (выдает ошибку отсутствия таковой записи в рекодсете). В построчном выполнении кода так и видно:
до rs.Update rs.Fields(0)="AAA"
после rs.Update rs.Fields(0)=""
Отчего такое может быть? Что вообще может происходить?

[Чудик]

В принципе, я так и сделал. Просто уж больно интересно от чего такое явление и как его можно избежать.

[Чудик]

Хочешь сказать, что если я открою две базы Access на одном компе, то периодически в одну из копий я не смогу записывать или изменять данные?

[alibek]

Вообще-то эту задачу можно было бы решить исключительно SQL-запросом (UPDATE Table2 SET Field5 = Field5+123 WHERE Field0 = 234).
А по теме... Как открыт рекордсет (тип блокировки)?
Попробуй UpdateBatch.

[Andrey Fedorov]

Хочешь сказать, что если я открою две базы Access на одном компе, то периодически в одну из копий я не смогу записывать или изменять данные?

Да нет, не в этом дело.

[Andrey Fedorov]

В цикле такая часть кода:
в начале все хорошо работает, но при достижении n-ого раза после rs.Update значение rs.Fields(0) просто слетает (выдает ошибку отсутствия таковой записи в рекодсете). В построчном выполнении кода так и
...
Отчего такое может быть? Что вообще может происходить?

Значит в rs2 ты находишься на EOF или BOF - точнее отсюда невидно...

[Чудик]

А по теме... Как открыт рекордсет (тип блокировки)?
Попробуй UpdateBatch.

Параметры БД:
блокировка по умолчанию - отсутствует;
режим открытия по умолчанию - общий доступ.
И что такое UpdateBatch?

Andrey Fedorov, не пойму как я могу находиться в EOF или BOF в той части кода, который был приведен? Ведь, получается, что при нахождении какой-то записи в рекодсете, я ее пытаюсь изменить, - не может же операция сравнения выполняться на EOF/BOF.

Note:
При одноразовом цикле, вроде бы, нет проблем выполнения. Проблема имеет место в том случае когда указанный код крутиться в цикле несколько раз.

[Andrey Fedorov]

Andrey Fedorov, не пойму как я могу находиться в EOF или BOF в той части кода, который был приведен? Ведь, получается, что при нахождении какой-то записи в рекодсете, я ее пытаюсь изменить, - не может же операция сравнения выполняться на EOF/BOF.

Может. Так как данной записи в базе может уже и не быть (так как была изменена одним из предыдущих апдейтов). А в Recordset-e она еще есть.

Ты бы это... Чтобы было проще определить что у тебя за ошибка сделал бы парочку простейших табличек в mdb-шке (или скрипт на создание табличек в базе SQL, если работаешь с ним), ну и маленький проектик показывающий ошибку. И все это, запаковав, приложил к письму. Тогда и разобрались бы с ним в два счета... А так приходится большей частью гадать...