Duda con tabla access
Hola, soy freddy, estoy recién aprendiendo a programar visual basic, necesito saber como leer una columna de una tabla de Access de una sola vez e insertarla en un "ListBox" para después mostrarla, desde ya muchas gracias
1 Respuesta
Respuesta de denciso
1
Adapta la siguiente función:
Function LlenaLista(rctlControl As Control, rsSQLTemp As String) As Integer
rctlControl.Clear
Set grs_Recordset = Nothing
If cnx.gf_AbreRecordset(gcx_Conexion, grs_Recordset, rsSQLTemp) Then
Do Until grs_Recordset.EOF
If IsNumeric(grs_Recordset.Fields(0)) Then
rctlControl.AddItem grs_Recordset.Fields(1)
rctlControl.ItemData(rctlControl.NewIndex) = grs_Recordset.Fields(0)
Else
rctlControl.AddItem grs_Recordset.Fields(1) + " " + grs_Recordset.Fields(0)
rctlControl.ItemData(rctlControl.NewIndex) = -1
End If
grs_Recordset.MoveNext
Loop
End If
LlenaLista = rctlControl.ListCount
End Function
Function LlenaLista(rctlControl As Control, rsSQLTemp As String) As Integer
rctlControl.Clear
Set grs_Recordset = Nothing
If cnx.gf_AbreRecordset(gcx_Conexion, grs_Recordset, rsSQLTemp) Then
Do Until grs_Recordset.EOF
If IsNumeric(grs_Recordset.Fields(0)) Then
rctlControl.AddItem grs_Recordset.Fields(1)
rctlControl.ItemData(rctlControl.NewIndex) = grs_Recordset.Fields(0)
Else
rctlControl.AddItem grs_Recordset.Fields(1) + " " + grs_Recordset.Fields(0)
rctlControl.ItemData(rctlControl.NewIndex) = -1
End If
grs_Recordset.MoveNext
Loop
End If
LlenaLista = rctlControl.ListCount
End Function
