Problema con paginación y sqlserver

25/04/2006 - 13:27 por fpmweb | Informe spam
Hola os adjunto un código de mi paginación,
tengo un error, no se como abrir la conexion de sql server con los cursores...
a ver si me lo podeis solucionar

<%
Dim Conex
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open "driver={SQL Server};server=OFI0924; database=neteja;
uid=neteja;pwd=neteja"

SQL = "exec sp_tipus_treballador_s"
Set rs = Conex.execute(sql) 'aquí ejecuto la query y la conex ya esta
abierta

rs.PageSize=TamPagina
rs.CacheSize=TamPagina

rs.Open SQL, Conex, 1, 2 'esto esta mal, ya tengo la conex abierta, pero
no se como solucionarlo ??

PaginasTotales=rs.PageCount

if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

if PaginasTotales=0 then

Response.Write("No hi han registres a la base de dades.")

else

rs.AbsolutePage=PaginaActual

end if

%>
 

Leer las respuestas

#1 keko
25/04/2006 - 16:27 | Informe spam
Hola,

Además de lo que te dicen, yo creo que debes utilizar el método open del
recordset sólo y debes especificar en el método Open el CursorLocation y
el LockType de forma adecuada. Mira el ejemplo y verás que lo ponen en
ambos casos a 3, yo creo que tb funciona en 2,3.

http://www.aspfree.com/c/a/Database...et-Paging/

Suerte

K


fpmweb wrote:

Hola os adjunto un código de mi paginación,
tengo un error, no se como abrir la conexion de sql server con los cursores...
a ver si me lo podeis solucionar

<%
Dim Conex
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open "driver={SQL Server};server=OFI0924; database=neteja;
uid=neteja;pwd=neteja"

SQL = "exec sp_tipus_treballador_s"
Set rs = Conex.execute(sql) 'aquí ejecuto la query y la conex ya esta
abierta

rs.PageSize=TamPagina
rs.CacheSize=TamPagina

rs.Open SQL, Conex, 1, 2 'esto esta mal, ya tengo la conex abierta, pero
no se como solucionarlo ??

PaginasTotales=rs.PageCount

if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

if PaginasTotales=0 then

Response.Write("No hi han registres a la base de dades.")

else

rs.AbsolutePage=PaginaActual

end if

%>

Preguntas similares