VB6 Select combobox text value based on database data

combobox vb6 setvalue
Gerardo picture Gerardo · Aug 24, 2013 · Viewed 17.7k times · Source

I can't find a way to set a value to the ComboBox object based on the value retrieved from a DB. When I fill the comboBox, I use this code:

Do while Not rs1.EOF
   Cboneighborhood.AddItem rs1!Description
   Cboneighborhood.ItemData(CboBarrio.NewIndex) = rs1!Idneighborhood
Loop

When I retrieve data for an employee (Employee table has a field called IdNeighborhood) I want the combobox to set the text value that matches this ID.

I can't use the property 

Cboneighborhood.Text

'cause it's a 2-DropDown List type.

Your help would be really appreciated. Thanks in advance

Answer

Mike Weir picture Mike Weir · Aug 25, 2013

You just need to iterate through the items like this when you get a Value:

'Reset to no item.
Cboneighborhood.ListIndex = -1
Dim X As Integer
'Iterate through items.
For X = 0 To Cboneighborhood.ListCount - 1
    'Compare value.
    If Cboneighborhood.ItemData(X) = Value Then
        'Select it and leave loop.
        Cboneighborhood.ListIndex = X
        Exit For
    End If
Next X

Related questions

How do I style a <select> dropdown with only CSS?

Is there a CSS-only way to style a <select> dropdown? I need to style a <select> form as much as humanly possible, without any JavaScript. What are the properties I can use to do so in …

Read More
ComboBox: Adding Text and Value to an Item (no Binding Source)

In C# WinApp, how can I add both Text and Value to the items of my ComboBox? I did a search and usually the answers are using "Binding to a source".. but in my case I do not have a …

Read More
How to pass parameters on onChange of html select

I am a novice at JavaScript and jQuery. I want to show one combobox-A, which is an HTML <select> with its selected id and contents at the other place on onChange(). How can I pass the complete combobox …

Read More