como puedo manipular un recordset desde un procedimiento en vbscript

En vbscript... del lado del servidor... es decir en asp... una vez que la
pagina llegó al cliente no hay forma que tengas acceso al recordset...
Lo que puedes hacer es trabajar con un recordset paginado más o menos
así:

Dim mostrar,cant_paginas ,pagina_actual, page
Dim objConn, objRS, strProvider, SQL

mostrar = 10 ' cantidad de registros por página (puede modificarse a 1 por
ejemplo)
CadenaConn ="tu cadena de conexion"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open CadenaConn
' IF para saber que página mostrar
If page = "" Then
page=1
pagina_actual = 1
Else
pagina_actual = CInt(page)
page=pagina_actual
End If
SQL = "tu SQL"

ObjConn.CursorLocation = 2
ObjRS.PageSize = mostrar
ObjRS.CacheSize = mostrar
ObjRS.Open SQL, ObjConn, 3,1
cant_paginas = ObjRS.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas <> 0 Then
ObjRS.AbsolutePage = pagina_actual

Aca haces lo que tienes que hacer... pintar una tabla... las imagenes o lo
que sea...

objRS.Close
objConn.Close
If pagina_actual > 1 Then %>
<input type="submit" name="ir" value="Anterior">
<% End If
If pagina_actual < cant_paginas Then
%>
<input type="submit" name="ir" value="Proximo">
<% End If %>

Sashka
MS MVP Access

"juan" escribió en el mensaje
news:
Mostrar la cita

hago la misma pregunta de otra forma aver si asi teneis respuesta.

tengo un recordset en asp, y quiero manipularle desde un procedimiento
en vbscript, quiero por ejemplo hacer un movenext, o acceder a su
contenido.
como puedo hacerlo??
gracias.

voy a probarlo aver si me vale.
muchas gracias.

On Sun, 23 May 2004 10:47:08 -0500, "Sashka"
wrote:

Mostrar la cita

En vbscript... del lado del servidor... es decir en asp... una vez que la
pagina llegó al cliente no hay forma que tengas acceso al recordset...
Lo que puedes hacer es trabajar con un recordset paginado más o menos
así:

Dim mostrar,cant_paginas ,pagina_actual, page
Dim objConn, objRS, strProvider, SQL

mostrar = 10 ' cantidad de registros por página (puede modificarse a 1 por
ejemplo)
CadenaConn ="tu cadena de conexion"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open CadenaConn
' IF para saber que página mostrar
If page = "" Then
page=1
pagina_actual = 1
Else
pagina_actual = CInt(page)
page=pagina_actual
End If
SQL = "tu SQL"

ObjConn.CursorLocation = 2
ObjRS.PageSize = mostrar
ObjRS.CacheSize = mostrar
ObjRS.Open SQL, ObjConn, 3,1
cant_paginas = ObjRS.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas <> 0 Then
ObjRS.AbsolutePage = pagina_actual

Aca haces lo que tienes que hacer... pintar una tabla... las imagenes o lo
que sea...

objRS.Close
objConn.Close
If pagina_actual > 1 Then %>
<input type="submit" name="ir" value="Anterior">
<% End If
If pagina_actual < cant_paginas Then
%>
<input type="submit" name="ir" value="Proximo">
<% End If %>

Sashka
MS MVP Access

"juan" escribió en el mensaje
news:
Mostrar la cita

hago la misma pregunta de otra forma aver si asi teneis respuesta.

tengo un recordset en asp, y quiero manipularle desde un procedimiento
en vbscript, quiero por ejemplo hacer un movenext, o acceder a su
contenido.
como puedo hacerlo??
gracias.

solo consigo que me enseñe una.
le doy al boton que pone y no hace nada, supongo que en este codigo
faltara el codigo para los botones anterior y poximo.


On Sun, 23 May 2004 10:47:08 -0500, "Sashka"
wrote:

Mostrar la cita

En vbscript... del lado del servidor... es decir en asp... una vez que la
pagina llegó al cliente no hay forma que tengas acceso al recordset...
Lo que puedes hacer es trabajar con un recordset paginado más o menos
así:

Dim mostrar,cant_paginas ,pagina_actual, page
Dim objConn, objRS, strProvider, SQL

mostrar = 10 ' cantidad de registros por página (puede modificarse a 1 por
ejemplo)
CadenaConn ="tu cadena de conexion"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open CadenaConn
' IF para saber que página mostrar
If page = "" Then
page=1
pagina_actual = 1
Else
pagina_actual = CInt(page)
page=pagina_actual
End If
SQL = "tu SQL"

ObjConn.CursorLocation = 2
ObjRS.PageSize = mostrar
ObjRS.CacheSize = mostrar
ObjRS.Open SQL, ObjConn, 3,1
cant_paginas = ObjRS.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas <> 0 Then
ObjRS.AbsolutePage = pagina_actual

Aca haces lo que tienes que hacer... pintar una tabla... las imagenes o lo
que sea...

objRS.Close
objConn.Close
If pagina_actual > 1 Then %>
<input type="submit" name="ir" value="Anterior">
<% End If
If pagina_actual < cant_paginas Then
%>
<input type="submit" name="ir" value="Proximo">
<% End If %>

Sashka
MS MVP Access

"juan" escribió en el mensaje
news:
Mostrar la cita

hago la misma pregunta de otra forma aver si asi teneis respuesta.

tengo un recordset en asp, y quiero manipularle desde un procedimiento
en vbscript, quiero por ejemplo hacer un movenext, o acceder a su
contenido.
como puedo hacerlo??
gracias.

Efectivamente... disculpa...

