Шаг 41 - Подключение событий ADO объектов

Данная возможность отсутствует для ADO Data. Применять его можно в том случае, если у Вы используете объект connection. Но такая возможность есть только со второй версии библиотеки типов.

gif/41_1.gif (2413 b)

Для того, чтобы можно было обрабатывать события надо описать объект Connection как генерирующий события.

Public WithEvents adoConnect As Connection

С этого момента он будет присутствовать в списке объектов.

gif/41_2.gif (2225 b)

А при его выборе будут доступны сообщения.

gif/41_3.gif (4459 b)

Вот так будет выглядеть код уведомления о завершении соединения.

Public WithEvents adoConnect As Connection

Private Sub adoConnect_Disconnect(adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
MsgBox "Disconnect"
End Sub

Private Sub Command1_Click()
Set adoConnect = New ADODB.Connection
Dim strConnect As String
strConnect = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=Servers"
adoConnect.Open strConnect, "sa", "123"
' Код
adoConnect.Close
Set adoConnect = Nothing
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.