Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
VB + ADO + Error handling Гость
|
Добавлено: Ср Июл 28 2004 10:32 Заголовок сообщения: Помогите! Не могу поймать ошибку при подключении к БД! |
|
|
Есть у меня следующий исходный код:
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 Гость
|
Добавлено: Чт Июл 29 2004 12:23 Заголовок сообщения: |
|
|
Возьми почитай хелп по теме "базы данных - ошибки,обработка ",
насколько я понимаю там должен вызываться другой обработчик
типа onADODBerror...
(ногами не пинать vb знаю 5с.) |
|
Вернуться к началу |
|
|
Ragnarik Гость
|
Добавлено: Ср Авг 04 2004 12:30 Заголовок сообщения: 2 S |
|
|
Эт ты конечно классно придумал!
Если бы у меня было где про это почитать, я бы писал сюда?
Но все равно спасибо.
Может где в нете есть, так я не могу найти!!!
Кто знает - отпишите, плз |
|
Вернуться к началу |
|
|
Ragnarik Гость
|
Добавлено: Ср Авг 04 2004 17:18 Заголовок сообщения: |
|
|
Ладно, ладно
Всем спасибо, все свободны!
Блин, я, конечно еще зелен в ВБ, но думал тут кто-то подскажет!
Знаете в чем вся искра - g_cnn не будет носингом после строчки
Set g_cnn = New ADODB.Connection
Вот так вот. Но онэррор тож хорош - ловит ошибку только раз!!!
Если еще раз вызвать тот же код (что собственно я пытался сделать),
то первую ошибку мы обрабатываем, второй плюем в экран...
Микрософт! |
|
Вернуться к началу |
|
|
|