Как подключить 1С к VBNET
От: Vodolaz  
Дата: 16.07.03 03:28
Оценка:
Нашел как это сделать на vc, но с кодингом у меня пока плохо, не могли бы помочь.
В VBA и VB6 было так:
Dim v7 As Object
Dim Товары As Object
Set v7 = CreateObject("V77.Application")
result = v7.Initialize(v7.RMTrade, "/DC:\V7\DB /M", "")
Set Товары = v7.EvalExpr("ОтдатьСправочникТоваров()");
сейчас сразу после инициализации вылетает ошибка:
Unable to write read-only property
Re: Как подключить 1С к VBNET
От: Ilia Kozin Россия  
Дата: 16.07.03 04:31
Оценка:
http://www.gotdotnet.ru/default.aspx?s=doc&d_no=30686&c_no=4
... << RSDN@Home 1.0 beta 7a >>
Re[2]: Как подключить 1С к VBNET
От: Vodolaz  
Дата: 16.07.03 04:46
Оценка:
Здравствуйте, Ilia Kozin, Вы писали:

IK>http://www.gotdotnet.ru/default.aspx?s=doc&amp;d_no=30686&amp;c_no=4

Да нет я пишу не внешнию компоненту, а прогу, которая бы собирала данные в 1С, а там написана методика создания внешней компоненты для 1С
Re: Как подключить 1С к VBNET
От: Vodolaz  
Дата: 16.07.03 06:21
Оценка:
1С Заработало
Dim v77 As Type
Dim v7 As Object
Dim params(2) As String

v77 = Type.GetTypeFromProgID("v77S.Application")
v7 = Activator.CreateInstance(v77)
params(0) = v77.InvokeMember("RMTrade", Reflection.BindingFlags.InvokeMethod, Nothing, v7, Nothing)
params(1) = "/DC:\База /NПользователь"
'params(2) = ""
v77.InvokeMember("Initialize", Reflection.BindingFlags.InvokeMethod, Nothing, v7, params)

Одна проблема когда все это проходит 1С остается открытой, пока я не закрою форму, нельзя ли как нибуть закрыть 1С не закрывая форму?
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.