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

Preguntas similare

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
Respuesta Responder a este mensaje
#2 Arubiangt
13/10/2006 - 19:46 | Informe spam
ok!

Pero... Rs.¿que? direcciona a un elemento determinado?

por ej:
lista1.additem matrizresultado(fil,col)
' añadiria el valor correspondiente

entonces en el siguiente codigo que faltaria?:

lista1.additem Rs.____________

GRacias!!!

"Héctor Miguel" wrote:

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



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida