Исходники
Статьи
Языки программирования
.NET Delphi Visual C++ Borland C++ Builder C/С++ и C# Базы Данных MySQL MSSQL Oracle PostgreSQL Interbase VisualFoxPro Веб-Мастеру PHP HTML Perl Java JavaScript Протоколы AJAX Технология Ajax Освоение Ajax Сети Беспроводные сети Локальные сети Сети хранения данных TCP/IP xDSL ATM Операционные системы Windows Linux Wap Книги и учебники
Скрипты
Магазин программиста
|
Ishodniki.Ru » Online книги » Visual Basic по шагам Шаг 41 - Подключение событий ADO объектов Данная возможность отсутствует для ADO Data. Применять его можно в том случае, если у Вы используете объект connection. Но такая возможность есть только со второй версии библиотеки типов. Для того, чтобы можно было обрабатывать события надо описать объект Connection как генерирующий события. Public WithEvents adoConnect As Connection С этого момента он будет присутствовать в списке объектов. А при его выборе будут доступны сообщения. Вот так будет выглядеть код уведомления о завершении соединения. 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
|
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Рейтинги
|