1 Тема от Mat Skywalker

  • Mat Skywalker
  • Участник
  • Неактивен

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

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


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

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

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

Автоматизирую торговлю. Не 1С

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

…
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

3 Ответ от Mat Skywalker (изменено: Mat Skywalker, 2011-12-26 12:15:20)

  • Mat Skywalker
  • Участник
  • Неактивен

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

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

Автоматизирую торговлю. Не 1С

4 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

Mat Skywalker пишет:

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

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

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