Consulta paso a través
Publicado por Dani (7 intervenciones) el 19/01/2004 17:41:40
Alguien sabria decirme como hacer una consulta paso a través desde el código de visual Basic gracias!!
Valora esta pregunta
0
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim rs As DAO.Recordset
' Obtener la base de datos actual
Set dbs = CurrentDb()
' Obtener la consulta paso a través
Set qdf = dbs.QueryDefs("NombreDeLaConsultaPasoATraves")
' Ejecutar la consulta y obtener el conjunto de registros
Set rs = qdf.OpenRecordset()
' Hacer algo con los registros obtenidos
Do While Not rs.EOF
' Procesar cada registro
rs.MoveNext
Loop
' Liberar los objetos utilizados
rs.Close
Set rs = Nothing
Set qdf = Nothing
Set dbs = Nothing