オラクルからAccessにデータ追加

質問

オラクルから、必要なデータを抜出し加工の為のDBをAccessで作成していますが、オラクルから抜き出したデータ（レコードセット）を、どうやってAccessのテーブルに書き込めばよいかがわかりません。

◎環境
Oracle：10g
Access:2010

◎現在の状況
Dim CON As New ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String
Dim i As Integer

'ＤＢ接続定義
CON.Open "DSN=DNS名;UID=ユーザー名;PWD=パスワード;"

'ＳＱＬ文
SQL = "SELECT "
SQL = SQL & "カラム１,"
SQL = SQL & "カラム２,"
SQL = SQL & "カラム３"
SQL = SQL & "FROM オラクルテーブル名 "
SQL = SQL & "WHERE 抽出条件 "
SQL = SQL & "AND 抽出条件"
SQL = SQL & "GROUP BY カラム"

SET RS = CON.EXCUTE(SQL)

For i = 1 To 10
Debug.Print rs(カラム１) & rs(カラム２)
next i
ここまでは、オラクルのテーブルから、レコードセットにデータが取り込まれてます。

rs.close: SET RS = Nothing
con.close:SET CON=Nothing

end sub

案１
レコードセットのデータを、Access側のテーブルにループで回して、１行ずつデータ追加
案２
INTO句で直接、テーブル作成

調べていて、２通りのやり方があると思うのですが、どちらにしても、テーブルへの書き込み方がわかりません。

案１の場合、Access側のテーブルを開いてデータ追加する方法
※同時に２つのテーブルを開くことになるのでは？
案２の場合、SQL文はオラクルで処理する為の物なので、AccessテーブルのINTO句が使えるのか？

オラクルのテーブルをリンクする事も考えたのですが、実際動かすPCにはAccessRuntimeしかインストールしてませんので、オラクルのテーブルをリンクしてくれませんでした。

よい方法があれば、アドバイスを頂けたら幸いです。

回答No.3

piroin654 · ベストアンサー

もし、既存のテーブルにデータをいれるというのであれば、
No1でいいのですが。「新しいテーブル名」→「既存のテーブル名」。
既存のテーブルにデータが存在するのか、あるいはデータを
入れ替えるのかによって方法はことなりますが、
データの取り扱いがわからないので
No1とNo2の両方を回答とすることにします。

お礼

piroin654様

３回もアドバイス頂きありがとうございます。

Access側のテーブルは作成済みなので、１の方法で問題ありません。

また、Rantimeの制限について、お教え頂きありがとうございます。
これ、ずっと悩んでました、なるほどRantimeでは新規テーブルが作れないですね。
以前作った、動かなかったシステムで、確かにテンポラリー新規テーブル作成してました。

あわせて、"rs2" コネクションとレコードセットを別に作ればよいのですね、試してみます。

ご親切にアドバイス頂きありがとうございます。

回答No.2

piroin654

No1です。失礼しました。
＞実際動かすPCにはAccessRuntime
これを見逃していました。ランタイム環境では
テーブルなどの新規のオブジェクトは作成できないので、
取り出したデータをどうするのかによりますが、
たとえば、Excelなり、テキストなりに出力
するコードを作るというのはどうですか。

回答No.1

piroin654

新しいテーブルを作り、
フィールドはカラム1からカラム3を設定し、
以下のコードを追加してテーブルに取り込めば
いいのでは？
フィールドの型は各カラムの型にあわせるか、あるいは
テキスト型にしておくかですか。

Dim rs2 As ADODB.Recordset

rs2.Open "新しいテーブル名", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
Do Until rs.EOF
rs2.AddNew
rs2!カラム1 = rs!カラム1
rs2!カラム2 = rs!カラム2
rs2!カラム3 = rs!カラム3
rs2.Update

rs2.Close: Set rs2 = Nothing