VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/01/20(Fri) 09:46 |
| 投稿者 | ： サクファ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： ADOを使ってレコードの削除 |
はじめまして。質問があり、投稿させていただきました。
現在、VB6でADOを使いデータ収集を行うツールを作っているのですが、
定期的に不必要になったレコードを削除しようと思い以下の処理を作成しました。
strStart = Format(DateAdd("d", -14, Now), "yyyy/mm/dd") & "
; 8:00:00"
strEnd = Format(DateAdd("d", -7, Now), "yyyy/mm/dd") & " 8
:00:00"
Rs.Filter = "日時" & " >= #" & strStart & "#&qu
ot; & " AND " & _
"日時" & " <= #" & strEnd & "#"
;
i = Rs.RecordCount
For j = 1 To i
Rs.Delete
Rs.MoveNext
Next
Rs.Filter = adFilterNone
上記の処理でも問題なく削除はされるのですが、
削除の対象となるレコード数が10000件ぐらいにしてみると、
処理時間に数時間要してしまいます。
なにか回避策(処理の速度UP)はありますでしょうか？
お願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）