出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
２つのMDBに同時にコネクションを確立できますか？ 　 wadabenさん [2005/06/30 15:34:44] [5086]
　 Re:２つのMDBに同時にコネクションを確立できますか？ 　 morさん [2005/06/30 16:19:10] [5087]
[5086] ２つのMDBに同時にコネクションを確立できますか？
投稿者：wadabenさん 2005/06/30 15:34:44
初めまして、ASP超初心者です。
早速質問です。
a.mdbにはb.mdbにあるテーブル名が格納されたCテーブルがあります。
Cテーブル＞＞
ID テーブル名
---　----------
1 Dテーブル
2 Eテーブル


b.mdbにはDテーブルとEテーブルとFテーブルがあります。
やりたいことは、a.mdbのCテーブルを開いてループし、
テーブル名に該当するテーブルのデータをb.mdbを開いて削除する、ことです。
この場合、下記のように２つのコネクションを同時に開くことは
物理的に可能なのでしょうか？
ソース-----------------------------------------------
stConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & path_frm & ";"

stConnect_to = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & path_to & ";"

strSQL = "SELECT * FROM 取込管理テーブル;"
'ADODB.Recordset オブジェクトを生成します。
Set rs = CreateObject("ADODB.Recordset")

'ADODB.Recordset オブジェクトを生成します。
Set rs_to = CreateObject("ADODB.Recordset")

rs.Open strSQL, stConnect, adOpenForwardOnly, adLockReadOnly

Do Until rs.EOF
delSQL = ""
delSQL = "DELETE * FROM [" & rs(0).Value & "]"
If Not IsNull(rs(1).Value) Then
delSQL = delSQL & " WHERE " & rs(1).Value & "< #" & str_kijunbi & "#"
End If
rs_to.Execute delSQL
If Err.Number <> 0 Then
Msgbox "Err.Number:" & Err.Number
End If
rs.MoveNext
Loop
ソース　ここまで-------------------------------------------

どなたか分かる方、ご指導お願いいたします。

[5087] Re:２つのMDBに同時にコネクションを確立できますか？
投稿者：morさん 2005/06/30 16:19:10
こんにちは。

すみませんが教えてください。
実際に動かしてみてどうなりましたか？
どのような問題が発生していますか？

よろしくお願いします。

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