RecordCount y Cursor Type

cesarnorte9 · #1 (**permalink**) 08/04/2011, 05:25

Buenos dias.

Si alguien ha seguido mis ultimos temas sabra que estoy haciendo una pagina web y soy un estudiante en practicas.

Bueno la empresa me ha obligado hacer la página en asp aunque desconozca el lenguaje totalmente, soy más de php.

Pues nada estoy realizando un paginador y quiero contar el numero total de filas que me devuelve la base de datos...

He puesto un recordcount despues de la conexion para contar el numero de filas pero como bien se dice en otro temas de este mismo foro es necesario poner un CursorType=1 para que no te devuelva -1. Bueno pues cuando hago eso me devuelve esto....

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/pruebascesar/Web Luqentia1/index.asp, line 14

el codigo es este

Código:

option explicit
dim bd, oConn,sql,rs,filas_rs,pagina,numpaginas,filas


if not isEmpty(Request.queryString("pagina")) then
pagina=Cint(Request.queryString("pagina"))
end if

bd="datos"
set oConn=Server.CreateObject("ADODB.Connection")

filas_rs.CursorType=1

oConn.Open "Data Source=" & Server.MapPath("administrador/" & bd &".mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0"

sql="SELECT TOP 5, titulo,texto,foto,fechaalta From noticias WHERE titulo<> '' ORDER BY fechaalta DESC"
filas="SELECT titulo FROM noticias WHERE titulo<> '' ORDER BY fechaalta DESC"


set filas_rs=oConn.Execute(filas)


numpaginas=filas_rs.RecordCount/5

Response.Buffer = False

Response.Write numpaginas

Si la ciero por debajo la conexion..
Tambien lo he probado con '' pero nado... Poniendole oConn.CursorType=1 tambien y con el adOpenStatic y con el adKeySet o algo asi... Y nada....
HELLPPP

Por cierto la base de datos es ACCESS...

mc_quake · #2 (**permalink**) 08/04/2011, 09:35

Usa este codigo esta llegar y pegar

Código HTML:

Ver original<html>
 
<body>
 
<!-- aquí comienza el listado -->
<&#37;
'========================================================
Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales
Dim TamPagina
Dim CuantosRegistros
TamPagina = 20 'N&#186; DE REGISTRO POR PAGINA
if Request.Querystring("pagina") = "" then PaginaActual = 1 else PaginaActual = Cint(Request.Querystring("pagina"))
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open MM_conn_STRING
SQL = "SELECT * FROM TABLA"
rs.PageSize  = TamPagina
rs.CacheSize = TamPagina
rs.Open SQL, oConn, 1, 2
PaginasTotales = rs.PageCount
if PaginaActual < 1 then PaginaActual = 1
if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales
if PaginasTotales=0 then
textotd =  "No se encontraron resultados."
else
rs.AbsolutePage = PaginaActual
textotd =  "Pagina " & PaginaActual & " de " & PaginasTotales
'========================================================
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3" id="t1" class="sortable">
<tr<%= StBarras %>>
</tr>
<% Do While Not Rs.EOF AND CuantosRegistros < TamPagina %>
<tr<%= StColor %>>
aca el codigo que quiera repetirrrrrrrrrrrrr
</tr>
<% CuantosRegistros=CuantosRegistros + 1
Rs.MoveNext
loop %>
</table>
<%
end if
rs.Close
oConn.Close
set rs = nothing
set oConn = nothing
Response.Write("<hr size=""1"">  ")
if PaginaActual > 2 then Response.Write("<A HREF=?pagina="& 1 &">Primera Pagina</A> | ") Else Response.Write("<font color=""#CCCCCC"">Primera Pagina</font> | ")
if PaginaActual > 1 then Response.Write("<A HREF=?pagina="& PaginaActual-1 &">"&TamPagina&" Anteriores</A> | ") Else Response.Write("<font color=""#CCCCCC"">"&TamPagina&" Anteriores</font> | ")
if PaginaActual < PaginasTotales then Response.Write("<A HREF=?pagina=" & PaginaActual+1 &">"&TamPagina&" Siguientes</A> | ") Else Response.Write("<font color=""#CCCCCC"">"&TamPagina&" Siguientes</font> | ")
if PaginaActual + 1 < PaginasTotales then Response.Write("<A HREF=?pagina=" & PaginasTotales &">Ultima Pagina</A>") Else Response.Write("<font color=""#CCCCCC"">Ultima Pagina</font>")
%>
 
<!-- aquí termina el listado -->
 
</body>
</html>

cesarnorte9 · #3 (**permalink**) 11/04/2011, 00:40

Eso no es lo que quiero...Por que yo he preguntado otra cosa...

Myakire · #4 (**permalink**) 11/04/2011, 11:10

Linea 14
¿El error lo tienes en la linea donde abres la conexión?

Si es así, eso no es problema del cursor