複数ＳＱＬ発行について

お世話になります。

ＶＢ．ＮＥＴ２００３とＳＱＬＳｅｒｖｅｒ２００５にて開発を行っております。

Ａテーブルからデータを取得してその取得データを元にＢテーブルを参照する。
と、言うのがあるのですが、
Ｂテーブル参照時に「この接続に関連付けられている DataReader が既に開いています。この DataReader を最初に閉じる必要があります。」の
エラーとなってしまいます。

複数ＳＱＬを発行する場合、再度接続を行わなければならないのでしょうか？
同一接続内で複数のＳＱＬを発行することは出来ないのでしょうか？

どなたかご存知でしたらお教え願います。

以下、ソース

' 変数宣言
Dim objDBConnect As SqlConnection
Dim objDBTran As SqlTransaction
Dim objSqlCmd As SqlCommand
Dim objSqlDRA As SqlDataReader
Dim objSqlDRB As SqlDataReader

' データベース接続
objDBConnect = New SqlConnection("接続文字列")
objDBConnect.Open()

' トランザクション開始
objDBTran = objDBConnect.BeginTransaction(IsolationLevel.ReadCommitted)

' ＳＱＬ発行
objSqlCmd = New SqlCommand("SELECT * FROM A_TABLE", objDBConnect)
objSqlDRA = objSqlCmd.ExecuteReader()

While objSqlDRA.Read()

objSqlCmd = New SqlCommand("SELECT * FROM B_TABLE", objDBConnect)
objSqlDRB = objSqlCmd.ExecuteReader() ←ここで、エラーとなってしまいます。

End While

No.2 ベストアンサー 回答者： mahny 回答日時： 2006/10/26 16:42

#1です。

ごめんなさい。１接続に対して１つだけみたいです。

▼MSDN引用
DataReader の終了
DataReader を使い終えたら、Close メソッドを呼び出す必要があります。

Command に出力パラメータや戻り値が含まれていても、DataReader が終了するまでは使用できません。

DataReader が開いている間、Connection はその DataReader によって排他的に使用されています。元の DataReader が終了するまでは、その Connection に対してはどのコマンドも実行できません。別の DataReader を作成することもできません。

参考URL：http://msdn2.microsoft.com/ja-jp/library/haa3afy …

この回答へのお礼

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

>１接続に対して１つだけみたいです。
という事は、DataReader では出来ないという事ですね。
DataReaderを使用するなら、DataReaderから別な入れ物にコピーして再度、DataReaderにて取得を行う。　の方法でいくしかないでしょうか？

また、別な方法がありましたら教えて頂けませんでしょうか？

お礼日時：2006/10/26 17:15

No.5 回答者： toro777777 回答日時： 2006/10/26 18:14

説明を読む限りselect文ないで結合させて一つのSQL文にすれば良いだけの

様に思えるのですが

No.4 回答者： qtea 回答日時： 2006/10/26 18:02

DataReaderは1つの接続に対して、1つしかopenできません。

なので、接続（SqlConnection）を2つ作るか、別な入れ物にコピーして…かのどちらかではないでしょうか。
別な入れ物にコピーする場合は、データセットを使うのがおすすめです。

No.3 回答者： PED02744 回答日時： 2006/10/26 17:49

素直に、DataAdapter/DataSetは使えないのでしょうか？

手元に例がないので、うろ覚えで書きますが、
Dim conn as Connection
Dim sql as String
Dim dad1 as DataAdapter
Dim dad2 as DataAdapter
Dim dSet as DataSet

conn = new Connection("Data Source=～～～")

sql = "SELECT ～ FROM TBL_A WHERE ～～～"
DataAdapter dad1 = new DataAdapter(sql, conn)
dad1.Fill(dSet, "TBL_A")

sql = "SELECT ～ FROM TBL_B WHERE ～～～"
DataAdapter dad2 = new DataAdapter(sql, conn)
dad2.Fill(dSet, "TBL_B")

こんな感じ

No.1 回答者： mahny 回答日時： 2006/10/26 16:30

そんなことは無いと思います。

While objSqlDRA.Read()
objSqlCmd = New SqlCommand("SELECT * FROM B_TABLE",objDBConnect)
objSqlDRB = objSqlCmd.ExecuteReader() '←ここで、エラーとなってしまいます。
End While

手元にVB環境無いので勘で書きますが、
上記ループの2週目でエラーが発生していませんか？
だとすれば、1週目のループで objSqlDRB As DataReader が出来上がっているのに
そこにさらにDataReaderオブジェクトを重ねようとしたからじゃないですかね。。。