07/06/2002, 15:57
| |||
| |||
| no me sale la paginacion ,AYUDA!! Hola, estoy intentando paginar los resultados obtenidos tras hacer una consulta sql a mi DB de Access, pero solo puedo ver la primera página, si pulso cualquier link para ver los resultados siguientes, me salen TODOS los registros de la tabla. En que me puedo estar equivocando? Que haceis ustedes para crear un recordset? Y que le mandais luego a las páginas para ver los resultados obtenidos en varias páginas? Gracias, si os falta información yo pondré el código que estoy usando. |
|
07/06/2002, 17:00
| ||||
| ||||
| Re: no me sale la paginacion ,AYUDA!! Hola... me imagino que deseas que te aparezcan los registros por ejmplo de 10 en 10, o 5 en 5.. etc.. no..?? Si es así tendrás que hacer algunas cosillas obviamente manejando paginacion, cachesize, pagecount.. etc... si mas o menos estas familiarizado puedes hacer algo como esto.. (te daré mas o menos una idea para que entiendas y lo desarrolles tu y así aprendas ok..?? de todas formas para estamos aqui en los foros...!! ;) ) Crear variables como: pagina actual, totales, cuantos registros y el tamaño de pagina donde tamaño de pagina lo igualas a 6, 3 , 10, etc... el que desees que aparezca como resultado.. luego podrás meter en una querystring el valor de pagina, y si está vacío.. o es la primera vez le asignas a Pagina actual "1" ok..?? y si no lees esa variable y lo pones en PaginaActual = request.querystring("pagina") procedes a hacer tu consulta de tus registros que deseas que aparezacan.. strSQL = "select . . .." posteriormete asingas a tu recordset: rs.PageSize =TamPagina rs.CacheSize = TamPagina ejecutas tu consulta rs.open slq, Conexion,1,2 y paginas totales la igualas a PaginasTot=rs.PageCount y luego: if paginaactual<1 then paginaactual = 1 end if if paginaactual > paginastotales then paginaactual = paginastotales end if if paginastotales=0 then "no hay registros" else rs.absolutepage = paginaactual haces un while que cumpla mas o menos lo siguiente while not rs.eof and cuantosregistros < tampagina 'y vas recorriendo tu recordset response.write rs("Nombre") rs.movenext cuantosregistros = cuantrosregistros +1 wend . . .... If PaginaActual > 1 then <a href="pagina.asp?pagina=<%=PaginaActual -1%>"> Anteriores <%End If If PaginaActual < PaginasTotales then %> <a href="pagina.asp?pagina=<%=PaginaActual +1%>"> Siguientes <%End If%> y con esto ya iras guardando el valor de la pagina actual para meterla en el while y respetar el orden...!! Casi está todo el code... ya lo demas es cosa de que le . . . <html><center><embed src="http://www.angelfire.com/on/cobainss/Movie1.swf" height=80 width=200><BR></embed></center></html> |
|
07/06/2002, 17:01
| ||||
| ||||
| Re: no me sale la paginacion ,AYUDA!! ... pienses y corre por tu cuenta...!! Espero haya sido de ayuda..  , de todas formas seguimos en contacto...!!Saludos y suerte...!!! :P :P |
|
07/06/2002, 18:29
| |||
| |||
| Re: no me sale la paginacion ,AYUDA!! Hola, lo he intentado de varias formas ya y no lo consigo, lo he hecho tambien como me has explicado, por si salia, pero tampoco, cada vez que quiero ir a la siguiente página de resultados me sale la siguiente de la tabla completa. Esto es lo que pongo para conectarme a la DB y crear el recordset: Set Conexion = Server.CreateObject("ADODB.Connection") Conexion.Open "discoteca" Set RS = Server.CreateObject("ADODB.Recordset") RS.Pagesize = mostrar RS.CacheSize = mostrar 'Aqui va la consulta, pero es larga y no la pongo RS.Open SQL,Conexion,1,2 paginas_totales = RS.PageCount |
|
07/06/2002, 18:37
| |||
| |||
| Re: no me sale la paginacion ,AYUDA!! donde 'mostrar' son los registros por página que quiero mostrar, y "discoteca" el nombre de la DB, la pongo asi, porque estoy aún en el PWS y he hecho una conexion ODBC dentro de mi pc. El resto del código es como siempre, y no creo que esté ahí el fallo.... A ver si ves el error.... Gracias por tu mensaje Juan. |
