Wincc подключение к БД

[Global_viewer]

Пытаюсь прочитать ошибки при подключении к sql БД. Но ни коллекция Errors, ни объект Error ничего не дают т.е как будто ошибок нет,
хотя я специально изменял и юзера и пароль на не верные при подключении к БД.
Как же проверить что подключение произошло?
код ниже...

Код: Выделить всё

Con="Provider=SQLOLEDB.1;Persist Security Info=False;password=xxxxx;
User ID=user;Initial Catalog=xxxxx;Data Source=xxx.xxx.x.xxx\WINCC"
Set conn=CreateObject("ADODB.Connection")
conn.CursorLocation=3
conn.ConnectionTimeout = 10
conn.CommandTimeout = 10
conn.Open Con, , , adAsyncConnect

Do While conn.State = adStateConnecting
 'если параметры подключения не верны,как я понял,  цикл бедет пока не кончится ConnectionTimeout  , но ошибок почему то нет.
 ' более того, этот цикл почему то не завершается т.к сообщение ниже не выводится
Loop
Msgbox "сообщение"

[keysansa]

А тут только подключение к DB. Для того, что бы что-то получить, надо что-то выбрать.
Выбирают обычно SQL запросом.
А его нет.

ЗЫ. Возможно, я не правильно понял, и вы хотите понять, произошло ли подключение?
ПОка вижу, что у вас Async подключение. Оно может и через год установиться.
ЗЫЫ. И еще вижу, что сообщение вызывается вне зависимости от того, было ли подключение.

[LexSL]

Если не ошибаюсь, то у объекта ADODB.Connection есть событие ConnectionComplete, которое вызывается при установлении соединения.
Так как в VBS в WinCC нельзя установить обработчики событий, то при неверном логине и пароле у Вас цикл никогда не закончится.
Соответственно и MsgBox не покажется.
И делать циклы while в VBS WinCC крайне не советую, повесите всю скриптовую систему WinCC, а с ней и все остальное.
По крайней мере, на версии v7.2 было....давно было. Потом видел в даташите на какой то версии скриптовую систему WinCC сильно улучшили.

Вы бы для начала озвучили, чего хотите добиться.
Вычитать из другой базы какие-то таблицы и показать на экране WinCC?

И кстати, инстанс (instance) MSSQL сервера, который указывается в строке подключения в параметре DataSource:

Код: Выделить всё

Data Source=xxx.xxx.x.xxx\WINCC

является инстансом чисто для WinCC при установке WinCC (о чем указывает "\WINCC").
И вроде как по лицензионному соглашению, этот инстанс нельзя использовать для своих каких-то баз данных.
Но кого это когда либо останавливало?

[Global_viewer]

И делать циклы while в VBS WinCC крайне не советую

Это понятно. Проблема как роз и была в том что бы прервать этот цикл если нет соединения.
В среде wincc есть только такой вариант...

Код: Выделить всё

 Do While conn.State = adStateConnecting
        On Error Resume Next
        If Err.Number > 0 Then
            Exit Do
        End If
    Loop

провда не очень понятна логика работы On Error Resume Next.
Вроде без него ошибки не генерятся т.к я проверял ткой вариант т.е без On Error Resume Next цикл виснет

Код: Выделить всё

  Do While conn.State = adStateConnecting
        If Err.Number > 0 Then
            Exit Do
        End If
    Loop

Но этот метод не позволяет определить какие именно ошибки произошли или может? Кто копал глубже отзовись...

[stesl]

не очень понятна логика работы On Error Resume Next

Так может его в конце поставить? Обработать ошибку, а уж потом

[makesstr]

Насколько я понимаю Err.Number показывает код ошибки, например если вы ссылаетесь на переменную которой нет или делите на ноль и пр. Видимо с точки зрения vbs код написан правильно, ошибок нет, вот и Err.number не срабатывает, а с точки зрения sql ответа нет. Лучше не используйте циклы, если не хотите повесить и WinCC, и SQL, и то, с чего вы ведете опрос.

[Global_viewer]

Насколько я понимаю Err.Number показывает код ошибки

а может просто кол - во ошибок? Ни где описания не встеречалось?
А код рабочий, выдает ошибку если не верные параметры подключения. Просто не совсем понял логику On Error Resume Next

[keysansa]

провда не очень понятна логика работы On Error Resume Next.

Это относится к циклу While, а не к соединению с БД

Насколько я понимаю Err.Number показывает код ошибки, например если вы ссылаетесь на переменную которой нет или делите на ноль и пр.

По Ctrl+Click попробуйте перейти к объявлению переменной, в каком модуле она объявляется. Но так как VBS допускает использование переменных, без их объявления, то может и не получиться...

[Global_viewer]

Это относится к циклу While, а не к соединению с БД

Вроде, там собираются любые ошибки

[keysansa]

Это относится к циклу While, а не к соединению с БД

Вроде, там собираются любые ошибки

Эта конструкция определяет поведение цикла while, при возникновении исключения внутри цикла. Так то ты правы, но неверный пароль - не приведет к возникновению исключения.