"que tal Denciso"
Ok, mi pregunta es la siguiente:
¿Como hago para listar en un comboBox una lista de nombres que se encuentra dentro de mi base de datos. Tengo problemas para hacer esta simple operación, hace más de un año no programo y aunque mi aplicación avanza hay ciertas cosas que no he podido hacer, me podrías responder con detalles por favor?, te lo agradecería.
¿Como hago para listar en un comboBox una lista de nombres que se encuentra dentro de mi base de datos. Tengo problemas para hacer esta simple operación, hace más de un año no programo y aunque mi aplicación avanza hay ciertas cosas que no he podido hacer, me podrías responder con detalles por favor?, te lo agradecería.
Respuesta de denciso
1
Que te parece si estudias y adaptas la siguiente función:
Function LlenaControl(rctlControl As Control, rsSQLTemp As String, rsFormato As String)
rctlControl.Clear
If ObtieneRegistros(rsSQLTemp) Then
Do Until grs_Recordset.EOF
rctlControl.AddItem Format$(grs_Recordset.Fields(0), rsFormato) + " " + grs_Recordset.Fields(14)
'si es numérico colocamos la clave en el ItemData
If (IsNumeric(grs_Recordset.Fields(0))) Then
rctlControl.ItemData(rctlControl.NewIndex) = CLng(grs_Recordset.Fields(0))
End If
grs_Recordset.MoveNext
Loop
End If
LlenaControl = rctlControl.ListCount
End Function
Function LlenaControl(rctlControl As Control, rsSQLTemp As String, rsFormato As String)
rctlControl.Clear
If ObtieneRegistros(rsSQLTemp) Then
Do Until grs_Recordset.EOF
rctlControl.AddItem Format$(grs_Recordset.Fields(0), rsFormato) + " " + grs_Recordset.Fields(14)
'si es numérico colocamos la clave en el ItemData
If (IsNumeric(grs_Recordset.Fields(0))) Then
rctlControl.ItemData(rctlControl.NewIndex) = CLng(grs_Recordset.Fields(0))
End If
grs_Recordset.MoveNext
Loop
End If
LlenaControl = rctlControl.ListCount
End Function
Muchas gracias Denciso, voy a intentar adaptar esta opción a mi programa, espero funcione, sino que más da, ¿creo qué tengo al maestro perfecto no? Je je, sabrás como responderme al igual que ahora, hasta pronto.
