お世話になります。
開発言語: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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ADO Connection を再利用する方法
SQL Server
-
SQLで同じDBに対し2つのコネクションをもてる?
SQL Server
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
-
4
datetime型でNULL値を入れたい。
SQL Server
-
5
【DB】同じトランザクション内でupdateとselectをしたときの結果値
その他(データベース)
-
6
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
-
7
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
8
変数をコントロール型で使用する方法
Visual Basic(VBA)
-
9
On ErrorでエラーNoが0
Visual Basic(VBA)
-
10
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
11
Access サブフォームでの選択行の取得
その他(データベース)
-
12
SQLでスキーマ名(所有者名)の修飾無しでテーブル参照したい
SQL Server
-
13
共通モジュールでDBへの接続と利用方法
Visual Basic(VBA)
-
14
VBの「As String * 128」とは?
Visual Basic(VBA)
-
15
VBAで「致命的なエラー」が出ました。どのくらい致命的なんでしょうか?
Access(アクセス)
-
16
構造体配列の特定のメンバーをFor~Eachで
Visual Basic(VBA)
-
17
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
18
SQLServer 分散トランザクションについて
SQL Server
-
19
Basp21のメール送信機能を win10(64bit) Excel2019で使用する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WORD VBA プログラム修正をお願...
-
SQLを発行とは?クエリの作成と...
-
任意の周波数の正弦波(サイン...
-
VBとアクセスでSQL文に変...
-
Excel複数シートをaccessへ一括...
-
エクセルのテーブルを解除する...
-
★クリスタルレポートの元になる...
-
ヘッダ(*.h)に定義したテーブル...
-
ExcelVBAからAccessMDB内のテー...
-
Access SQLITEのリンクテーブ...
-
AccessからExcelへエクスポート...
-
ACCESS2010 実行時エラー 2766
-
他のMDBのテーブルに追加したい
-
VBA 変数名に変数を使用したい。
-
Excel VBA で日付を4ケタの数値...
-
クリスタルレポートで困ってい...
-
VBA フォルダ内のファイルを、...
-
AccessのDAOでフィールド名を配...
-
C#で変数名の取得
-
VBScript で ADO Streamオブジ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBとアクセスでSQL文に変...
-
Accessで別mdbのテーブルをコピー
-
他のMDBのテーブルに追加したい
-
SQLを発行とは?クエリの作成と...
-
手動または分散トランザクショ...
-
HTMLのテーブルの行数が多くな...
-
エクセルのテーブルを解除する...
-
ExcelVBAからAccessMDB内のテー...
-
Excel複数シートをaccessへ一括...
-
DataGridの中身をDataSetにテー...
-
CSVファイルのエクスポートでソ...
-
AccessからExcelへエクスポート...
-
.net 複数の主キーを設定する方法
-
『列名 '担当者CD' があいま...
-
COBOLのINVALID KEYが理解でき...
-
アクセステーブル、リンクとロ...
-
ACCESSのテーブル名をリストに...
-
MDBテーブルへの追加変更を教え...
-
【ADO】「Execute」を使うと...
-
ACCESS2010 実行時エラー 2766
おすすめ情報