Visual Basic - Cargar Combox con resultado de busqueda

Life is soft - evento anual de software empresarial
 
Vista:

Cargar Combox con resultado de busqueda

Publicado por Daniela (2 intervenciones) el 24/11/2002 12:52:55
Hola!!!! Como hago para que en ComboBox(u objeto parecido) al hacer una consulta, este se cargue con los campos de una tabla access...
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cargar Combox con resultado de busqueda

Publicado por isma (96 intervenciones) el 25/11/2002 09:07:05
Hola Daniela, no sé si esto te servirá. Te pongo un ej. y miras si te sirve:

\' VARIABLES
dim lngIndice as long
dim rsCombo as ADODB.Recordset
dim strSql as string

\'SELECCIÓN DE CAMPOS
strSql = \"Select descripcion, codigo from prueba\"
Set rsCombo = New ADODB.Recordset
rsCombo.Open strSql, cntDbSAL

Combo.Clear \' Vaciar la combo siempre antes de llenarla

\'LLENADO DE COMBO. LA PROPIEDAD ITEMDATA ES UNA MATRIZ DONDE PUEDES GUARDAR P.E. EL CODIGO DE LO QUE ESTÉS MOSTRANDO EN EL COMBO, DE MODO QUE SI POSTERIORMENTE A LA HORA DE GUARDAR EN LA BBDD O HACER BÚSQUEDAS POR ESTE CÓDIGO, SOLO TENGAS QUE HACER: COMBO.ITEMDATA(COMBO.LISTINDES). ESTA PRODIEDAD SOLO ADMITE CAMPOS NÚMERICOS¡¡¡¡¡

For lngIndice = 0 To rsCombo.RecordCount - 1
Combo.AddItem (Trim(rsCombo!descripcion)) \' Se muestra
Combo.ItemData(Combo.ListCount - 1) = Trim(rsCombo!Codigo)
rsCombo.MoveNext
DoEvents
Next
rsCombo.Close
Set rsCombo = Nothing
Combo.ListIndex = -1

Espero que te sirva. Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar