レコードの一括削除 (ID:120127)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 (環境) W2K,VB6.0,Access(mdb) で作成されたシステム内のある処理で「レコードセット内の全レコードを 一括削除する」処理を見直してます。実際の削除部のコーディングは下記 のようになっていたのですが If RDS01.RecordCount > 0 Then RDS01.Requery RDS01.MoveFirst Do Until RDS01.EOF = True RDS01.Delete RDS01.MoveNext Loop End If 今回、エラーで落ちる場合(レコード件数に左右される？)があると判明 したため、修正しようとしています。そこで… コーディング(ロジック)上でのアドバイスや、もっとてっとり早い方法 が別にあれば、助言いただけないでしょうか？ "VB.NET"から始めた初級〜中級者ばかりな事に加え当時の開発メンバー もいない状況で、VB6.0のソースを追いかけること自体で悪戦苦闘してます。 是非よろしくお願いします。