Помогите! "row cannot be updated..." %-)

[Scuder]

Уже полтора часа туплю. Элементарное действие не могу сделать!

Access 2000. Обычная таблица. ADO.

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

ATempDB.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path + "\x.mdb"

ATempRS.CursorType = adOpenKeyset
ATempRS.LockType = adLockOptimistic
ATempRS.CursorLocation = adUseClient
ATempRS.ActiveConnection = ATempDB

ATempRS.Open "SELECT * FROM Payments WHERE pStatus=0"

If ATempRS.RecordCount > 0 Then
    For i = 1 To ATempRS.RecordCount
        If SendPayment(...) = True Then
            ATempRS.Update "pStatus", 1
        Else
            Exit For
        End If
        ATempRS.MoveNext
    Next i
End If
ATempRS.Close

Загадка в том, что в компиляторе всё работает как надо. А делаю EXE и он тут же вылетает на строке ATempRS.Update "pStatus", 1 с ошибкой "Row cannot be located for updating. Some values may have been changed since it was last read."

Бред какой-то!
Поиск завёл вот сюда: http://support.microsoft.com/default.aspx?scid=kb;en-us;300586
Но у меня поле pStatus не имеет значения по умолчанию!
Что делать?

[Ennor]

Н-да, тяжелый случай. Вот тут смотрел?

На самом деле, такое у меня предложение будет. Заместо:

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

ATempRS.Update "pStatus", 1

писать вот что:

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

ATempDB.Execute "update Payments set Status = 1 where Id = " & ATempRS.Fields("Id").Value


Но это, ясен пень, если у тебя там айдюк есть. Впрочем, я не видел еще ни одной системы, где платеж не был бы отдельной сущностью и, как следствие, не имел бы первичного ключа .

Если не поможет, кидай скрипт на таблицу, будем думать...

[Scuder]

Ennor, thx. Была у меня похожая мысль..

Но, согласись, неправильно это. Хотя, как посмотреть..
Что интересно, с DAO всё работает нормально.
Но что мне больше всего непонятно, почему из среды разработки всё рулит, а EXE'шник спотыкается!

[Ennor]

Компиляй с Debug Info и вызывай DebugBreak() где-нить перед этим местом. После чего свалишься в сишный дебаггер (надеюсь, он у тебя стоит ) и будешь отлаживать уже в нем.

Я уже не первый раз встречаю ситуацию, когда интерпретируемый и откомпилированный код ведут себя по-разному. Так что у тебя еще цветочки, у меня в первый раз булева переменная не меняла значение...

[Konst_One]

попробуй для начала перейти с ODBC на OLEDB Provider for Jet

[Andrey Fedorov]

Row cannot be located for updating. Some values may have been changed since it was last read."

Данное сообщение выдается если ты (или дургой пользователь) уже где-то в другом месте изменил данную запись после открытия Recordset-a. Ну а где - надо иметь исходники, чтобы разобраться...

[Scuder]

Господа, Ennor выразил единственную правильную мысль в данной ситуации.

Konst_One, JET (если порыть информацию) - это вещь, к которой без костюма хим. защиты лучше не подходить.

Andrey Fedorov, ты бы по ссылочке из первого топика зашёл.. А то твой пост как-то даже оскорбительно выглядит.