if instr(Request.Form("ir"), "Ante") then
page=Request.Form("pp") -1
elseif instr(Request.Form("ir"), "imo") then
page=Request.Form("pp") +1
end if

Sashka
MS MVP Access

"juan" escribió en el mensaje
news:
Mostrar la cita

solo consigo que me enseñe una.
le doy al boton que pone y no hace nada, supongo que en este codigo
faltara el codigo para los botones anterior y poximo.


On Sun, 23 May 2004 10:47:08 -0500, "Sashka"
wrote:

>En vbscript... del lado del servidor... es decir en asp... una vez que la
>pagina llegó al cliente no hay forma que tengas acceso al recordset...
>Lo que puedes hacer es trabajar con un recordset paginado más o menos
>así:
>
> Dim mostrar,cant_paginas ,pagina_actual, page
> Dim objConn, objRS, strProvider, SQL
>
> mostrar = 10 ' cantidad de registros por página (puede modificarse a 1

por
Mostrar la cita

>ejemplo)
> CadenaConn ="tu cadena de conexion"
> Set objConn = Server.CreateObject("ADODB.Connection")
> Set objRS = Server.CreateObject("ADODB.Recordset")
> objConn.Open CadenaConn
> ' IF para saber que página mostrar
> If page = "" Then
> page=1
> pagina_actual = 1
> Else
> pagina_actual = CInt(page)
> page=pagina_actual
> End If
> SQL = "tu SQL"
>
> ObjConn.CursorLocation = 2
> ObjRS.PageSize = mostrar
> ObjRS.CacheSize = mostrar
> ObjRS.Open SQL, ObjConn, 3,1
> cant_paginas = ObjRS.PageCount
> If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
> If pagina_actual < 1 Then pagina_actual = 1
> If cant_paginas <> 0 Then
> ObjRS.AbsolutePage = pagina_actual
>
>Aca haces lo que tienes que hacer... pintar una tabla... las imagenes o

lo
Mostrar la cita

>que sea...
>
> objRS.Close
> objConn.Close
> If pagina_actual > 1 Then %>
> <input type="submit" name="ir" value="Anterior">
><% End If
>If pagina_actual < cant_paginas Then
>%>
> <input type="submit" name="ir" value="Proximo">
><% End If %>
>
>Sashka
>MS MVP Access
>
>"juan" escribió en el mensaje
>news:
>> hago la misma pregunta de otra forma aver si asi teneis respuesta.
>>
>> tengo un recordset en asp, y quiero manipularle desde un procedimiento
>> en vbscript, quiero por ejemplo hacer un movenext, o acceder a su
>> contenido.
>> como puedo hacerlo??
>> gracias.
>

probando probando no consigo nada, no entiendo por que pones
Request.Form("pp")-1
y no veo claro donde poner el codigo eset ultimo, tendria que poner
tambien un formulario para englobar los dos submit, y que action le
pondria, la misma pagina??
gracias.

On Sun, 23 May 2004 16:39:39 -0500, "Sashka"
wrote:

Mostrar la cita

Efectivamente... disculpa...

if instr(Request.Form("ir"), "Ante") then
page=Request.Form("pp") -1
elseif instr(Request.Form("ir"), "imo") then
page=Request.Form("pp") +1
end if

Sashka
MS MVP Access

"juan" escribió en el mensaje
news:
Mostrar la cita

solo consigo que me enseñe una.
le doy al boton que pone y no hace nada, supongo que en este codigo
faltara el codigo para los botones anterior y poximo.


On Sun, 23 May 2004 10:47:08 -0500, "Sashka"
wrote:

>En vbscript... del lado del servidor... es decir en asp... una vez que la
>pagina llegó al cliente no hay forma que tengas acceso al recordset...
>Lo que puedes hacer es trabajar con un recordset paginado más o menos
>así:
>
> Dim mostrar,cant_paginas ,pagina_actual, page
> Dim objConn, objRS, strProvider, SQL
>
> mostrar = 10 ' cantidad de registros por página (puede modificarse a 1

por
Mostrar la cita

>ejemplo)
> CadenaConn ="tu cadena de conexion"
> Set objConn = Server.CreateObject("ADODB.Connection")
> Set objRS = Server.CreateObject("ADODB.Recordset")
> objConn.Open CadenaConn
> ' IF para saber que página mostrar
> If page = "" Then
> page=1
> pagina_actual = 1
> Else
> pagina_actual = CInt(page)
> page=pagina_actual
> End If
> SQL = "tu SQL"
>
> ObjConn.CursorLocation = 2
> ObjRS.PageSize = mostrar
> ObjRS.CacheSize = mostrar
> ObjRS.Open SQL, ObjConn, 3,1
> cant_paginas = ObjRS.PageCount
> If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
> If pagina_actual < 1 Then pagina_actual = 1
> If cant_paginas <> 0 Then
> ObjRS.AbsolutePage = pagina_actual
>
>Aca haces lo que tienes que hacer... pintar una tabla... las imagenes o

lo
Mostrar la cita

>que sea...
>
> objRS.Close
> objConn.Close
> If pagina_actual > 1 Then %>
> <input type="submit" name="ir" value="Anterior">
><% End If
>If pagina_actual < cant_paginas Then
>%>
> <input type="submit" name="ir" value="Proximo">
><% End If %>
>
>Sashka
>MS MVP Access
>
>"juan" escribió en el mensaje
>news:
>> hago la misma pregunta de otra forma aver si asi teneis respuesta.
>>
>> tengo un recordset en asp, y quiero manipularle desde un procedimiento
>> en vbscript, quiero por ejemplo hacer un movenext, o acceder a su
>> contenido.
>> como puedo hacerlo??
>> gracias.
>