ADODBでのUpdate (ID:116027)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつも拝見させていただいてます、なめこといいます。 現在以下の環境にてVBプログラムの開発を行っています。 サーバ：Win2K Srv ＤＢ：Oracle9i クライアント：Win2K Pro 処理：テーブルＡをEOFまで読込み、フィールドＡの更新を行う処理を作成しています。 ------------ここから-------------------------- strSQL = "Select * From テーブルＡ" Set RS = CreateObject("ADODB.Recordset") RS.LockType = adLockOptimistic RS.Open strSQL, コネクション変数 Do While Not RS.EOF lngWork = RS("フィールドＡ") + 1 RS("フィールドＡ").Value = lngWork RS.Update RS.MoveNext Loop RS.Close Set RS = Nothing ------------ここまで-------------------------- フィールドＡはNUMBER型で、フィールドＡの内容を1ずつプラスするというだけの処理です。 ところが実行前のフィールドＡにマイナスの値が入っていると、「更新する行が見つからなかったため、クエリベースの更新に失敗しました。」というエラーになってしまいます。 (フィールドＡの初期値が全て正の値であると正常に処理を行います) そもそもマイナスの値に対してUpdateしてはいけない仕様なのでしょうか？ ご存知の方がおられましたらご教授お願いします。