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

%>

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

problema formato de la paginacion con letras y numero

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

%>

Responder a este mensaje

#2 Matías Iacono

25/04/2006 - 17:11 | Informe spam

Tienes una linea de mas, si usas el:

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

En este momento RS ya es un recordset con los resultados de tu consulta.

Si luego haces:

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

Simplemente estas sobre escribiendo algo que ya tenia los datos.

Usa o la primer linea, o la segunda, pero no las dos.

Matías Iacono
Microsoft MVP ASP/ASP.net
Microsoft Student Ambassador
Coordinador de evento Comunidad MSDN Bolivia
DCE2 v.2005
"fpmweb" escribió en el mensaje
news:

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

%>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida