濱野です。

who@sub.example.jp wrote:

> 濱野様
> 
> アドバイスありがとうございます。
> 濱野様のコードをそのまま頂きまして、実行したところ問題なく
> 全件エラーなしで読むことができました。
> 試しに、EOFで判断するロジックで書いてみたところ、これもOK。
> 
> なにが問題あったのだろうと考えたところ以下のアドバイスが
> 気になりました。
> 
> > う〜ん私もやはり、
> > ObjRs.Close
> > はその都度入れたほうが良さそうな気がしますね。
> 
> 実は今回MLに記述しなかった他のSQLがありまして、
> そこで同じオブジェクトをクローズ無しで使っていました。
> そこの処理に　ObjRs.Close　を追加したところ無事全件読めるように
> なりました。
> 
> Closeを処理毎にすべて入れるという基本的ところがわかってなかったミス
> でした（汗）。400件程度のSQLは無事処理されてしまうのでその単純ミス
> になかなかたどり着かなかったという感じです。

Set xx = Nothing
としても自動的にCloseメソッドを呼び出してはくれないのですね。
どうやらDB側のリソースが不足したようです。

DelphiのTDataSetなどはデストラクタが状態をみてCloseまでしてくれるので
私もちょっと勘違いしていたかも。

#実は私も最近トランザクションのため過ぎでレコードが更新されない現象に
#遭遇したばかりです。ログに何も吐き出してくれないので最初わかりませんでした。