二つのMDBファイルの間のデータのやり取り

質問

おせわになります。みなさんの知恵を貸してください。

いかがシステム構成です。
A.mdb（テーブル：Work1）
B.mdb（テーブル：Work2)

A.mdbはカレントデータベースです。B.mdbはDSN=KANRIで
アクセスしたいです。
現在Work1のデータをWork2に追加したいのですが、どのような方法が考えられますか？

ちなみに以下のコードを書いてみました。
--------------------------------------------------
Dim cn1 As New ADODB.Connection, cn2 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset, rs2 As New ADODB.Connection
Dim com As New ADODB.Command, mysql As String

Set cn1 = CurrentProject.Connection
cn2.ConnectionString = "provider=MSDASQL;DSN=KANRI"
mysql = "insert into Work2 select * from Work1"
com.activeconnection = cn2
com.commandtext = mysql
com.Execute
Set com = Nothing
rs1.Close: Set rs1 = Nothing
rs2.Close: Set rs2 = Nothing
cn1.Close: Set cn1 = Nothing
cn2.Close: Set ch2 = Nothing
--------------------------------------------------
Work1は見当たらないとエラーが出ました。

どなたか教えてください。

rs1.EoF

Loop をまわしながら一行ずつ追加するしかないでしょうか？

回答No.1

yutopapa · ベストアンサー

VBAで処理する前提なのでしょうか？

WORK1からWORK2へエクスポートすれば良いだけのような気がしますが。

またVBAで処理するとしても、A.mdbからWORK2へのリンクを張って処理する方がコードがすっきりしますよ。

お礼

できました！
リンクを張って、Work1のデータをWork２に追加する追加クエリを実行することで簡単にできました！
うれしいです！
ありがとうございました！

補足

すみません。
リンクを張る方法ですが、手動でなくVBAでできますか？
B.MDBのパスとテーブル名(Work2)はA.MDBファイルのテーブルに格納するつもりですが。

よろしくお願いします。