Paginacion o Paginar con access

[Adler]

Hola

Hace unos meses me vi forzado a trabajar con access. Veamos si esto te ayuda

Barra de navegación

Código asp:

If Request.QueryString("pagina") = "" or Not IsNumeric(Request.QueryString("pagina")) Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("pagina"))
End If
 
contador = 20 ' número de registros por página
 
rs.PageSize = contador
rs.CacheSize = contador
 
' consulta
 
IF rs.EOF = True then ' ha ocurrido alguna incidencia
 
ELSE
 
cant_paginas = rs.PageCount ' número de páginas que se formaron con la variable contador
 
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
 
BarraDeNavegacion(cant_paginas, pagina_actual)
 
rs.AbsolutePage = pagina_actual
 
Dim registros
registros=rs.getrows()
 
registros_mostrados = 0
 
For p=0 to UBound(registros,2)
If registros_mostrados > (contador-1) then
Else
 
' imprime registros
 
End If
registros_mostrados = registros_mostrados + 1
Next 'p
END IF
 

Suerte