CommitTransComplete 이벤트

ConnectComplete 이벤트는 Connection 개체가 데이터 소스에 성공적으로 연결한 직후에 발생하는 이벤트이며, 다음과 같은 구문을 사용한다.

ConnectComplete (pError, adStatus, pConnection)

인수	데이터 형식	설명
pError	ADODB.Error	오류가 발생해서 adStatus가 adStatusErrorsOccurred 이면 발생한 오류에 대한 정보를 가지고 있는 개체이다. 그렇지 않을 경우에는 설정되지 않는다.
adStatus	ADODB.EventStatusEnum	EventStatusEnum 상태 값으로 이벤트를 발생시킨 작업이 성공하면 adStatusOK로 설정되고 작업이 실패하면 adStatusErrorsOccurred로 설정된다.
pConnection	ADODB.Connection	이벤트를 발생시킨 Connection 개체를 나타낸다.

데이터 소스에 연결이 성공적으로 이루어졌는지를 자세히 점검하기 위해서 이 이벤트를 사용할 수 있다.

[예제]

다음 예제는 두 개의 CommandButton(cmdOpen과 cmdClose)을 사용해서 데이터 소스에 연결하고 연결을 끊는 코드를 작성한다. 그리고 ConnectComplete 이벤트에서 연결이 성공적으로 이루어졌는지를 점검하고 오류가 발생했다면 오류 메시지를 디버그 창에 나타내고, 성공했다면 성공 메시지를 나타내는 예이다.

Private Sub cmdOpen_Click()
   Dim strConn As String

   Set adoCn = New ADODB.Connection

   strConn = "Provider=sqloledb;" & _
         "Data Source=(local);Initial Catalog=Pubs;User Id=sa;Password=; "

   adoCn.Open strConn
End Sub

Private Sub cmdClose_Click()
   adoCn.Close

   Set adoCn = Nothing
End Sub

Private Sub adoCn_ConnectComplete(ByVal pError As ADODB.Error, _
   adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)

   Select Case adStatus
      Case adStatusErrorsOccurred
         Debug.Print "연결 실패" & vbCrLf & _
            "ConnectionString : " & pConnection.ConnectionString & vbCrLf & _
               "오류 메시지 : " & pError.Description
      Case adStatusOK
         Debug.Print "연결 성공"
   End Select
End Sub

Disconnect 이벤트

Disconnect 이벤트는 Connection 개체의 데이터 소스와의 연결이 끊어진 직후에 발생하는 이벤트이며, 다음과 같은 구문을 사용한다.

Disconnect (adStatus, pConnection)

인수	데이터 형식	설명
adStatus	ADODB.EventStatusEnum	EventStatusEnum 상태 값으로 이벤트를 발생시킨 작업이 성공하면 adStatusOK로 설정되고 작업이 실패하면 adStatusErrorsOccurred로 설정된다.
pConnection	ADODB.Connection	이벤트를 발생시킨 Connection 개체를 나타낸다.

이 이벤트는 데이터 소스와의 연결이 정상적으로 끊어졌는지를 점검하기 위해서 사용할 수 있다. 예를 들어, 네트워크의 장애로 인해서 Connection 개체의 데이터 소스와의 연결이 비 정상적으로 끊어진 경우에, 이 이벤트를 사용해서 응용 프로그램 사용자에게 오류 메시지를 표시하도록 구현할 수 있다.