tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： adAsyncExecuteについて
投稿日： 2008/10/06(Mon) 14:33
投稿者： のりこ
いつもお世話になります。

ＶＢ6.0でＳＱＬサーバー2000へアクセスしデータを取得するアプリケーションの開発を行っています。

ストアド実行に時間がかかってしまい、実行中にクリックなどユーザー側に
されると、画面が固まったようになるのを防ぐ為下記のような処理で
adAsyncExecuteを指定し固まるのを防ぐようにコーディングしたのですが
非同期実行の為直後の「If RS.EOF then 」にてエラーとなってしまいます。


'処理
　コネクション作成
　　↓
　ストアドプロシージャ指定
　　↓
　 Set rs = cmd.Execute(, , adAsyncExecute)
　　↓
　If RS.EOF then 　　　←　エラーとなる
　 exit sub
　end if
　　↓
Do Until rs.EOF
処理
Loop

直後の「If RS.EOF then 」でエラーを回避するようないい方法を
ご存知の方がいらっしゃいましたら是非ご教授下さい。
どなたか良い方法をご存知の方はアドバイスをお願いします。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。