UPDATE文が処理されない

Question

VB6で作成しているシステム上から、SQLを発行し、
oo4oでレコードを編集しようとしています。
VB6のソースの一部を記載します。

'ダイナセットを作成する'
Dim vstrSql As String
Dim V_Arsl1 As OraDynaset
Dim V_Arsl2 As OraDynaset

vstrSql = "SELECT FROM DB_START WHERE ID = '00001'
Set V_Arsl1 = g_oo4o_DB.CreateDynaset(vstrSql, ORADYN_NO_BLANKSTRIP + ORADYN_NOCACHE)

vstSQL = "SELECT * FROM DB_A &_
WHERE NO_A IN ( &_
SELECT NO_B FROM DB_B WHERE ID = '012345')"
Set V_Arsl2 = g_oo4o_DB.CreateDynaset(vstrSql, ORADYN_NO_BLANKSTRIP + ORADYN_NOCACHE)

'（中略）'
'ダイナセット１での更新処理'
V_Arsl1.Edit
    If V_Arsl1.EOF = False Then
        Do Until V_Arsl1.EOF
            V_Arsl1("FLG") = '0'

            V_Arsl1.Update
            V_Arsl1.MoveNext
        Loop
    Else
        V_Arsl1.Close
        Set V_Arsl1 = Nothing
    End If

'ダイナセット２の解放'
V_Arsl.Close
Set V_Arsl = Nothing

'ダイナセット２での更新処理'
V_Arsl2.Edit '//ここでエラーが出る'
    If V_Arsl2.EOF = False Then
        Do Until V_Arsl2.EOF
            V_Arsl2("FLG") = '0'

            V_Arsl2.Update
            V_Arsl2.MoveNext
        Loop
    Else
        V_Arsl2.Close
        Set V_Arsl2 = Nothing
    End If

'ダイナセット２の解放'
V_Arsl2.Close
Set V_Arsl2 = Nothing

これを実行すると、

「実行時エラー440 OIP-04117 更新可能なセットではありません」

とエラーが出てしまいます。

このダイナセットの前に、別のダイナセットを作成して更新処理を行っています。
こちらのダイナセットでの更新処理は成功しています。

SQL文が問題なのかと思っているのですが、原因がわかりません。
ご教示いただければ幸いです。

Answer 1

こんにちは。

1. 成功する側のCreateDynasetは提示頂いたCreateDynasetと同一のコードですか？
2. 他のダイナセットのEdit中でロックされているということはないですか？

Comments

[f-hanako]

回答ありがとうございます。

> 1. 成功する側のCreateDynasetは提示頂いたCreateDynasetと同一のコードですか？
すみません、ダイナセットは２つ用意しており、
順番に別のダイナセットで更新処理を行っております。
（ソースのほう編集いたしました。）

>2.他のダイナセットのEdit中でロックされているということはないですか？

実際のソースでは以下のように処理を行っているのですが、
これではダイナセット１にロックがかかり、
ダイナセット２の処理に進まないということでしょうか？
-----------------------------------
　'ダイナセット１作成
　'Dim V_Arsl As OraDynaset
　'ダイナセット２作成
　Dim V_Arsl2 As OraDynaset

'　ダイナセット１での更新処理
　V_Arsl1.Edit
　 （中略）
　V_Arsl1.Update

'　ダイナセット１の解放

'　ダイナセット２での更新処理
　V_Arsl2.Edit
　 （中略）
　V_Arsl2.Update

'　ダイナセット２の解放
-----------------------------------

[Tak1wa]

※oo4oの使用経験があまり無いので的はずれな回答をしていたらすみませんね。

まず問題の切り分けとして二つのダイナセットが影響しあっているのか、単体でダイナセット２に問題があるのかを確認することは出来ると思います。

１．ダイナセット１の処理をコメントアウトした場合にダイナセット２は動作しますか？
２．１で動作しないのであればダイナセット２自体に問題がありますね。その場合ダイナセット２に対してダイナセット１のSQL文を使用した場合であれば成功しますか？

