Архив форумов ЦИТФорума

[VB + ADO + Error handling]

Есть у меня следующий исходный код:
Set g_cnn = New ADODB.Connection
On Error GoTo ehand
With g_cnn
.ConnectionString = Provider & ";" & Password & ";" & UserID & ";" & DataSource & ";" & PSI
.CursorLocation = adUseClient
On Error GoTo ehand
.Open
On Error GoTo ehand
SetADOConnection = .State = adStateOpen
End With
Exit Function

ehand:
If g_cnn Is Nothing Then
MsgBox "Невозможно соеденится с базой данных!", , "Ошибка!!!"
GoTo try_again
End If

Вопрос такой: Хоть я и написал 3 раза он еррор, ни разу он не работает!!! При этом ошибки возникают, если, к примеру ввести неправильный пароль... Я в ВБ не очень давно, и с обработкой ошибок не сталкивался, если я где-то неправильно пишу - подскажите где. Есди надо по другому ошибку ловить - подскажите как.
Всем заранее спасибо!

[S]

Возьми почитай хелп по теме "базы данных - ошибки,обработка ",
насколько я понимаю там должен вызываться другой обработчик
типа onADODBerror...
(ногами не пинать vb знаю 5с.)

[Ragnarik]

Эт ты конечно классно придумал!
Если бы у меня было где про это почитать, я бы писал сюда?
Но все равно спасибо.
Может где в нете есть, так я не могу найти!!!
Кто знает - отпишите, плз

[Ragnarik]

Ладно, ладно
Всем спасибо, все свободны!

Блин, я, конечно еще зелен в ВБ, но думал тут кто-то подскажет!
Знаете в чем вся искра - g_cnn не будет носингом после строчки

Set g_cnn = New ADODB.Connection

Вот так вот. Но онэррор тож хорош - ловит ошибку только раз!!!
Если еще раз вызвать тот же код (что собственно я пытался сделать),
то первую ошибку мы обрабатываем, второй плюем в экран...
Микрософт!