オラクルのデータをAccessに追加 無限ループ

質問

前回、オラクルからデータを取り出し、Accessのテーブルに書き込みを教えて頂き、データ追加は出来たのですが、データ追加時に無限ループが発生しました。

【環境】
Oracle：10g
Access:2010

Dim CON As New ADODB.Connection 'Oracle側コネクション
Dim RS As ADODB.Recordset 'Oracle側レコードセット
Dim SQL As String 'Oracle側SQL文
Dim i As Integer '処理用インクリメント
Dim DT As Date '抽出日付変数（日付型）
Dim sDT As String '抽出日付変数（テキスト型）
Dim RS2 As ADODB.Recordset 'Access側レコードセット

◎現在の状況
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)

’取得したレコード数表示
MsgBox "オラクル側のレコード数は： " & RS.RecordCount
(1)↑↑↑オラクルから、抽出したレコード数表示

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
rs.close: SET RS = Nothing
con.close:SET CON=Nothing

end sub

上記を実行したところ、いくら待っても処理がおわらず、強制終了をかけた所、新テーブルには、約１５０万件追加されてました。

(1)でオラクルから抽出した、レコード数を表示させてみた所、－１でした。

◎疑問点、
－１ってありえない数値だと思うのですが。
ちなみに、オラクル側で同様のSQLを実行させた所、取得件数は４８件でした。

上記について、ご存じの方がいらっしゃいましたら、アドバイスお願いいたします。

回答No.1

Meegeren · ベストアンサー

基本的なことですが

登録しようとしてるテーブルに主キーはありますか？

気になるのはDo文の終わりのLoopが見当たらないのとrsの次レコード記述が無いことなんですが、欠けているだけ？

そうだとすれば、150万件、すべてが同じでデータではないでしょうか

お礼

Meegeren様

回答ありがとうございます。

＞登録しようとしてるテーブルに主キーはありますか？
Access側のテーブルには、主キー（ＡＩ）で設定してます。

＜気になるのはDo文の終わりのLoopが見当たらないのとrsの次レコード記述が無いことなんですが、欠けているだけ？
すいません、ＬＯＯＰ文は私の転記漏れです。
勉強不足ですいません、Untl ~ Loopは勝手に次のレコードにしてくれると思ってました。

＞そうだとすれば、150万件、すべてが同じでデータではないでしょうか
その通りです、１行目のデータが延々と・・・

補足

Meegeren様

みなさん、親切にアドバイス頂き、BAを選択しにくいのですが、最初に間違いをお教え頂いた
Meegeren様をBAとさせて頂きます。

回答No.4

piroin654

付け忘れに気がついたときはすでに
質問がクローズされていたのでどうしようも
なかったので、すみませんでした。

お礼

piroin654様

いえいえ、親切にお教え頂き全くわからなかったことが、実装できたので感謝しております。
あわせて、基本的なことなので、メソッドの使い方を理解していれば、気づいたはずです。

まるまる転記せず、理解したうえで実装するよう、心がけます。

勉強になりました、ありがとうございます。

回答No.3

piroin654

sujino さん、すみません。
つけ忘れがありました。

rs.MoveFirst
Do Until rs.EOF
rs2.AddNew
rs2!カラム1 = rs!カラム1
rs2!カラム2 = rs!カラム2
rs2!カラム3 = rs!カラム3
rs2.Update
rs.Movenext
Loop

のように
rs.Movenext
Loop

をつけてください。

お礼

piroin654様

前回に引き続き、アドバイスありがとうございます。

回答No.2

bardfish

AccessのRecordCountメソッドって現在位置のレコード番号を返すんじゃなかったかな？
だからMoveFIrstもMoveLastも実行していなければ-1になると記憶してます。
RecordCountを使用する場合は直前でMoveLastを実行してください。そして、ループに入る前にMoveFirstで1件目にレコードポイントを戻しておくのを忘れずに…

私の場合、Oracleのリンクテーブルからデータ件数を取得するときは「SELECT COUNT(*) FROM テーブル名 WHERE 抽出条件」でレコード件数を取得してからループさせることがあります。
AccessのMoveLastが非常に時間がかかるケースがたまにあるので…

それと、SQL文を組み立てる箇所ですが、毎回「SQL = SQL &」ってやってますよね。
これ、長すぎるとうざくなるのでアンダーバーで改行させるといいと思います。
つまり、
SQL = "SELECT " _
& "カラム１," _
& "カラム２," _
& "カラム３" _
& "FROM オラクルテーブル名 " _
& "WHERE 抽出条件 " _
& "AND 抽出条件" _
& "GROUP BY カラム"
と記述することが出来ます。
実際には2行目以降は先頭にスペースを挿入して見やすくします。
※ここでは行頭のスペースは削除されてしまうので…

お礼

bardfish様

回答ありがとうございます。

＞AccessのRecordCountメソッドって現在位置のレコード番号を返すんじゃなかったかな？

ネットで調べた情報をよく理解せずに使ってたので、お恥ずかしい限りです。
PL/SQL側でSQLのテストを実施して、大体のレコード数を把握してVBAに書いているので、問題はないと安易に考えておりました。
確かに、VBA側でレコード数をカウントしたほうがいいですね。
勉強になりました。

>それと、SQL文を組み立てる箇所ですが、毎回「SQL = SQL &」ってやってますよね。
これ、長すぎるとうざくなるのでアンダーバーで改行させるといいと思います。

以前、多段サブクエリSQLを書いた時に、”_”の数が多すぎて、実装できなかった事があったので、”_”に拒否感があるのだと思います。

自己流の知識の初心者なので、勉強になりました、ありがとうございます。