0
Luntik
27.03.12
✎
13:28
|
Добрый день всем!
Вопрос следующий: есть написанная на VB 2010 программа, которая висит в трее и через определенные интервалы времени подключается к серверной базе 1С. Подключение и получение нужной информации проходит нормально, но соединение на сервере не закрывается, а остается висеть на сервере, т.е. каждое обращение-новое соединение. Когда программу закрываем-все соединения тоже закрываются. Кто-то может подсказать, как сделать так, чтоб при выходе из процедуры, соединение тоже закрывалось? Что я не так делаю? Вот код:
Private Sub ConnectTo1C()
Dim v8 As Object
Dim base1C As Object
Dim DocCount As Integer
Dim ConnectionString As String
Dim Zapros As Object
Dim forma_ As Object
ConnectionString = "Srvr=""" + ServerName + """;Ref=""" + DataBaseName + """; usr=""" + UserName + """; Pwd=""" + Pass + """;"
Try
v8 = CreateObject("V82.COMConnector")
base1C = v8.Connect(ConnectionString)
forma_ = base1C.Обработки.ПолучениеДанныхПоCOM.Создать()
DocCount = forma_.ОбновитьТаблицу()
If DocCount > 0 Then
NotifyIcon1.ShowBalloonTip(3000, "Оповещение", "Имеется " & DocCount.ToString() & " документов.", ToolTipIcon.Warning)
End If
forma_ = vbNull
base1C = vbNull
v8 = vbNull
Catch
If Not Autorun Then
MessageBox.Show("Не удалось подключиться к 1С. Проверьте правильность настороек!")
Timer1.Stop()
Show()
End If
End Try
End Sub
|
|