VBNet - Форум - Ассинхронные запросы и InfoMessage в ADO

Вопрос: Ассинхронные запросы и InfoMessage в ADO Добавлено: 08.07.03 12:26

Автор вопроса: Alex3 | ICQ: 9481061

Работаю с SQL Server 2000, Access XP и ADO
Необходимо отлавливать сообщения, которые может посылать хранимая процедура (RAISERROR, PRINT).
Знаю, что они должны ловиться в событии InfoMessage объекта Connection, но у меня это событие никогда не срабатывает:-(
Код такой:

Dim WithEvents rs As ADODB.Recordset
Dim WithEvents conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Private Sub cmdMonth_Click()
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "sp_GosKomStat"
cmd.CommandType = adCmdStoredProc
cmd.CommandTimeout = 600
Set prm = New ADODB.Parameter
prm.Type = adInteger
prm.Value = 200301
cmd.Parameters.Append prm
rs.Open cmd, , adOpenStatic, adLockReadOnly, adAsyncExecute + adAsyncFetch
End Sub
Private Sub conn_InfoMessage(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
MsgBox pError.Description
End Sub
Кто-нибудь такое делал, расскажите как? Пробовал как на VB6, так и на Access. Все последние сервис-паки установлены! Поиском обпользовался, форумов обчитался:-(

Ответить