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

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
valery51
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 03.08.2005 (Ср) 14:00

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

Сообщение valery51 » 05.08.2005 (Пт) 2:46

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

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 05.08.2005 (Пт) 6:57

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

valery51
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 03.08.2005 (Ср) 14:00

Сообщение valery51 » 06.08.2005 (Сб) 2:59

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

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 06.08.2005 (Сб) 5:53

А set DataCombo.DataSource = recordset не помогает?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

valery51
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 03.08.2005 (Ср) 14:00

Сообщение valery51 » 09.08.2005 (Вт) 2:49

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

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 09.08.2005 (Вт) 6:07

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

Worobjoff
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 19.02.2005 (Сб) 17:51

Сообщение Worobjoff » 09.08.2005 (Вт) 13:04

Может имеется в виду это?
Код: Выделить всё
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
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 03.08.2005 (Ср) 14:00

Сообщение valery51 » 12.08.2005 (Пт) 3:14

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


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList