Paginar Resultados

05/10/2004 - 19:46 por SEba | Informe spam
Hola. Tengo un Procedimiento almacenado que me devuelve un recordset, como
puedo hacer para paginar este recordset de 10 en 10, de 20 en 20 , etc...

Set CoComando = Server.CreateObject("ADODB.Command")
CoComando.ActiveConnection = Conn
CoComando.CommandType = 4
CoComando.CommandText = "SP_articulos"
SEt rsArt = CoComando.Execute

lo que quiero es poder paginar este recordset ¿puede realizarse?
 

Leer las respuestas

#1 Franco Figún
05/10/2004 - 21:18 | Informe spam
<%
miConexion= "DRIVER={Microsoft Access Driver (*.mdb)};"
miConexion= miConexion & "DBQ="&Server.Mappath("x.mdb")

Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.ActiveConnection = miConexion
oRS.Source = "Select * from Tabla1"
oRS.CursorLocation = 3
oRS.Open

OrdenadoPor = Request("OrdenadoPor")
If OrdenadoPor <> "" Then oRS.Sort = OrdenadoPor
%>
<html>
<body>
<TABLE BORDER="1">
<TR>
<%For I = 0 To oRS.Fields.Count - 1%>
<TD><B><A HREF="?OrdenadoPor=<%=oRS.Fields(I).Name%>">
<%=oRS.Fields(I).Name%></B></A></TD>
<%Next%>
</TR>
<%Do While Not oRS.EOF%>
<TR>
<%For I = 0 To oRS.Fields.Count - 1%>
<TD><%=oRS.Fields(I)%></TD>
<%Next%>
</TR>
<%oRS.MoveNext
Loop%>
</TABLE>
</body></html>

FF
www.francofigun.com.ar
Yahoo MSN:
ICQ: 314408886

"SEba" wrote in message
news:
Hola. Tengo un Procedimiento almacenado que me devuelve un recordset, como
puedo hacer para paginar este recordset de 10 en 10, de 20 en 20 , etc...

Set CoComando = Server.CreateObject("ADODB.Command")
CoComando.ActiveConnection = Conn
CoComando.CommandType = 4
CoComando.CommandText = "SP_articulos"
SEt rsArt = CoComando.Execute

lo que quiero es poder paginar este recordset ¿puede realizarse?


Preguntas similares