adodc и combobox

[ali_x]

help.
visualbasic 6.0

имеются:
combobox
adodc
база данных (Access)

combobox.DataSourse = adodc
combobox .DataField = "name"

при выборе опред зн-я из списка в combobox'е (например - "Ваня") работает код

select case combobox.text
case "Ваня"
combobox.text = "101"
end select

далее записываю информацию в базу,

далее обновляю adodc.recordset , даже заново назначаю его... но при том что в базе записана новая информация, на экране в combobox'е пустое поле с мигающим курсором...
изменения видны только если ручками переместить курсор на новую запись и вернуться на старую.

В чем тут дело, кто знает ...

[Worobjoff]

Стандартный комбобокс не забиндится ч/з ADO т.к его DataSource - DAO-шный.
Чтобы биндить что-то не поддерживаемое ADO, надо использовать BindingCollection:

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

Dim bnd1 As BindingCollection

Private Sub Form_Load()
   Set bnd1 = New BindingCollection
   Set bnd1.DataSource = rs 'Recordset
   bnd1.Add Me.Combo1, "Text", "Поле"
End Sub

[Booozer]

Или попробуй использовать combobox из коллекции MS Forms 2.0 Object Library

[ali_x]

спасибо за советы, я просто на этот combobox наложил textbox и связал его с combo, некрасиво, сам понимаю, но зато как практично...

[AlexBlack]

А может лучше при загрузке формы перебрать все элементы в сурсе и добавить их в комбо?