質問: nothing con.close:set con=nothing end sub 案1 レコードセットのデータを、access側のテーブルにループで回して、1行ずつデータ追加 案2 into句で直接、テーブル作成 調べていて、2通りのやり方があると思うのですが、どちらにしても、テーブルへの書き込み方がわかりません。 案1の場合、access側のテーブルを開いてデータ追加する方法 ※同時に2つのテーブルを開くことになるのでは? 案2の場合、sql文はオラクルで処理する為の物なので、accessテーブルのinto句が使えるのか? オラクルのテーブルをリンクする事も考えたのですが、実際動かすpcにはaccessruntimeしかインストールしてませんので、オラクルのテーブルをリンクしてくれませんでした。 よい方法があれば、アドバイスを頂けたら幸いです。
回答: 新しいテーブルを作り、 フィールドはカラム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