Updated 1997/08/05

By •xŽm’Κ‚r‚r‚kj•Ÿ‰ͺŽυ˜a

ƒŠƒXƒg‚S@Event DriveniEventDrv.frm”²ˆj

Option Explicit
Private WithEvents mrdcnnEvent  As rdoConnection
Private WithEvents mrdrslEvent  As rdoResultset
Private WithEvents mrdengEvent  As rdoEngine
Private Const pcSQL = "SELECT * FROM authors"
Private Sub cmdOpen_Click()
  Set mrdcnnEvent = New rdoConnection
  mrdcnnEvent.Connect = "DSN=INT21;UID=sa;PWD="
  mrdcnnEvent.CursorDriver = rdUseClientBatch
  mrdcnnEvent.EstablishConnection _
              rdDriverNoPrompt, False, rdAsyncEnable
End Sub
Private Sub mrdcnnEvent_Connect(ByVal ErrorOccurred As Boolean)
  Set mrdrslEvent = mrdcnnEvent.OpenResultset(pcSQL, _
                    rdOpenKeyset, rdConcurBatch)
End Sub

}9@ƒCƒxƒ“ƒgƒhƒŠƒuƒ“ƒTƒ“ƒvƒ‹

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