Updated 1997/08/05

By •xŽm’Ê‚r‚r‚k�j•Ÿ‰ªŽõ˜a

ƒŠƒXƒg‚T�@ƒ†�[ƒU�[ƒRƒlƒNƒVƒ‡ƒ“ƒIƒuƒWƒFƒNƒg‚̃Cƒxƒ“ƒg(UserCD.Dsr”²�ˆ)

Option Explicit

Private Sub UserConnection_BeforeConnect(ConnectString As String, Prompt As Variant)
    frmUserCD.lstRows.AddItem "BeforeConnect Event"
End Sub

Private Sub UserConnection_Connect(ByVal ErrorOccurred As Boolean)
    frmUserCD.lstRows.AddItem "Connect Event"
End Sub

Private Sub UserConnection_Disconnect()
    frmUserCD.lstRows.AddItem "Disconnect Event"
End Sub

Private Sub UserConnection_QueryComplete(ByVal Query As RDO.rdoQuery, ByVal ErrorOccurred As Boolean)
    frmUserCD.lstRows.AddItem "QueryComplete Event"
End Sub

Private Sub UserConnection_QueryTimeout(ByVal Query As RDO.rdoQuery, Cancel As Boolean)
    frmUserCD.lstRows.AddItem "QueryTimeout Event"
End Sub

Private Sub UserConnection_WillExecute(ByVal Query As RDO.rdoQuery, Cancel As Boolean)
    frmUserCD.lstRows.AddItem "WillExecute Event"
End Sub

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