タイトル : adAsyncExecuteについて 投稿日 : 2008/10/06(Mon) 14:33 投稿者 : のりこ
いつもお世話になります。 VB6.0でSQLサーバー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 」でエラーを回避するようないい方法を ご存知の方がいらっしゃいましたら是非ご教授下さい。 どなたか良い方法をご存知の方はアドバイスをお願いします。 |