Добрый день, профи. Понимаю, что тема уже много раз поднималась, но я так и не смог понять и выбрать более удобное, быстрое и надежное средство соединения.
Задача стоит в том, что мне нужно из рабочей базы 1с на dbf вытаскивать справочник контрагентов, справочник сотрудников и список договоров (не штатный, а есть приобретенный модуль респект управление договорами, вот именно из него) в собственную программу. Программа представляет собой планировщик для сотрудников, т.е. в ней создаются записи со ссылками на ID Контрагента, договор и сотрудника. Данные хранятся уже в отдельной sql базе. Но это описание. Сама проблема заключается в выборе способа подключения к базе 1с
Попробовал 2 варианта
1 через V77.Application
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Dim M(10000, 1)
Dim X As Integer
Dim Y As Integer
Dim ItmX As ListViewItem
Dim cntr As Object = CreateObject("V77.Application")
Dim trd As Short = cntr.RMTrade
Dim Res As Object = cntr.Initialize(trd, "/d c:\1CBases\ShortBase\ /nАдминистратор /p", "NO_SPLASH_SHOW")
Dim sotrudnik = cntr.EvalExpr("СоздатьОбъект(""Справочник.Контрагенты"")")
sotrudnik.ВыбратьЭлементы()
ListView1.Clear()
ListView1.Columns.Add("1", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("2", 200, HorizontalAlignment.Left)
X = 0
While sotrudnik.ПолучитьЭлемент > 0
If sotrudnik.ЭтоГруппа = 0 And sotrudnik.ПометкаУдаления = 0 Then
If sotrudnik.Родитель.Наименование = "заказчики" Then
M(X, 0) = sotrudnik.Наименование
M(X, 1) = sotrudnik.ПолнНаименование
X = X + 1
End If
End If
End While
For Y = 0 To X
ItmX = ListView1.Items.Add("" & M(Y, 0))
ItmX.SubItems.Add("" & M(Y, 1))
Next
2 через ADODB.Connection
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Dim M(0, 0)
Dim MFullName()
Dim X As Integer
Dim Y As Integer
Dim ItmX As ListViewItem
Dim DBConn As Object = CreateObject("ADODB.Connection")
Dim adoRs As Object = CreateObject("ADODB.Recordset")
Dim adoRs1 As Object = CreateObject("ADODB.Recordset")
Dim PathBase As String = "c:\1CBases\ShortBase\"
DBConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathBase & ";Extended Properties=""DBASE IV;"";")
adoRs = DBConn.Execute("select a1.id, a1.descr from sc133 a1 where a1.parentid=' 3' and a1.ismark is null and a1.descr like ('%" & TextBox1.Text & "%') order by a1.descr")
'adoRs = DBConn.Execute("select * from 1sblob a2 where a2.objid=' 2D' and a2.fieldid like('%3E%')")
'adoRs = DBConn.Execute("select * from sc174 where parentext like ('%" & TextBox1.Text & "%')")
M = adoRs.GetRows()
'TextBox1.Text = adoRs.RecordCount()
'TextBox2.Text = adoRs.Fields.Item(0).value
ListView1.Clear()
TextBox1.Text = UBound(M, 2)
TextBox2.Text = M(0, 0)
For X = 0 To UBound(M, 1)
ListView1.Columns.Add("" & adoRs.Fields.Item(X).Name, 100, HorizontalAlignment.Left)
Next
DBConn.close()
For X = 0 To UBound(M, 2)
adoRs = DBConn.Execute("select blockno from 1sblob a2 where a2.objid='' and a2.fieldid like('%3E%')")
ItmX = ListView1.Items.Add("" & M(0, X))
For Y = 1 To UBound(M, 1)
ItmX.SubItems.Add("" & M(Y, X))
Next
Next
1. Второй вариант у меня работает раза в 3-4 быстрее. Можно ли 1-ый вариант изменить для увеличения скорости работы????
Отрисовка списка контрагентов в полторы тысячи записей занимает около 15 секунд.
2. Если На первый вопрос есть решение, то подскажите тогда где можно найти список функций вытаскивающих данные из базы типа sotrudnik.ЭтоГруппа? Или их можно найти только в интернете?
3. Со вторым вариантом подскажите, как обратится к таблице содержащей полное наименование клиента ( в моем случает это 1SBLOB), там строчка с полным наименование хранится в 3-х!!! строчках таблицы, да еще с какими-то служебными символами в начале первой строчки. Может есть уже готово решение обработки этих данных?
Буду очень признателен за помощь. Прошу сильно не ругать, я не программист, просто пришлось немного вспомнить студенческие годы и сесть за код для создания приложения ради прогресса работы организации. Нанимать программиста не имеет смысла, т.к. задача до конца еще не сформирована, а формируется в процессе написания приложения.
