Colocar Datos de Instruccion SQL en un Cuadro de lista

03/10/2006 - 23:31 por Arubiangt | Informe spam
Buen dís Tengo el siguiente Codigo que me devuelve un resultado de varias
filas y colomunas:
Private Sub CommandButton2_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" &
"C:\Documentos\CF_Datos.mdb;Jet OLEDB:Database Password=******"
Set rs = New ADODB.Recordset

rs.Open "select via_placa,via_viaje from VIAJES where via_placa = '000upb'",
cn
'Sheets(1).Cells(2, 1).CopyFromRecordset rs
/* aqui lo puedo colocar en una hoja de Excel */

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

¬ Pero, ¿Se puede colocar el resultado directamente en un cuadro de lista o
un textbox en el VBa de Excel? Gracias
 

Leer las respuestas

#1 Héctor Miguel
04/10/2006 - 08:19 | Informe spam
hola, !

... el siguiente Codigo que me devuelve un resultado de varias filas y colomunas:
... Se puede colocar el resultado directamente en un cuadro de lista o un textbox en el VBa de Excel? [...]



si quieres evitar el 'pase' de tu recordset a un rango con el metodo copyfromrecordset para llenar 'en directo'...
podrias utilizar dos 'bucles' para el rescate de las 'varias' filas y columnas y pasarlas [una por una] al control...
usando un bucle 'externo' para el avance por filas segun el numero de registros en: -> rs.RecordCount
y otro bucle 'interno' para el avance por columnas segun el numero de campos en: -> rs.Fields.Count

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __
Private Sub CommandButton2_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & "C:\Documentos\CF_Datos.mdb;Jet OLEDB:Database Password=******"
Set rs = New ADODB.Recordset
rs.Open "select via_placa,via_viaje from VIAJES where via_placa = '000upb'", cn
'Sheets(1).Cells(2, 1).CopyFromRecordset rs
/* aqui lo puedo colocar en una hoja de Excel */
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

Preguntas similares