Updated 1997/08/05

By 富士通ＳＳＬ）福岡寿和

リスト３　非同期（EventDrv.frm抜粋）

Option Explicit
Private mrdcnnASync             As rdoConnection
Private mrdrslASync             As rdoResultset
Private Const pcSQL = "SELECT * FROM authors"
Private Sub cmdOpen_Click()
  Set mrdcnnASync = New rdoConnection
  mrdcnnASync.Connect = "DSN=INT21;UID=sa;PWD="
  mrdcnnASync.CursorDriver = rdUseClientBatch
  mrdcnnASync.EstablishConnection _
              rdDriverNoPrompt, False, rdAsyncEnable
  Do While mrdcnnASync.StillConnecting
    DoEvents
  Loop
  Set mrdrslASync = mrdcnnASync.OpenResultset(pcSQL, _
                    rdOpenKeyset, rdConcurBatch)
  Do While mrdrslASync.tillExecuting
    DoEvents
  Loop
End Sub

Copyright (c) 1997 Fukuoka Toshikazu All Rights Reserved.
For questions or comments, please send mail to: pcdn@int21.co.jp