Acceder a una consulta de access

la consulta se abre con el recordset como cualquier tabla. aunque la verdad,
con SQL puedes armar CUALQUIER cosa que desees sin usar las consultas de
access.

saludos!!


"Enrique Alonzo" <agsercom[arroba]adinet.com.uy> escribió en el mensaje
news:#$

Estimados:
¿Cómo puedo acceder a una consulta de una base de datos access 2000 como

si

fuera una tabla?
Además también debo pasarle los datos de determinados parámetros (si es

que

se puede, ¿cómo los paso?).
La idea es llenar un control data con esa consulta.
Desde ya muchas gracias y saludos para todos...

Enrique Alonzo

si lo que quieres es seleccionar un grupo de registros puedes abrir primero
un formulario con un combo que vas a cargar con todos los registros del
campo que quieras seleccionar ( dos combos si por ejemplo prefieres
seleccionar un rango de fechas) y una vez leidos estos parametros, abrir un
recordset de la consulta o de la tabla con una sentencia sql que incorpore
estos parametros. algo como esto:

Private Sub cmdAceptar_Click()
Dim datDesde As Date
Dim datHasta As Date
datDesde = CDate(txtFecha(0).Text) 'datDesde y
datHasta vienen del formulario donde el usuario mete las fechas limite
datHasta = CDate(txtFecha(1).Text)
Set cnSeguros = New Connection 'nueva
instancia de la conexion
Set rsAutos = New Recordset ' y del
recordset
With cnSeguros
.Provider = "Microsoft.Jet.OLEDB.4.0" 'access 2000
.Open strOrigen 'cadena recuperada del registro con
' el path de la base de datos
End With
With rsAutos
.CursorLocation = adUseClient
'AQUI SELECCIONA REGISTROS QUE CUMPLAN CON LA CONDICION DEL RANGO DE FECHAS
.Open "SELECT Clientes.Nombre, Autos.Aseguradora,Autos.Poliza, " & _
"Autos.Descripcion, Autos.Modelo,Autos.FechadeVencimiento, " & _
"Autos.PrimaTotal FROM Autos INNER JOIN Clientes ON Clientes." & _
"Clave = Autos.Cliente WHERE Autos.FechadeVencimiento Between #" &
_
Format(datDesde, "MM/DD/YY") & "# And #" & Format(datHasta,
"MM/DD/YY") & "# ORDER BY Autos.fechadeVencimiento", cnSeguros, , ,
adCmdText
End With
'liga el recordset con el data report
With rptGloaut
.Caption = "Informe de Vencimientos de autos entre fechas"
.Title = "Vencimientos de autos desde el " & _
Me.txtFecha(0).Text & " hasta el " & Me.txtFecha(1).Text
Set .DataSource = rsAutos
.DataMember = vbNullString
.WindowState = vbMaximized
End With
'enlaza los controles del datareport con los campos del recordset
With rptGloaut.Sections("detalle")
.Controls("rptNombre").DataField = "Nombre"
.Controls("rptAseguradora").DataField = "Aseguradora"
.Controls("rptPoliza").DataField = "Poliza"
.Controls("rptDescripcion").DataField = "Descripcion"
.Controls("rptModelo").DataField = "Modelo"
.Controls("rptFechadeVencimiento").DataField = "FechadeVencimiento"
.Controls("rptPrimaTotal").DataField = "PrimaTotal"
End With
'actualiza los datos
rptGloaut.Refresh
'muestra el informe en modo modal
rptGloaut.Show
Unload Me
rsAutos.Close
Set rsAutos = Nothing
End Sub

Y listo!
como puedes ver, no se usa el data environment.espero no haberme puesto muy
barroco. si quieres te mando un ejemplo y ahi te lo explico un poco mejor o
el ejemplo que subio pilarMMF con datareport usando dataenvironment...

saludos!!!


"Enrique Alonzo" <agsercom[arroba]adinet.com.uy> escribió en el mensaje
news:

Gustavo:
Gracias por responder, tenés idea de cómo pasar los parámetros al abrir la
consulta.
Los parámetros que paso son la fecha y un valor numérico, y a partir de
ellos genero un reporte de clientes preferenciales.
Saludos...

Enrique Alonzo

"gustavo gutierrez" escribió en el
mensaje news:
> la consulta se abre con el recordset como cualquier tabla. aunque la
verdad,
> con SQL puedes armar CUALQUIER cosa que desees sin usar las consultas de
> access.
>
> saludos!!
>
>
> "Enrique Alonzo" <agsercom[arroba]adinet.com.uy> escribió en el mensaje
> news:#$
> > Estimados:
> > ¿Cómo puedo acceder a una consulta de una base de datos access 2000

como

> si
> > fuera una tabla?
> > Además también debo pasarle los datos de determinados parámetros (si

es

> que
> > se puede, ¿cómo los paso?).
> > La idea es llenar un control data con esa consulta.
> > Desde ya muchas gracias y saludos para todos...
> >
> > Enrique Alonzo
> >
> >
>
>

Gustavo:
Impecable, con esto no puedo errarle. Muchas gracias...

Enrique Alonzo