Серый форум — VBS Проверка соединения с БД через ADODB

Re: VBS Проверка соединения с БД через ADODB

2011-12-26T08:44:13Z

Mat Skywalker пишет:

…только возвращать номер ошибки не смысла, он всегда 0, что бы я не "портил".

Mat Skywalker, это я ошибся в предыдущем коде. Поменяйте местами:

MsgBox "Error: " & CStr(Err.Number)
On Error GoTo 0

Re: VBS Проверка соединения с БД через ADODB

2011-12-26T08:15:00Z

Спасибо.
Все получилось, только возвращать номер ошибки не смысла, он всегда 0, что бы я не "портил".

Re: VBS Проверка соединения с БД через ADODB

2011-12-26T07:48:29Z

Если всё происходит именно так, как Вы описали, то просто обрабатывайте ошибки, наподобие:

…
Set IBConn = CreateObject("ADODB.Connection")

On Error Resume Next

IBConn.Open ("Data Source = SM_IB") 

If Err.Number <> 0 Then
    On Error GoTo 0
    MsgBox "Error: " & CStr(Err.Number)
Else
    On Error GoTo 0
    MsgBox "Соединение удалось"
End If

VBS Проверка соединения с БД через ADODB

2011-12-26T07:27:07Z

Собственно сабж. Имеется вот такой код:


Set IBConn = CreateObject("ADODB.Connection")  
IBConn.Open ("Data Source = SM_IB") 
MsgBox "Соединение удалось"

Источник данных находится на другой машине. Если связь с ней есть, то видим сообщение "Соединение удалось". Если связи нет, то видим ошибку ODBC

Вот и вопрос: как сделать попытку соединения?