![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
お世話になります。
開発言語:VisualBasic 6 sp6
OS :WindowsXP Pro sp3
DB :Microsoft SQL Server 2005
以下のコードはCommand1ボタンをクリックした時に実行される処理です。
処理内容は、テーブルAを読み、テーブルAの全てのレコードを順次読みながら
テーブルBを検索し、テーブルBの"keyname"をprintします。
※実際のプログラムではテーブルAを順次読むループの中で多数のテーブルへの
新規レコード追加、更新などを行っております。
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 テーブルA"
objRsA.Open strSQL, objConn
If objRsA.EOF = False Then
Do Until objRsA.EOF
sSQL = "select * from テーブルB 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ベストアンサー
- 回答日時:
には、
>MTS のトランザクション内で、開いている ADO Connection オブジェクトを複数の操作に使用する
>場合は、次の手順を推奨します。
>開いているすべてのレコードセットは、ほかの操作を実行する前に、接続を解除するか閉じるかして、
>何も設定されていない状態にします。
>使われていないすべての Command オブジェクトは、何も設定されていない状態にします。
## 推奨って書いているけど、こうしないとエラーになってできないのに。。。
つまり、
objRsB.Open strSQL, objConn
をしようとしているときには、
objRsA.Open strSQL, objConn
の方は、closeして、set objRsA = nothing 等を使ってクリアを済ませていないとエラーとなる
ということです。
⇒今、書いているソースの方法はできないということ。
対策1
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
と変更する。(これで使いまわししていない状態となります)
対策2
sSQL = "select * from テーブルA"
を
sSQL = "select (使っている項目名を列記)from テーブルA,テーブルB"
& "where A.key = B.key"
として、
sSQL = "select * from テーブルB where key = " & objRsA.Fields("key")
objRsB.Open strSQL, objConn
を廃止。
・・・Selectの発行回数が、テーブルAのレコード件数+1回から、1回に減るのでこの方法のほうが
いいと思いますが。
あるいは、テーブルAのデータを全部配列に読み込んで、closeしてから、テーブルBの処理をする
等が考えられます。
返答ありがとうございます。
対策例まで書いて頂き助かります。
1つのコネクションで並行して2つ以上のレコードセットを使用できない
→わたしが質問で記述したソースはそのままでは実現できない
ということで理解しました。
ちなみに、対策1のようにコネクションを2つ使用する場合、
BeginTrans、CommitTrans、RollbackTransもそれぞれ2つずつ記述が必要ということですよね?
よろしくお願い致します。
No.3
- 回答日時:
ANo.2です。
すいません。
"手動または分散トランザクションモードのため、新規接続を作成できません。"
というエラーメッセージからみで、ちょっとごっちゃにしていました。
もし、MTSを使っておられるなら、トランザクション制御の命令は記述しません。
MTS側の設定で、トランザクション制御をサポートする指定にするだけです。
(IISやCOM+を使っているプログラムの場合。)
MTSを使っていない場合でしたら、
objConnA.BeginTrans
objConnB.BeginTrans
以下それぞれでトランザクション制御が必要です。
No.2
- 回答日時:
ANo1です。
お礼の、
>ちなみに、対策1のようにコネクションを2つ使用する場合、
>BeginTrans、CommitTrans、RollbackTransもそれぞれ2つずつ記述が必要ということですよね?
ですが、
MTSは分散トランザクションをサポートしているので1つで大丈夫です。
## 分散トランザクションって何?って聞かれそうですが。
## 簡単に言うと、複数のDBサーバ(複数の接続と言い換えてもいい)とのアクセスを
## 1つのトランザクションとしてまとめて処理できる機能とでも言えばいいかな。
お世話になっております。
※返信が遅れてしまい申し訳ありません。
> MTSは分散トランザクションをサポートしているので1つで大丈夫です。
1つで大丈夫という事ですが、具体的には BeginTrans、CommitTrans の記述はどの様に書けば良いのでしょうか?
1.objConnA.BeginTrans ?
2.objConnB.BeginTrans ?
3.まったく別の記述?
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】甲子園での思い出の残し方
「球場の砂を持って帰る」はもう古いと思った高校球児が、甲子園で負けた際に、思い出に残そうと思って行ったこと
-
ADO Connection を再利用する方法
SQL Server
-
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
CloseとDisposeの違い
Visual Basic(VBA)
-
-
4
SQLServer 分散トランザクションについて
SQL Server
-
5
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
6
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
7
データベース操作時エラーについて
Visual Basic(VBA)
-
8
トランザクションの開始
Visual Basic(VBA)
-
9
一つのトランザクションでSELECTとUPDATEできますか? (ADO.NET)
SQL Server
-
10
「指定されたキャストは有効ではありません。」とエラーが出てしまいます。
Microsoft ASP
-
11
Accessで数値型にNULLをInsertするとエラー
その他(データベース)
-
12
レコードが存在しなかった場合
Microsoft ASP
-
13
VMWare Player 上でフリーズ抜出すには
デスクトップパソコン
-
14
【DB】同じトランザクション内でupdateとselectをしたときの結果値
その他(データベース)
-
15
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
16
レコードセット(ADO.Recordset)で処理レコードは何番目?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS2010 実行時エラー 2766
-
Accessで別mdbのテーブルをコピー
-
HTMLのテーブルの行数が多くな...
-
SQLを発行とは?クエリの作成と...
-
AccessからExcelへエクスポート...
-
エクセルのテーブルを解除する...
-
変更のあったテーブルを見つける
-
『列名 '担当者CD' があいま...
-
手動または分散トランザクショ...
-
vb ado → vb2005 ado.net変換
-
VBとアクセスでSQL文に変...
-
ExcelVBAからAccessMDB内のテー...
-
他のMDBのテーブルに追加したい
-
アクセステーブル、リンクとロ...
-
WORD VBA プログラム修正をお願...
-
VBA 変数名に変数を使用したい。
-
COBOLの基本的な事なので...
-
CString型 全角半角を意識せず...
-
ファイル名の一部削除について
-
エクセルで13,410円を数値の134...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBとアクセスでSQL文に変...
-
『列名 '担当者CD' があいま...
-
AccessからExcelへエクスポート...
-
他のMDBのテーブルに追加したい
-
Accessで別mdbのテーブルをコピー
-
手動または分散トランザクショ...
-
DataGridViewに複数テーブルの...
-
エクセルのテーブルを解除する...
-
ACCESS2010 実行時エラー 2766
-
SQLを発行とは?クエリの作成と...
-
COBOLのINVALID KEYが理解でき...
-
アクセステーブル、リンクとロ...
-
CSVファイルのエクスポートでソ...
-
HTMLのテーブルの行数が多くな...
-
ExcelVBAからAccessMDB内のテー...
-
DataGridの中身をDataSetにテー...
-
ACCESSのテーブル名をリストに...
-
access2007 「#Deleted」
-
.net 複数の主キーを設定する方法
-
DAOでフィールドのデータ型を変...
おすすめ情報