есть рекордсет
- Код: Выделить всё
Dim rs As ADODB.Recordset
он заполняется...На форме размещаю DBCombo.Для комбо:
- Код: Выделить всё
Set dcombo.DataSource = rs.DataSource
dcombo.BoundText = rs.Fields(0)
'dcombo.RowSource=???
Помогите советом
DBCombo и рекордсет
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 2
• Страница 1 из 1
- Kirill1983
- Обычный пользователь
- Сообщения: 78
- Зарегистрирован: 05.05.2005 (Чт) 11:27
DBCombo и рекордсет
Kirill1983 » 06.05.2005 (Пт) 12:52
Всех с наступающими праздниками. Помогите разобратся:
есть рекордсет
он заполняется...На форме размещаю DBCombo.Для комбо:
Помогите советом
есть рекордсет
он заполняется...На форме размещаю DBCombo.Для комбо:
Помогите советом
- Konst_One
- Член-корреспондент академии VBStreets
-
- Сообщения: 3041
- Зарегистрирован: 09.04.2004 (Пт) 13:47
- Откуда: Химки
Konst_One » 06.05.2005 (Пт) 13:23
- Код: Выделить всё
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
Set rst.ActiveConnection = cn
rst.Open "TEST", , adOpenStatic, adLockReadOnly, adCmdTable
Me.DataCombo1.ListField = "Field1"
Set Me.DataCombo1.RowSource = rst
Сообщений: 2
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 155