paginación asp con mysql

04/08/2004 - 15:50 por MFlores | Informe spam

Hola a todos, espero se encuentren bien.

Sabes, he hecho paginación con asp y access y funciona perfectamente pero
con mysql tengo algunos problemas, alguien sabe como realizarlo o alguno ya
le ha funcionado??

Saludos!!

MFT

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

paginación de una consulta con select en asp

Leer las respuestas

#6 Franco Figún

04/08/2004 - 21:07 | Informe spam

Usa este codigo, y decime si te da error:

<%
Dim mostrar,cant_paginas ,pagina_actual, page
Dim objConn, objRS, strProvider, SQL

mostrar = 10
CadenaConn ="tu cadena de conexion"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open CadenaConn

If page = "" Then
page=1
pagina_actual = 1
Else
pagina_actual = CInt(page)
page=pagina_actual
End If
SQL = "tu SQL"

ObjConn.CursorLocation = 2
ObjRS.PageSize = mostrar
ObjRS.CacheSize = mostrar
ObjRS.Open SQL, ObjConn, 3,1
cant_paginas = ObjRS.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas <> 0 Then
ObjRS.AbsolutePage = pagina_actual

objRS.Close
objConn.Close
If pagina_actual > 1 Then %>
%>
<html>
<body>
<input type="submit" name="ir" value="Anterior">
<%
End If
If pagina_actual < cant_paginas Then
%>
<input type="submit" name="ir" value="Proximo">
<% End If %>
</body></html>

Solo ponele la conexion a mysql, debe ser como esta:

<%
on error resume next
dim adoRS
dim adoConn
set adoConn = Server.CreateObject("ADODB.Connection")
set adoRS = Server.CreateObject("ADODB.Recordset")

adoConn.Open "Provider$.232.xx.xx;3306;" & _
"Data SourceºSEDEDATOS;" & _
"User Id=USUARIO;" & _
"Password=CONTRASEÑA"

if adoConn.errors.count = 0 then
response.write "Connected Successfully!"
else
response.write "ERROR: Couldn't connect to database"
end if
%>

FF
www.francofigun.com.ar
www.microsofties.com.ar
Yahoo MSN:

"Omar Valdovino" escribió en el
mensaje news:

Implementa algo como esto, espero que te funcione:

'Declaras
dim AdoCon, AdoRs, StrQuery
Const adCmdText = &H0001
Const adOpenStatic = 3

'Estableces tipo de cursor y el tamaño de cada pagina
AdoRs.pagesize = 25
AdoRs.CursorLocation=3
AdoRs.CursorType=3

'Ejecutas tu query
AdoRs.Open StrQuery,AdoCon,adOpenStatic,adCmdText

'Recorres los registros
For i=1 to AdoRs.PageSize
if adors.eof then exit for
'Llenas los renglones de una tabla
Next

'Para la navegacion:
<Table Width="100%" border="0" align="center" bgcolor="#EEEEEE">
<tr>

<%if pag = "1" then%>
<TD width="25%" align="center"><font color="#0033FF" size="-6"
face="Verdana, Arial, Helvetica, sans-serif">Inicio</font></TD>
<TD width="25%" align="center"><font color="#0033FF" size="-6"
face="Verdana, Arial, Helvetica, sans-serif">Anterior</font></TD>
<%else%>
<TD width="25%" align= "center"><font color="#0033FF" size="-6"
face="Verdana, Arial, Helvetica, sans-serif"><a
href="default.asp?pag=1">Inicio</a></font></TD>
<TD width="25%" align= "center"><font color="#0033FF" size="-6"
face="Verdana, Arial, Helvetica, sans-serif"><a
href="default.asp?pag=<%=pag-1%>">Anterior</a></font></TD>
<%end if%>

<%if cint(pag) => paginas then%>
<TD width="25%" align="center"><font color="#0033FF" size="-6"
face="Verdana, Arial, Helvetica, sans-serif">Siguiente</font></TD>
<TD width="25%" align="center"><font color="#0033FF" size="-6"
face="Verdana, Arial, Helvetica, sans-serif">Ultima</font></TD>
<%else%>
<TD width="25%" align= "center"><font color="#0033FF" size="-6"
face="Verdana, Arial, Helvetica, sans-serif"><a
href="default.asp?pag=<%=pag+1%>">Siguiente</a></font></TD>
<TD width="25%" align= "center"><font color="#0033FF" size="-6"
face="Verdana, Arial, Helvetica, sans-serif"><a
href="default.asp?pag=<%=paginas%>">Ultima</a></font></TD>
<%end if%>
</TR>
</Table>

"Omar Valdovino" escribió en el
mensaje news:
> Como estas ejecutando el query?
> Que parametros le pasas al recordset?
>
> "MFlores" escribió en el mensaje
> news:
> > este es el error:
> >
> > Tipo de error:
> > ADODB.Recordset (0x800A0CB3)
> > El Recordset actual no admite marcadores. Puede ser una limitación del
> > proveedor o del tipo de cursor seleccionado.
> > /gob/pronabes/usuarios.asp, line 41
> >
> > linea 41:
> >
> > IF NOT rs.EOF Then rs.AbsolutePage = intRecordPositionPageNum
> >
> > =(
> >
> >
>
>

Responder a este mensaje

#7 MFlores

04/08/2004 - 21:29 | Informe spam

pues bueno, he probado los ejemplos y consejos q me dieron y aún asi tuve
problemas, les paso aquí, como quedo y ya funcionó!!

saludos!!
_____________________________________________________
<html>
<head>
<title>Repaginador de resultados</title>
<%
sSQL="select lo que tu quieras"
If Request.QueryString("pag")<>"" then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If

Const adCmdText = &H0001
Const adOpenStatic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Set Command = Server.CreateObject("ADODB.Command")
Set RS =Server.CreateObject("ADODB.RecordSet")
Conn.Open "nombre de tu base de datos"
RS.Open sSQL,Conn,adopenstatic,adcmdtext

num_registros = 5

RS.PageSize=num_registros
RS.AbsolutePage=Session("pagina")
%>

<div align="center">
Número de página actual: <b><%=Session("pagina")%></b>
<br>
Número de páginas total: <b><%=RS.PageCount%></b>
<br>
Número de registros por página: <b><%=RS.PageSize%></b>
<br>
Número de registros seleccionados: <b><%=RS.RecordCount%></b>
</div>
<br><br>

<table cellspacing="2" cellpadding="2" border="1" align="center">
<%
num_campos=RS.Fields.Count
For campo=0 to num_campos-1%>
<td align="center"><%=RS(campo).Name%></td>
<%
Next
registros_mostrados = 0
While (Not RS.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
%>
<tr>
<%For campo=0 to num_campos-1 %>
<td align="center"><%=RS(campo)%></td>
<%Next%>
</tr>
<%
RS.MoveNext
Wend
%>
<tr>
<td colspan="<%=num_campos%>" align="center">
<%
i=0
While i<RS.PageCount
i=i+1
%>
<b><a href="paginar.asp?pag=<%=i%>"><%=i%></a></b>
<%
Wend
%>
</td>
</tr>
</table>
<%
RS.Close
Conn.Close
%>
</body>
</html>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida