ListBox en VBA dependiendo de Access
Soy nueva en esto. Estoy haciendo un formulario en Excel y necesito que en un listBox del formulario me traiga datos de una tabla en Access. Hasta ahora he logrado que me traiga los datos, pero me los trae todos en una sola columna y necesito que sean en dos columnas.
Les agradezco vuestra ayuda!.
Aca va el código:
Private Sub CommandButton1_Click()
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.Path & "\BD_Transporte.accdb;"
Rs. Open "VIAJES", cn, aadOpenStatic
Rs. MoveFirst
With Me.ListBox1
. Clear
Do
. AddItem rs! FECHA
. AddItem rs! CLIENTE
Rs. MoveNext
Loop Until rs.EOF
End With
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
1 Respuesta
H o l a:
Prueba lo siguiente:
Private Sub CommandButton1_Click() Dim cn As ADODB.Connection, rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.Path & "\BD_Transporte.accdb;" Rs. Open "VIAJES", cn, aadOpenStatic Rs. MoveFirst With Me.ListBox1 . Clear Do . AddItem rs! FECHA .List(.ListCount - 1, 1) = rs!CLIENTE rs.MoveNext Loop Until rs.EOF End With rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub
':) S a l u d o s . D a n t e A m o r ':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.
