質問: 1 to rdsu docmd.runsql "insert into sample_t(ktn_cod,sbn,gyosya_cod,gyosya_mei)" _ & "values('" & oraclebox(i, 1) & "','" & oraclebox(i, 2) & "','" & oraclebox(i, 3) & "'," & oraclebox(i, 4) & ")" next i '警告ダイアログをオン' docmd.setwarnings true exit sub err_han: ' エラー処理' msgbox (err.description) end sub *単一のテーブルであればdocmd.transferdatabase acimpor等を使うのですが、場合によっては今後データ量が多かったりより複数のテーブルを扱うことになるので。
回答: oracle との連携部分はわかりませんが > sqlstr = "select j.ktn_cod,j.sbn,j.gyosya_cod,g.gyosya_mei" _ > & "from jitu_sharyou j ,gyosya g" _ > & "where j.gyosya_cod = g.gyosya_cod" from と where 前にスペースが無いため・・・ ではないでしょうか。 余計なお世話で rs (recordset)のメソッドに、getrows があります。 getrows を使えば、簡単に配列データが作れます。 dim v as variant ・・・ v = rs.getrows v は、v(列,行) の二次元配列に なお、レコード数がかなり多いのであれば、配列に展開するのではなく sample_t 用の recordset rsto を開いておいて while(not rs.eof) rsto.addnew rsto!sbn = rs!sbn ・・・ rsto.update rs.movenext wend とかすれば・・・