データテーブルを行ループさせながら 更新を達成したい

Question

Microsft SQLServerのある一つのテーブルについて、Oracle上の別テーブルの状況次第で　更新していく作業を達成しようとしています。
（いつもはSQLServerの接続はSystem.Data.SqlClientを利用するのですが　試行錯誤しているうちにOLEDBプロバイダになってしまいました．．．。プロバイダに拘りはありません）

『質問』

以下現在取り組んでいるコードの抜粋ですが、
「この Command に関連付けられている DataReader が既に開かれています。このコマンドを最初に閉じる必要があります。」というエラーを招いてしまいます。
接続を維持して、別データを参照し　元データ（テーブル）の更新を行う方法は　どうするのが鉄板・常套手段でしょうか？
今朝方　ADO.NETのDataAdapter・DataSet・DataTableで　トライしていたのですが、元データのループを形成しようとデータセットを作る部分で　やはりコネクションを閉じることになってしまい　ダメだ～　と諦めてしまいました。

なんか参考になる記事の紹介でも結構です。どういう手続きを行えばよいか　ヒントを頂けないでしょうか

Try
    Dim prov As String = "XXX"
    Dim serverName As String = "XXX"
    Dim dataBase As String = "XXX"
    Dim userid As String = "XXX"
    Dim pwd As String = "XXX"

    Using conn As New OleDb.OleDbConnection()
        Using cmd1 As New OleDb.OleDbCommand()
            conn.ConnectionString =
            " Provider = " & prov &
            ";Data Source = " & serverName &
            ";Initial Catalog = " & dataBase &
            ";User ID = " & userid &
            ";Password =" & pwd

            Dim dr As OleDbDataReader = Nothing
            cmd1.Connection = conn
            conn.Open()

            cmd1.CommandText = "SELECT * FROM SFA51 WHERE CHK_FLG IS NULL"
            dr = cmd1.ExecuteReader()
            While (dr.Read())
                Dim SqlString1 As String = "SELECT * FROM 取引先 WHERE コード='" & dr.Item(9) & "'"
                
                Using cn As New OracleConnection(CnString)
                    cn.Open()
                    Using cmd2 As New OracleCommand
                        Dim rd As OracleDataReader = Nothing
                        cmd2.Connection = cn
                        cmd2.CommandText = SqlString1
                        rd = cmd2.ExecuteReader
                        If rd.Read Then
                        Else
                            GoTo next_rec
                        End If

                        Try
                            '検疫ＯＫの証を　ＳＦＡ５１テーブル上のチェックフラグに更新
                            cmd1.CommandText = "UPDATE SFA51 SET CHK_FLG=2, CHK_TIMESTAMP=CURRENT_TIMESTAMP WHERE APPNO=? AND APPLINEO=?"

                            cmd1.Parameters.Add("@APPNO", OleDb.OleDbType.VarChar).Value = dr.Item(0)
                            cmd1.Parameters.Add("@APPLINENO", OleDb.OleDbType.VarChar).Value = dr.Item(1)
                            cmd1.ExecuteNonQuery()
                        Catch ex As Exception
                            System.Diagnostics.Debug.Print(ex.Message ) '★エラー表示部分★
                        End Try
                        If Not rd Is Nothing Then
                            rd.Close()
                        End If

                    End Using
                    cn.Close()

                End Using
next_rec:
            End While


        End Using

    End Using

Catch ex As Exception
    Console.WriteLine(ex.Message)

End Try

Comments

[退会済みユーザー]

エラーを載せるときはエラーメッセージだけではなく、なるべくExceptionオブジェクトのクラス名やStackTraceを含めてください。ExceptionオブジェクトをToStringするだけでも、かなり詳細な情報が取り出せます。

[saya24]

オブジェクトをToStringして　出力するようにした方が良い、とのアドバイスありがとうございました。今後の為に価値あるご指摘です。

なんとなく自分が悩んでいる根幹の理由を突きつめられた気がします。
コマンドオブジェクトのUsingの中でリーダをループさせる事例ばかりを目にしてきているので、UPDATE用に別のコマンドオブジェクトを生成する手法では　リーダーを回せないという意識があったのだと思います。
元のコマンドオブジェクトのUsingの中で、Using無しに新たコマンドオブジェクトを生成して利用するか、Usingを入れ子にすれば良いのですね、多分。

コマンドオブジェクトのUsingの中でリーダーをループさせている例。https://itsakura.com/vbnet-sqlserver-select

[退会済みユーザー]

そもそもDataReaderで使用中のCommandオブジェクトで別のSQL文を実行させたらまずいです。
別のCommandオブジェクトを作成してください。

[saya24]

了解です、初歩的なことかも知れなかったですが　親切に教えて頂きありがとうございました。いつまでたってもコピぺで対応し　仕組みの理解に努めないと　ダメなんだなぁ　と実感いたしました。
本件クローズとします。

Answer 1

リンクサーバーを経由すれば、SQLServerへの接続だけで、oracleのテーブルも参照できます。
Oracle データベースへのリンク サーバーのセットアップとトラブルシューティング

Comments

[saya24]

saziさん　いつもお世話になっております。リンクサーバでは　いい思いしたことがないので　今回はデータベース側ではない解決策を目指していきます。ご見解ありがとうございました。

Answer 2

接続を維持して、別データを参照し　元データ（テーブル）の更新を行う方法は　どうするのが鉄板・常套手段でしょうか？

先に別データをDataTableなりに取り出しておいたらダメですか？

    cmd1.Parameters.Add("@APPNO", OleDb.OleDbType.VarChar).Value = dr.Item(0)
    cmd1.Parameters.Add("@APPLINENO", OleDb.OleDbType.VarChar).Value = dr.Item(1)

直接DataReaderのオブジェクトをValueに設定してるのがまずそうな感じがしますが、dr.Item(0)を一旦ToStringするとどうなりますかね？

---

（追記）
よく見ると、updateがselectと同じCommandオブジェクト(cmd1)で実行されているので、これが原因に見えます。update用に別に作成するだけで解決しそうな気がします。

Comments

[saya24]

radianさん　ご見解ありがとうございます。早々にパラメータの指定方法を変えて検証したいのですが　現在データベースに繋げない状況にあります。結果がでたら　ご報告改めます。

それだけで結果が良い方向に向かうと　うれしいのですが....

[saya24]

別のコマンドオブジェクトを生成して　UPDATE文を発行する作りに変えて　無事動作するようになりました。radianさん　親切な導きありがとうございました。