llenar un combobox

[pilar_tellez]

Hola, necesito saber como llenar un combo box. tengo una tabla que se llama empresa y necesito que en el combo me aparescan el campo de la tabla nombre empresa, donde obviamente se muestren los nombre de empresas, y que ademas al momento de hacer click en la empresa seleccionada me rescate el codigo de esta en un text, bueno desde ya gracias....

[pilar_tellez]

y el codigo de la empresa aparesca en un text

[Marcelote]

Pues lo que yo suelo hacer es cargar el código en itemdata:


(código escrito "al vuelo", no en el editor de Visual B.)

Código:

'Llenando el combo:
Do While not RS.Eof
    cb_empresas.Additem RS("Empresa")
    cb_empresas.ItemData(cb_empresas.ListCount -1) = RS("Codigo")
    RS.MoveNext
Loop

'Seleccionando un Item:

cb_empresas_Click()
    Text1.Text = cb_empresas.ItemData(cb_empresas.ListIndex)
End Sub

[seba123neo]

Hola, si el codigo es alfanumerico , podes usar el DataCombo, porque el ItemData solo permite numericos...

saluodos.

[Marcelote]

Estudia, Newnovato, antes de bombardear todos los hilos con la misma pregunta.
Perdón si te parece brusca mi respuesta, pero está feo usar los hilos ajenos para hacer preguntas que no vienen al caso con el hilo original. Además lo que pides no es una ayuda, es que te hagamos el trabajo.
Un saludo.