Programación Web y Scripting > ASP
Paginar
(1/1)
Jorge López:
hola a todos,
ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
este error me devuelve mi asp cuando intento paginar, es decir, cuando presiono los link de las paginas que quiero ver, por ejemplo, 1,2,3,4,5,6,7,8,9...
cuaando presiono en uni de ellos me devuelve este error alguien puede decirme que puede ser, o darme un ejemplo de paginacion?
saludos y gracias..
Kev:
Revisa bien tu codigo, al parecer te pasaste algun rango, porque no mas bien le hechas un vistazo al siguiente ejemplo
--- Código: Text --- <html><head><title>Paginar resultados de consulta</title></head><%'Conexion a tu base de datosStrConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./db/mibase.mdb")'Consulta SQLsql = "SELECT * FROM usuarios where totalpost > 100"'Configurar aqui los registros por páginanum_registros = 20 'actualizamos la pagina actualif (request.queryString("pag") <> "") then pagina_actual = request.queryString("pag")elsepagina_actual = 1end if Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open StrConnSet RS = Server.CreateObject("ADODB.RecordSet")RS.Open sql,oConn,3,1 RS.pageSize = num_registrosRS.absolutePage = pagina_actualcantidad_campos = RS.Fields.Count%> <body><div align="center">Página actual: <%= pagina_actual %><br>Cantidad de páginas: <%= RS.PageCount %><br>Registros por página: <%= RS.PageSize %><br>Registros totales: <%= RS.RecordCount %></div><br> <table cellspacing="2" cellpadding="2" border="1" align="center"><tr><%For campo = 0 to cantidad_campos - 1 %><td align="center"><%=RS(campo).Name%></td><% Next %></tr><%registros_mostrados = 0While (Not RS.eof And registros_mostrados < num_registros)registros_mostrados = registros_mostrados +1%><tr><%For campo=0 to cantidad_campos - 1 %><td align="center"><%=RS(campo)%></td><%Next%></tr><%RS.MoveNextWend%><tr><td colspan="<%=cantidad_campos%>" align="center"><%i=1Do While i < RS.PageCount %><a href="paginador.asp?pag=<%=i%>"><%=i%></a><%i=i+1Loop%></td></tr></table><%'Limpiamos los objetos (SIEMPRE)RS.CloseSet RS = NothingoConn.CloseSet oConn = Nothing%></body></html>
Nota.- Este ejemplo es de un colega CoRSA
Espero te sirva..
:comp:
Navegación
Ir a la versión completa