Как программно подключить DataCombo

[valery51]

Помогите. В программе нужно неоднократно обращаться к справочникам через DataCombo. В качестве соединения с БД (Access) используются методы ADODC без контрола. Как программно подключать DataCombo?

[Twister]

В Датакомбо должен быть указан параметр RecordSource - ссылка на объект ADODC (или другой). В этом объекте указывается строка Connection String...

[valery51]

На форме нет ADODCа, в том то и дело! Он заменен соединением без него, т.е. для соединения с базой собран adoConnect. Со всеми прочими параметрами порядок, а вот со ссылкой на ADODC не выходит. Я, конечно, его использую путём динамического подгружения новых, но хотелось бы совсем от него отделаться.

[GSerg]

А set DataCombo.DataSource = recordset не помогает?

[valery51]

Нет не помогает! То есть с DataSource все нормально, определяться не хочет второй параметр RecordSource.

[lord0n]

а что тебе мешает определить этот параметр
set rs = new recordset

[Worobjoff]

Может имеется в виду это?

Код: Выделить всё

Dim rs1 As ADODB.Recordset 'Таблица со ссылкой на справочник
Dim rs2 As ADODB.Recordset 'Справочник

Private Sub RefreshCombo()
   With DataCombo1
      .DataField = ""   'Поле ID таблицы - ссылка на справочник
      .BoundColumn = "" 'Поле ID справочника
      .ListField = ""   'Поле Text справочника
      Set .RowSource = rs2    'Источник строк комбо
      Set .DataSource = rs1   'Источник редактируемых данных
   End With
End Sub

[valery51]

Спасибо за ответ. Я так в принципе и делаю. Но VB отказывается обрабатывать строчку c RowSource (кстати извиняюсь за ошибку в предедыщем послании). А если подключаю в качестве DataSource adoConnect, в RowSource виртуально созданный ADODC - все нормально. Скорее всего не подключена какоя-то ссылка. Черт его знает!