手動または分散トランザクションモード…のエラー

質問

お世話になります。

開発言語：VisualBasic 6 sp6
OS ：WindowsXP Pro sp3
DB ：Microsoft SQL Server 2005

以下のコードはCommand1ボタンをクリックした時に実行される処理です。

処理内容は、テーブルＡを読み、テーブルＡの全てのレコードを順次読みながら
テーブルＢを検索し、テーブルＢの"keyname"をprintします。
※実際のプログラムではテーブルＡを順次読むループの中で多数のテーブルへの
　新規レコード追加、更新などを行っております。

Private Sub Command1_Click()
　　Dim objConn 　　As ADODB.Connection
　　Dim objRsA 　　As ADODB.Recordset
　　Dim objRsB 　　As ADODB.Recordset
　　Dim sSQL 　　As String

　　Set objConn = New ADODB.Connection
　　objConn.ConnectionString = cstrCon
　　objConn.Open

　　Set objRsA = New ADODB.Recordset
　　Set objRsB = New ADODB.Recordset

　　'トランザクション開始
　　objConn.BeginTrans

　　sSQL = "select * from テーブルＡ"
　　objRsA.Open strSQL, objConn

　　If objRsA.EOF = False Then
　　　　Do Until objRsA.EOF
　　　　　　sSQL = "select * from テーブルＢ where key = " & objRsA.Fields("key")

　　　　　　objRsB.Open strSQL, objConn　　　　'←この行でエラー発生

　　　　　　Print objRsB.Fields("keyname").Value
　　　　　　objRsB.Close
　　　　　　objRsA.MoveNext
　　　　Loop
　　End If
　　objRsA.Close
　　'コミット
　　objConn.CommitTrans
End Sub

↑の処理を実行すると「objRsB.Open strSQL, objConn」の行で以下の実行エラーになります。

"手動または分散トランザクションモードのため、新規接続を作成できません。"

このエラーの原因が分からず自分でもいろいろ調べてみました。
以下のサイトも何度も見直してみましたがよく理解できませんでした。
http://support.microsoft.com/kb/234218/ja

どこが間違っていて、どこを修正すればエラーが出なくなるのでしょうか？
よろしくお願い致します。

回答No.1

Siegrune · ベストアンサー

http://support.microsoft.com/kb/234218/ja
には、
>MTS のトランザクション内で、開いている ADO Connection オブジェクトを複数の操作に使用する
>場合は、次の手順を推奨します。
>開いているすべてのレコードセットは、ほかの操作を実行する前に、接続を解除するか閉じるかして、
>何も設定されていない状態にします。
>使われていないすべての Command オブジェクトは、何も設定されていない状態にします。
## 推奨って書いているけど、こうしないとエラーになってできないのに。。。

つまり、
objRsB.Open strSQL, objConn
をしようとしているときには、
objRsA.Open strSQL, objConn
の方は、closeして、set objRsA = nothing　等を使ってクリアを済ませていないとエラーとなる
ということです。
⇒今、書いているソースの方法はできないということ。

対策１
Set objConn = New ADODB.Connection
↓
Set objConnA = New ADODB.Connection
Set objConnB = New ADODB.Connection
にして、
objRsA.Open strSQL, objConn
↓
objRsA.Open strSQL, objConnA
および
objRsB.Open strSQL, objConn
↓
objRsB.Open strSQL, objConnB
と変更する。（これで使いまわししていない状態となります）

対策２
sSQL = "select * from テーブルＡ"
を
sSQL = "select （使っている項目名を列記）from テーブルＡ,テーブルＢ"
& "where A.key = B.key"
として、
sSQL = "select * from テーブルＢ where key = " & objRsA.Fields("key")
objRsB.Open strSQL, objConn
を廃止。
・・・Selectの発行回数が、テーブルＡのレコード件数＋1回から、１回に減るのでこの方法のほうが
いいと思いますが。

あるいは、テーブルＡのデータを全部配列に読み込んで、closeしてから、テーブルＢの処理をする
等が考えられます。

お礼

返答ありがとうございます。
対策例まで書いて頂き助かります。

１つのコネクションで並行して２つ以上のレコードセットを使用できない
→わたしが質問で記述したソースはそのままでは実現できない

ということで理解しました。

ちなみに、対策１のようにコネクションを２つ使用する場合、
BeginTrans、CommitTrans、RollbackTransもそれぞれ２つずつ記述が必要ということですよね？

よろしくお願い致します。

回答No.3

Siegrune

ANo.2です。

すいません。
"手動または分散トランザクションモードのため、新規接続を作成できません。"
というエラーメッセージからみで、ちょっとごっちゃにしていました。

もし、MTSを使っておられるなら、トランザクション制御の命令は記述しません。
MTS側の設定で、トランザクション制御をサポートする指定にするだけです。
（IISやCOM+を使っているプログラムの場合。）

MTSを使っていない場合でしたら、
objConnA.BeginTrans
objConnB.BeginTrans
以下それぞれでトランザクション制御が必要です。

お礼

理解できました。
ありがとうございます。

回答No.2

Siegrune

ANo1です。
お礼の、
>ちなみに、対策１のようにコネクションを２つ使用する場合、
>BeginTrans、CommitTrans、RollbackTransもそれぞれ２つずつ記述が必要ということですよね？
ですが、
MTSは分散トランザクションをサポートしているので１つで大丈夫です。

## 分散トランザクションって何？って聞かれそうですが。
## 簡単に言うと、複数のＤＢサーバ（複数の接続と言い換えてもいい）とのアクセスを
## １つのトランザクションとしてまとめて処理できる機能とでも言えばいいかな。

お礼

お世話になっております。
※返信が遅れてしまい申し訳ありません。

> MTSは分散トランザクションをサポートしているので１つで大丈夫です。

１つで大丈夫という事ですが、具体的には BeginTrans、CommitTrans の記述はどの様に書けば良いのでしょうか？

１．objConnA.BeginTrans　？
２．objConnB.BeginTrans　？
３．まったく別の記述？

よろしくお願い致します。