Знакомый выверт VBScript с ADO и обработкой ошибок.

В сокращенном виде процедура выглядит так:
create proc sp1
as
set nocount on
raiserror('Some error', 16, 1)

Ошибка честно вываливается в басиковскую переменную Err и заносится в conn.Errors.

Изменим процедуру:
create proc sp1
as
set nocount on
select 1
raiserror('Some error', 16, 1)

Никакого сообщения об ошибке не появляется, Err = 0, коллекция Errors пуста

Как видите, set nocount on предварительно вызывается - это грабли знакомые. Разумеется, в QA ошибка выдается.

Коллекция Errors проверяется после выполнения хранимой процедуры. Причем я на клиента не получаю рекордсет - conn.Execute "exec sp1". А raiserror - это аналог любого действия, которое может вызвать ошибку. Не могу же я закрывать коннект для того, чтобы проверить, произошла ошибка или нет!

И все равно не работает!

Ну вот попробуйте сами простейший вбшный скрипт (это дело 5 сек.):

(только не забудьте строку коннекта нормальную вписать)

Const strConnect = ""

Dim cn, rs
set cn = CreateObject("ADODB.Connection")
cn.Open strConnect
set rs = cn.Execute("exec sp1")
rs.Close
if cn.Errors.Count > 0 then
MsgBox "Error"
else
MsgBox "Success"
end if

Не выдает ошибки, хоть тресни.

alexeyvg, как выглядит SQL скрипт, который ты пробуешь? Меня интересует случай, когда в пакете делается select, а потом некий оператор, который вызывает ошибку. В остальных случаях и у меня все работает.

Прохожу по шагам - не выдает ошибку. Может быть, влияют еще какие-нибудь настройки сервера или коннекта? А в VB выдается все правильно вплоть до текста сообщения, которое было задано? Не могли бы вы привести список ваших настроек?
Спасибо!