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

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

null@example.com (alexii) — Mon, 26 Dec 2011 08:44:13 +0000

Mat Skywalker пишет:

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

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

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

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

null@example.com (Mat Skywalker) — Mon, 26 Dec 2011 08:15:00 +0000

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

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

null@example.com (alexii) — Mon, 26 Dec 2011 07:48:29 +0000

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

…
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

null@example.com (Mat Skywalker) — Mon, 26 Dec 2011 07:27:07 +0000

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


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

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

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