[f-hanako]

提示された二つについて実行してみました。

>１．ダイナセット１の処理をコメントアウトした場合にダイナセット２は動作しますか？
ダイナセット２は動作しませんでした。

>２．１で動作しないのであればダイナセット２自体に問題がありますね。その場合ダイナセット２に対してダイナセット１のSQL文を使用した場合であれば成功しますか？
ダイナセット１をコメントアウトして、ダイナセット１のSQL文を使用したところ、更新に成功しました。

[Tak1wa]

ではSQL文がおかしい可能性が高いです。
VB6の文法を忘れてしまいましたが…。

>"SELECT * FROM DB_A &_
>WHERE NO_A IN ( &_
>SELECT NO_B FROM DB_B WHERE ID = '012345')"

これは
"SELECT * FROM DB_A " &_
"WHERE NO_A IN ( " &_
"SELECT NO_B FROM DB_B WHERE ID = '012345')"

ではなかったでしたっけ。

[f-hanako]

すみません、こちらでは見やすいように改行を加えていますが、実際は
　"SELECT * FROM DB_A WHERE NO_A IN ( SELECT NO_B FROM DB_B WHERE ID = '012345')"
と一行で設定しております。
また、このSQL文を単体で実行したところ、Common SQL Environmentからは対象のレコードが抽出されております。

[Tak1wa]

ダイナセットのupdatebleはTrueになってますか？
oo4oのバージョンを教えてください。

[f-hanako]

ありがとうございました。解決いたしました。

初めにTak1waさんが提示していた
> 他のダイナセットのEdit中でロックされているということはないです
こちらが原因でした。
別に起動していたCommon SQL Environmentで、DBをレコードをロックしていたようでした……。
お騒がせいたしました。

[f-hanako]

また、複合SQL文ではうまくいかないと判断し、先にダイナセットからNO_A だけを配列に保管し、それを読み出して一行一行更新していく方法にいたしました。
こちらに変更したところ、更新処理に成功しました。

-----------------------------------
Dim V_NoArray() As Variant
Dim V_NoCnt As Long

'（中略）'

If V_Arsl2.EOF = False Then
Do Until V_Arsl2.EOF
ReDim Preserve V_NoArray(V_NoCnt)
V_NoArray(V_NoCnt) = V_Arsl2("NO_A)
V_NoCnt = V_NoCnt + 1
V_Arsl2.MoveNext
Loop
End If

V_Arsl2.Close
Set V_Arsl2 = Nothing

vstSQL = "SELECT * FROM DB_A WHERE NO_A ='" & Array(i) & "'"
Set V_Arsl2 = g_oo4o_DB.CreateDynaset(vstrSql, ORADYN_NO_BLANKSTRIP + ORADYN_NOCACHE)

If V_Arsl2.EOF = False Then
Do Until V_Arsl2.EOF
V_Arsl2("FLG") = '0'
V_Arsl2.Update
V_Arsl2.MoveNext
Loop
Else
V_Arsl2.Close
Set V_Arsl2 = Nothing
End If

V_Arsl2.Close
Set V_Arsl2 = Nothing

-----------------------------------

迅速な回答ありがとうございました。

Answer 2

対象テーブルの更新権限は大丈夫でしょうか？

oo4oドライバが最新でない場合を最新化してみるとか。

最悪ExecuteSQLで実行してみるなど。。

Comments

[f-hanako]

回答ありがとうございます。

> 対象テーブルの更新権限は大丈夫でしょうか？
同ソース内の別の処理では、対象テーブルに対してレコードの追加を行っており、正しく処理されております。
また、Common SQL EnvironmentというソフトウェアからDBへ接続して、以下のようなアップデート文を実行したところ、更新を行うことができました。
UPDATE DB_A SET FLG= '0' WHERE NO_A IN ( &_
SELECT NO_B FROM DB_B WHERE ID = '012345')"

>最悪ExecuteSQLで実行してみるなど。。
こちらのほうを検討してみます。ありがとうございます。