Р
Реник
Добрый день всем.!
Возникла следующая проблема:
На кнопку повесил код, который запускает RunOnserver агента, который должен соединяться с SQL-таблицей.
На сервере, где должен запускаться агент настроил ODBC- драйвер для коннекции к таблице. Проверил коннекцию-соединение есть.
Когда нажимаю на кнопку, то клиент польность зависает. Вот код агента :
зависает нас строке "Call con.ConnectTo( sdatasource, suserid, spasswd)"
Dim con As New ODBCConnection
Dim sdatasource As String, suserid As String, spasswd As String
Msgbox "Агент стартовал: GetBPInfo FromSQL"
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
sdatasource="Datasource"
suserid="user1"
spasswd="password"
Msgbox "Коннектимся к таблице"
Call con.ConnectTo( sdatasource, suserid, spasswd)
Msgbox "Коннект есть"
If Not con.ConnectTo("BP_Info") Then
Msgbox "Не удалось подключиться к SQL-таблице"
Else
Msgbox "Подключение удалось"
End If
call con.Disconnect
Возникла следующая проблема:
На кнопку повесил код, который запускает RunOnserver агента, который должен соединяться с SQL-таблицей.
На сервере, где должен запускаться агент настроил ODBC- драйвер для коннекции к таблице. Проверил коннекцию-соединение есть.
Когда нажимаю на кнопку, то клиент польность зависает. Вот код агента :
зависает нас строке "Call con.ConnectTo( sdatasource, suserid, spasswd)"
Dim con As New ODBCConnection
Dim sdatasource As String, suserid As String, spasswd As String
Msgbox "Агент стартовал: GetBPInfo FromSQL"
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
sdatasource="Datasource"
suserid="user1"
spasswd="password"
Msgbox "Коннектимся к таблице"
Call con.ConnectTo( sdatasource, suserid, spasswd)
Msgbox "Коннект есть"
If Not con.ConnectTo("BP_Info") Then
Msgbox "Не удалось подключиться к SQL-таблице"
Else
Msgbox "Подключение удалось"
End If
call con.Disconnect