Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Recordcount
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Monkytrox
Starting Member

Chile
16 Posts
Mensajes - 18 Jul 2005 :  20:32:36  Ver Perfil  Enviar Email
Hola, una vez mas, ante todo mucha gracias a todos los que me han ayudado con la contrucion de una intranet, ahora les traigo otra consulta, tengo tablas de mas de 100.000 registros y necesito mostrar sus datos, con recordcount, me muestra un valor de -1, lo que me impide poder mostrar resultados compaginados, el mismo codigo me funsiona perfectamente con tablas de menos de registros, adjunto el codigo para que me echen una mano:

<%
Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina' cuantos registros por pagina
Dim CuantosRegistros

TamPagina=10


if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if


Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
'Conexion a base de datos
StrConn = "Provider=SQLOLEDB;Data Source=BARON; Initial Catalog = Televenta_Chilesat; User Id =sa; Password=123123"
'Consulta SQL
sql = " select * from tb_cliente"


oConn.Open StrConn
RS.Open sql,oConn,3,3
'Cuento las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina

PaginasTotales=rs.PageCount

response.Write(rs.pagecount)
response.Write(rs.Absolutepage)


'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

'Por si la consulta no devuelve registros!
if PaginasTotales=0 then

Response.Write("No se encontraron resultados.")

else

'Vamos a paginar
'rs.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
Response.Write("<br><br>")
CuantosRegistros=0
'do while not rs.EOF and CuantosRegistros < TamPagina


%>
<table width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="0148B2">


<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="0148B2">
<td width="18%"><span class="Estilo24 Estilo23 Estilo25"><strong>CODIGO</strong></span></td>
<td width="82%"><span class="Estilo24 Estilo23 Estilo25"><strong>Fecha</strong></span></td>
<td width="82%"><span class="Estilo24 Estilo23 Estilo25"><strong>usuario</strong></span></td>

</tr>
<% do while not rs.eof and CuantosRegistros < TamPagina %>
<tr>

<td><span class="Estilo24 Estilo23"><strong><%=RS("area")%></strong></span></td>
<td><span class="Estilo4 Estilo23"><%'=RS("area")%></span></td>
<td><span class="Estilo4 Estilo23"><%'=RS("operador")%></span></td>


<%CuantosRegistros=CuantosRegistros+1
rs.movenext
loop
end if
%>
</tr>
</table>
</table>
<%'Limpiamos los objetos (SIEMPRE)
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing

'Muestro los enlaces
Response.Write("<hr>")
if PaginaActual > 1 then
Response.Write("<A HREF=gest_usuarios.asp?pagina="& PaginaActual-1& ">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=gest_usuarios.asp?pagina=" & PaginaActual+1 &">10 Siguientes</A>")
end if

%>

Alexis_m20
Senior Member

Chile
1021 Posts
Posted - 21 Jul 2005 :  21:38:58  Ver perfil  Enviar e-mail  Visit Alexis_m20's Homepage
te falta poner antes del query y despues de haber creado el objeto recordset

RS.cursortype=3

y con eso deberia funcionarte

Si puedo ayudar lo hare
Entren a mi web y registrense
http://www33.brinkster.com/alexis20Inicio Pagina

rmejia
Starting Member

Mexico
33 Posts
Posted - 22 Jul 2005 :  15:23:19  Ver perfil  Enviar e-mail
Estimado Monkytrox: tal vez seas la forma en que abres el recordset;

RS.Open sql,oConn,3,3
--------pruebalo así ---------
RS.cursorlocation=3
RS.Open strSql, oConn, 1, 2

Espero te funcione.

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar