De Acces a un Control en Excel

10/11/2006 - 22:16 por Arubiangt | Informe spam
Hola, 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



Se puede colocar el resultado directamente en un cuadro de lista o un
textbox en el VBa de Excel?

Hector me ha enviado lo siguiente:

"si quieres evitar el 'pase' de tu recordset a un rango con el metodo
copyfromrecordset para llenar 'en directo' (un control) ...
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"

Entiendo que debo hacer lo siguiente:

for Fil=0 to rs.fields.count
for Col=0 to rs.recordcount

List1.additem rs.*

next Col
next Fil

* Pero, que instruccion debo colocar para "direccionarme" al elemento en la
posicion Fil, Col?
Gracias

Preguntas similare

Leer las respuestas

#6 Héctor Miguel
11/11/2006 - 21:51 | Informe spam
hola, KL !

... por que el uso directo de GetRows pudiera ser menos eficiente que pasar el recordset a celdas o buclear el recordset
... manipular los datos creo que nada mejor que una expresion SQL a la hora de extraer los datos
... para seleccionar las columnas el viejo amigo INDEX. En el adjunto... tres ejemplos [...]



muy claros los ejemplos [y sobre todo, ilustrativos] :D
la 'manipulacion' de los datos de la matriz [a la que me referia]... no ha sido 'necesaria' ;)
[definitivamente]... estoy cambiando 'mis paradigmas' [en relacion con los 'pases' de recordsets'] :))

un 'KL-truco' mas a 'mi' coleccion de favoritos [con o sin... tu permiso, pero eso si... muy agradecido] :D

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida