hola nuevamente voy directo al grano.
quisiera tomar el registro anterior de la base de dato, es decir, coloco una condicion y si esa condicion es verdadera que el registro anterior se guardara en una variable aux. e creado el siguiente codigo pero me sale el siguiente error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E24)
Rowset does not support fetching backward.
/minera/prueba.asp, line 15
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<!--#include file="conectar.asp"-->
<%
periodo1 = "2003 06"
periodo2 = "2003 06"
set rs=createobject("ADODB.Recordset")
periodo = "SELECT * FROM periodo order by periodo"
rs.open periodo,Connae
do while not rs.eof
if periodo1 = rs("periodo") then
rs.MovePrevious <-- esta es la linea 15
periodo_anterior1 = rs("id_periodo")
Exit do
end if
rs.MoveNext
loop
rs.MoveFirst
do while not rs.eof
if periodo2 = rs("periodo") then
rs.Move -1
periodo_anterior2 = rs("id_periodo")
Exit do
end if
rs.MoveNext
loop
response.Write(periodo1&" ----- "&periodo2&"<br>")
response.Write(periodo_anterior1&" ----- "&periodo_anterior2)
%>
el la base de dato queda ordenado de la siguiente forma:
id_periodo peirodo
52 0000 01
45 2003 06
46 2004 05
15 2004 15
... ........
