Как синхронизировать 2 ComboBox через Adodc?

[Rojohn]

Подскажите пожалуйста, как можно синхронизировать два ComboBox c Adodc, содержащей два поля из БД Access, чтобы каждое поле шло в свой Combo и в Combo осуществлялся поиск поочерёдно по каждой букве текста в любом из Combo? Можно без Ado... Знаю есть таокая штука как DBCombo, но хотелось бы обойтись без неё? Если нельзя, то подскажите где взять DBCombo?
Спасибо!

[MeMBus]

Вообще не понятно что, где и как... Поясни поподробнее с указанием ключевых слов, что ты хочешь получить...

[MeMBus]

Если нельзя, то подскажите где взять DBCombo?
Спасибо!

Components... -> Microsoft Data Bound List Control (DBLIST.ocx)

[Rojohn]

А чё непонятного? Есть таблица в базе с двумя полями 1) Текст 2) Код. Надо вывести их, например в Combobox-сы, что бы при выборе текста во втором появлялся соответствующий код и чтобы можно было осуществлять поиск в обеих Combo по одному символу. Знаю примерно как это делается в DBCombo, но не совсем. И можно ли то же самое сделать в простом ComboBox.

Поиск в DBCombo по первым введенным буквам.
Постепенно вводя буквы находишь нужную запись.

Private Sub DBCombo1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim n%
Select Case KeyCode
Case Is >= 48
DBCombo1.SelStart = Len(DBCombo1.Text) -Combo1.SelLength+ 1
n = DBCombo1.SelStart
Data1.Recordset.FindFirst "[Название поля] LIKE '" & DBCombo1.Text & "*'"
If Data1.Recordset.NoMatch = False Then
DBCombo1.Text = Data1.Recordset.Fields("Название поля").Value
End If
DBCombo1.SelStart = n
DBCombo1.SelLength = Len(DBCombo1.Text) - n
End Select
End Sub

в ентом примере Data - подобие Adodс. Как через него заполнять DBCombo? И можно ли сделать через простые Combo?

[Rojohn]

Как заполнить DBCombo я каца знаю:) Там есть RowSource, но всё же можно поподробнее... А насчёт простого Combo пока не понял...

[Rojohn]

Так и не получилось заполнять даже DBCombo... как? И опять же про Combo...

[Rojohn]

Почему Adodc не подключается к DBCombo? Как подключить элемент Data к запароленой БД Access? Кто-нить знает? Очень нада.... плз

[Rojohn]

Почему Adodc не подключается к DBCombo? Как подключить элемент Data к запароленой БД Access? Кто-нить знает?

[MeMBus]

А чё непонятного? Есть таблица в базе с двумя полями 1) Текст 2) Код.

Я думал, что я один непонятливый такой... но что-то уж никто не отвечает... Посему, как говорилось в одном из фильмов «Извини, в ответах я ограничен. Правильно задавай вопросы...».

[Rojohn]

Кое с чем разобрался... Допёр, что Data работает только с DBCombo, а Adodc работает с DataCombo, причём отлично:) Остался один вопрос: Два контрола DataCombo подключены к одной Adodc. Как сделать так, чтобы два DataCombo менялись синхронно, т.е. когда выбиралась запись в одном DataCombo (первое поле из Adodc) другой DataCombo автоматически ставился на соответствующую запись из другого поля Adodc. Мона конечно каждый раз запросом искать запись в противоположном DataCombo, но я подумал, что если они подключены к одной Adodc, то это должно делаться автоматически, как? Проставить какие-нить значения свойств? Подскажите плз (надеюсь теперь написал понятно...)

[Twister]

Смотри, заполним в Combo1 все записи из поля Comment из таблицы tbl (не забудь подключить DAO 3.6):

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

dim db as database, rs as recordset

Private sub Form_Load()
set db=opendatabase("Тут путь",true) 'оставь true если хочешь чтоб к базе больше никто не подошел...
set rs=db.openrecordset("select Comment from tbl")
do while not rs.eof
  Combo1.additem rs!Comment
  rs.movenext
loop
End sub

Private sub Form_Unload (cancel as integer)
set rs=nothing
set db=nothing
end sub

И не нужен тебе ни какой ADODC...

з.ы. Заранее извеняюсь, если где-то синтаксис хромает - бейсик не установлен, писал по памяти

[Rojohn]

Как заполнить DataCombo через Recordset я и сам знаю:) Вопрос был в другом: если заполнить 2 DataCombo разными полями из одной таблицы БД, то как сделать, чтобы они менялись синхронно (т.е. значения этих DataCombo были точно напротив друг-друга, как по таблице Access). Просто сравнивать индексы нельзя, т.к. нельзя будет сделать проверку введенного текста на наличие в массиве записей DataCombo, или можно? Потом необходим поиск по буквам...

з.ы. Создал новую тему, где попытался конкретизировать вопрос...

[Twister]

Если будешь заполнять в таком порядке, как я те показал, то и получится, что соответствующие записи будут напротив друг-друга (ты ведь спускаешься вниз по рекордсету и добавляешь очередную запись в первый и одновременно во второй комбо).
Только я не пойму, зачем тебе это, да еще и в комбо? Там же визуально не видно что напротив чего стоит...

[Twister]

Потом необходим поиск по буквам...

Ну тут я думаю и сам справишься - грамотный перебор рулит...

[Rojohn]

А как найти отсутствующее значение второго Combo, при абракадабре в первом? Порядок не собьётся? Как ассоциировать с базой.

З.ы. сравнивал простые Combo по ListIndex но были ситуации, когда порядок менялся и записи оказались не взаимосвязаны...

[Rojohn]

Ща посмотрю... там Шаман в другой теме кой-чего кинул:)

[Twister]

Для таких ситуаций пользуй ItemData - в него заноси ID из таблицы, и сравнивай наздоровье...