Autor Tema: Paginar (Leído 2959 veces)

Jorge López · « **en:** Lunes 31 de Mayo de 2004, 02:33 »

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 · « **Respuesta #1 en:** Lunes 21 de Junio de 2004, 22:28 »

Revisa bien tu codigo, al parecer te pasaste algun rango, porque no mas bien le hechas un vistazo al siguiente ejemplo

Código: Text

 
&#60;html&#62;
&#60;head&#62;&#60;title&#62;Paginar resultados de consulta&#60;/title&#62;&#60;/head&#62;
&#60;%
'Conexion a tu base de datos
StrConn = &#34;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&#34;& Server.MapPath(&#34;./db/mibase.mdb&#34;)
'Consulta SQL
sql = &#34;SELECT * FROM usuarios where totalpost &#62; 100&#34;
'Configurar aqui los registros por página
num_registros = 20
 
'actualizamos la pagina actual
if (request.queryString(&#34;pag&#34;) &#60;&#62; &#34;&#34;) then 
pagina_actual = request.queryString(&#34;pag&#34;)
else
pagina_actual = 1
end if
 
Set oConn = Server.CreateObject(&#34;ADODB.Connection&#34;)
oConn.Open StrConn
Set RS = Server.CreateObject(&#34;ADODB.RecordSet&#34;)
RS.Open sql,oConn,3,1
 
RS.pageSize = num_registros
RS.absolutePage = pagina_actual
cantidad_campos = RS.Fields.Count
%&#62;
 
&#60;body&#62;
&#60;div align=&#34;center&#34;&#62;
Página actual: &#60;%= pagina_actual %&#62;&#60;br&#62;
Cantidad de páginas: &#60;%= RS.PageCount %&#62;&#60;br&#62;
Registros por página: &#60;%= RS.PageSize %&#62;&#60;br&#62;
Registros totales: &#60;%= RS.RecordCount %&#62;
&#60;/div&#62;
&#60;br&#62;
 
&#60;table cellspacing=&#34;2&#34; cellpadding=&#34;2&#34; border=&#34;1&#34; align=&#34;center&#34;&#62;
&#60;tr&#62;
&#60;%
For campo = 0 to cantidad_campos - 1 %&#62;
&#60;td align=&#34;center&#34;&#62;&#60;%=RS(campo).Name%&#62;&#60;/td&#62;
&#60;% Next %&#62;
&#60;/tr&#62;
&#60;%
registros_mostrados = 0
While (Not RS.eof And registros_mostrados &#60; num_registros)
registros_mostrados = registros_mostrados +1
%&#62;
&#60;tr&#62;
&#60;%For campo=0 to cantidad_campos - 1 %&#62;
&#60;td align=&#34;center&#34;&#62;&#60;%=RS(campo)%&#62;&#60;/td&#62;
&#60;%Next%&#62;
&#60;/tr&#62;
&#60;%
RS.MoveNext
Wend
%&#62;
&#60;tr&#62;
&#60;td colspan=&#34;&#60;%=cantidad_campos%&#62;&#34; align=&#34;center&#34;&#62;
&#60;%
i=1
Do While i &#60; RS.PageCount 
%&#62;
&#60;a href=&#34;paginador.asp?pag=&#60;%=i%&#62;&#34;&#62;&#60;%=i%&#62;&#60;/a&#62;
&#60;%
i=i+1
Loop
%&#62;
&#60;/td&#62;
&#60;/tr&#62;
&#60;/table&#62;
&#60;%
'Limpiamos los objetos (SIEMPRE)
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%&#62;
&#60;/body&#62;&#60;/html&#62; 
 
 

Nota.- Este ejemplo es de un colega CoRSA

Espero te sirva..

SoloCodigo

Autor Tema: Paginar (Leído 2959 veces)

Jorge López

Paginar

Kev

Re: Paginar