El conjunto de filas no admite recuperación hacia atrás

[RossanaIsabel]

Buenas este código me da el error: El conjunto de filas no admite recuperación hacia atrás.. Cómo puedo hacer para que acepte recuperación hacia atrás, gracias

<%
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base_datos.mdb"))

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM chat"
set rs= conexion.execute(sql)
%>

<table>
<tr><td>
<% rs.MoveLast %>

<%
n=0
Do while (n < 10) %>
<B>> </B><%=RS("comentarios")%><BR>
<%
RS.MovePrevious ()
n=n+1
Loop
%>

[Bravenap]

Has de definir el modo en que se mueve el cursor por el Recordset.

Código:

<%
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base_datos.mdb")) 

Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset  ' Por defecto adOpenForwardOnly (sólo hacia adelante)
SQL = "SELECT * FROM chat"
set rs= conexion.execute(sql)
%>

Un saludo.

[RossanaIsabel]

Hola
coloque la instrucción, pero ahora me da el error no se adminte la operación si el objeto está abierto

Saludos

[AlZuwaga]

Cambiá:

set rs= conexion.execute(sql)

Por:

Rs.Open sql, conexion

[Bravenap]

Hola Al Zuwaga. ¿No habrá que añadir los dichosos numeritos que corresponden a LockType y CursorType? Ya sabes:

RS.Open sql, conexion 2,3

¿o se omiten por defecto?

Un saludo.

[AlZuwaga]

Esteeeee... pero si ya lo define antes:

rs.CursorType = adOpenKeyset

Si no me equivoco, Con eso estaría

[Bravenap]

Ah claro, je je. Pensé que la modificación que le indicaste también incluía omitir la definción de tipos.

Bueno, pues nada, ya tá resueto.

Un saludo.

[RossanaIsabel]

Hice las correciones, pero igual sigue dando el error de El conjunto de filas no admite recuperación hacia atrás.

<%
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base_datos.mdb"))

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM chat"

rs.Open sql, conexion, 3,3
rs.CursorType = adOpenKeyset %>

<table>
<tr><td>
<% rs.MoveLast %>

<%
n=0
Do while (n < 10) %>
<B><% =request.cookies("USUARIO") %>> </B><%=RS("comentarios")%><BR>
<%
RS.MovePrevious ()
n=n+1
Loop
%>

Saludos

[RossanaIsabel]

Gracias ahora funciona

Saludos

[durkis]

Por favor escribe el codigo con el que funciono