Имя: Пароль:
1C
1С v8
Соединение с базой 1с через COMConnector
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
1 Kashemir
 
27.03.12
14:06
DocCount а здесь что ?
2 Kashemir
 
27.03.12
14:08
(1) Вопрос снимается - вижу число. Может это особенности VB мусорщика - помимо удаления ссылок еще че-нить надо вызывать.