ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DataComboBox и БД Access
13 сообщений из 13, страница 1 из 1
DataComboBox и БД Access
    #32823198
Kodeek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kodeek
Гость
Как в комбобокс поместить данные из поля таблицы, которая находится в аксессовской ДБ (mdb)? Использовать DataComboBox, типа там есть какое-то свойство... Что это за свойство, которое позволяет из БД в комбо записи помещать?
Пробовал так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Form_Load()
    Adodc1.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\my.mdb;"
    Adodc1.RecordSource = "select * from oper in 'c:\my.mdb'"
    Adodc1.Refresh

    Adodc2.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\my.mdb;"
    Adodc2.RecordSource = "select * from oper in 'c:\my.mdb'"
    Adodc2.Refresh
End Sub

Причем с Adodc1 связан MSHFlexGrid1, а Adodc2 связан с этим DataCombo1 через datasource. В Гриде данные отображаются, а в комбобоксе нет! Законный вопрос-почему!?
...
Рейтинг: 0 / 0
10.12.2004, 13:55:34
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823291
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Потому что в DataCombo1 нужно использовать свойство RowSource.

PS: Лучше не пользуй ADODC
...
Рейтинг: 0 / 0
10.12.2004, 14:25:18
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823328
Kodeek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kodeek
Гость
Antonariy
PS: Лучше не пользуй ADODC
А что лучше использовать? И из каких соображений?
...
Рейтинг: 0 / 0
10.12.2004, 14:35:37
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823340
Kodeek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kodeek
Гость
свойстве RowSource ставлю значение Adodc1 или 2, все равно комбо пустой...
...
Рейтинг: 0 / 0
10.12.2004, 14:40:02
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823434
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Из соображений глючности ADODC. А использовать нужно просто ADO. Примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "твоя строка"
    rs.Open "твой запрос", cn, adOpenStatic, adLockBatchOptimistic
    Set rs.ActiveConnection = Nothing
    Set DataCombo1.RowSource = rs
...
Рейтинг: 0 / 0
10.12.2004, 15:10:30
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823449
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Кстати, в ListField нужно написать название колонки, которую требуется отобразить, а в BoundColumn название колонки с PK, если он нужен.
...
Рейтинг: 0 / 0
10.12.2004, 15:14:12
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823468
Kodeek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kodeek
Гость
Код: plaintext
1.
n.CursorLocation = adUseClient
[/quot]
а эта строка что указывает?
...
Рейтинг: 0 / 0
10.12.2004, 15:21:14
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823493
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Курсор на клиентской стороне. Просто я всегда использую отсоединенные рекордсеты, которые работают только с клиентским курсором. Кроме того, некоторые гриды (и DataCombo по-моему в их числе) могут отображать только отсоединенные рекордсеты.
...
Рейтинг: 0 / 0
10.12.2004, 15:26:23
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823507
Kodeek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kodeek
Гость
AntonariyКстати, в ListField нужно написать название колонки, которую требуется отобразить, а в BoundColumn название колонки с PK, если он нужен.

а РК это что?
...
Рейтинг: 0 / 0
10.12.2004, 15:30:53
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823513
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Primary Key
...
Рейтинг: 0 / 0
10.12.2004, 15:33:05
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823560
Kodeek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kodeek
Гость
Ясно. Спасибо!
Только выставить ListField, BoundColumn не получилось...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strcnn as String   

    strcnn = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\my.mdb;"
    cn.CursorLocation = adUseClient
    cn.Open strcnn
    rs.Open "select oper.fio from oper ", cn, adOpenStatic, adLockBatchOptimistic
    Set rs.ActiveConnection = Nothing
    Set DataCombo1.RowSource = rs
    Set DataCombo1.ListField = rs                          'пишет ошибку* 
    Set MSHFlexGrid1.DataSource = rs
End Sub
А почему пишет ошибку? поле то так и так только одно по sql-запросу!
В таблице oper 2 поля: 1-ключ, 2-fio
Вот я пытался поле fio задернуть в комбобокс.....
...
Рейтинг: 0 / 0
10.12.2004, 15:44:11
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823617
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Не Set DataCombo1.ListField = rs, а DataCombo1.ListField = "fio"
Чаще смотри MSDN и Object Browser, там ответы на все вопросы.
...
Рейтинг: 0 / 0
10.12.2004, 15:59:45
| Ответить | Цитировать | Написать  
DataComboBox и БД Access
    #32823718
Kodeek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kodeek
Гость
Ничто не заменит общения и обмена знаниями на форумах... :)
ОКЭ, спасиб
...
Рейтинг: 0 / 0
10.12.2004, 16:28:04
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DataComboBox и БД Access
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32823198&tid=2168458]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 35ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 234ms
total:  333ms
созд. / загр.: 333ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]