EXCEL VBAでデータベース更新

質問

OFFICE2010
ORACLE　9.1

あるサーバ（Ａ）にあるデータを（Ｂ）にコピーする方法を教えていただきたく。

サーバ（Ａ）には、オーダ情報が毎日登録されます。
サーバ（Ｂ）は、ソフト開発用に用意されていたサーバで、
このサーバを利用して、EXCEL連携でデータ参照したいと思っています。

ＥＸＣＥＬ　ＶＢＡでサーバ（Ａ）、サーバ（Ｂ）両方とも連携可能なので、
直接サーバ（Ａ）を参照すればデータ自体は見られます。
しかし、他部門にツールとして渡すので、データベースを壊されたら困るので、
サーバ（Ｂ）を参照サーバとして利用したいというおもいです。

実施したいのは、
サーバ（Ａ）のinfoというテーブルから
サーバ（Ｂ）のinfoというテーブルへデータを更新する方法。

サーバ（Ａ）とサ－バ（Ｂ）の差分を更新する方法もあるかと思いますが、
サーバ（Ａ）は、レコード自体が更新されていくので、

サーバ（Ｂ）のinfoデーブルの内容を全て削除してから、
サーバ（Ａ）のｉｎｆｏテーブルの内容をコピー
という方法を教えていただきたく。

参考に、下記はサーバ（Ａ）のinfoテーブルから全レコードを取得するマクロです。

Private Sub receive_Click()

Application.ScreenUpdating = False

'oo4o用のオブジェクト変数の宣言
Dim OraSession As Object 'セッション
Dim OraDatabase As Object 'データベース
Dim rs As Object 'データセット(レコードセット)
Dim rownum As Long
Dim colnum As Integer

'セッションオブジェクトの生成
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'oo4oデータベースオブジェクトの生成（サーバＡ）
Set OraDatabase = OraSession.OpenDatabase("A", "name/password", 0&)

'oo4oデータセット(レコードセット)の生成（全データを返すレコードセットの生成）
Set rs = OraDatabase.CreateDynaset("select * from info", 0&)

'すでに表示されている内容のクリア
Call ClearDisp

'フィールド名の表示
For colnum = 0 To rs.Fields.Count - 1
ActiveSheet.Cells(2, colnum + 2) = rs(colnum).Name
Next

'データの表示
rownum = 0
Do Until rs.EOF
For colnum = 0 To rs.Fields.Count - 1
ActiveSheet.Cells(rownum + 3, colnum + 2) = rs(colnum).Value
Next
rs.MoveNext
rownum = rownum + 1
Loop
'セル幅の自動調整
ActiveSheet.Columns("B:I").EntireColumn.AutoFit

'オブジェクトのクローズ
rs.Close

'各種オブジェクトの開放
Set rs = Nothing
Set OraDatabase = Nothing
Set OraSession = Nothing

Application.ScreenUpdating = True

End Sub

B2からBI2までがタイトル
B3からBI10000くらいまでデータがあります。

D2列がシリアル番号になっており、同じ番号は登録されません。

マクロ、全くの初心者です。
ベタのコードで教えていただきたく。
上記マクロは、ホームページに記載されていたものを分かる範囲で変更したものです。

サーバ（Ｂ）からのデータ取得はＡがＢになるだけです。

'oo4oデータベースオブジェクトの生成（サーバＢ）
Set OraDatabase = OraSession.OpenDatabase("Ｂ", "name/password", 0&)

※Ａ，Ｂは実際のサーバ名ではありません。

回答No.1

coldblade

ExcelでOracleへ接続用のソフトがあります。

お礼

回答ありがとうございます。内容確認してみます。