Problemas con Open y Close

Calamar01 · #1 (**permalink**) 03/02/2006, 07:40

En este codigo me da el error ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed. y tambien con Open cuando lo abro. que podra ser...

[ASP]
.
.
.

sqlseleccion="Select * from tjugadores where equipo='"&session("equipo")&"' and titular is not null order by titular ASC"

rs4.Open sqlseleccion, Conn

%>
<body>
<% n=1 %>
<% do while (n < 5) and not rs4.Eof
if rs4("titular")<> cint(n) then
sqluno="update tjugadores set titular = " & cint(n) & " where cambio='x' and equipo='"&session("equipo")&"'"
sqluno1="update tjugadores set reserva = null WHERE cambio='x' and equipo='"&session("equipo")&"'"
sqluno2="update tjugadores set lesionado = null WHERE cambio='x' and equipo='"&session("equipo")&"'"

rs4.Open sqluno
rs4.Open sqluno1
rs4.Open sqluno2
Exit Do
end if
rs4.movenext
n = n + 1
loop

%>

[/ASP]

mc_quake · #2 (**permalink**) 03/02/2006, 07:50

al parecer es donde el problema esta en la apretura del recordset
te recomiendo que lo hagas asi
<%
set rs1 = Conn.execute("Select * from tjugadores where equipo='"&session("equipo")&"' and titular is not null order by titular ASC")

response.write"<body>"
n=1
do while (n < 5) and not rs4.Eof

if rs4("titular")<> cint(n) then
set rs1 = Conn.execute("update tjugadores set titular = " & cint(n) & " where cambio='x' and equipo='"&session("equipo")&"'")
set rs2 = Conn.execute("update tjugadores set reserva = null WHERE cambio='x' and equipo='"&session("equipo")&"'")
set rs3 = Conn.execute("update tjugadores set lesionado = null WHERE cambio='x' and equipo='"&session("equipo")&"'")
end if
n = n + 1
aca mueves el RS con un MoveNext

loop

%>

Calamar01 · #3 (**permalink**) 03/02/2006, 08:06

Gracias por la ayuda, aunque aun me siguen saliendo los mismos errores.
Me gustarioa poder hacerlo con rs.Open sqltxt , pero veo que no hay manera.

Un saludo.

FiNo · #4 (**permalink**) 03/02/2006, 08:53

Buenas a ver si te funciona esto:

sql="update tjugadores set titular = " & cint(n) & ", reserva = null, lesionado = null "&_
" where cambio='x' and equipo='"&session("equipo")&"'"
Conn.Execute(SQL)

Myakire · #5 (**permalink**) 03/02/2006, 09:19

Cita:

Operation is not allowed when the object is closed

¿que linea exactamente te manda el error?

Calamar01 · #6 (**permalink**) 03/02/2006, 09:30

Hola mirar, tengo este codigo pero SIEMPRE me coge el valor 1.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath ("ligaACB.mdb")
set rs4 = CreateObject("ADODB.Recordset")
sql3="update tjugadores set lesionado = null WHERE cambio='x' and equipo='"&session("equipo")&"'"
sql4="update tjugadores set reserva = null WHERE cambio='x' and equipo='"&session("equipo")&"'"
sqlb="update tjugadores set cambio=null WHERE cambio='x' and equipo='"&session("equipo")&"'"
sqlseleccion="Select * from tjugadores where equipo='"&session("equipo")&"' and titular is not null order by titular ASC"

rs4.Open sqlseleccion, Conn
%>
<body>
<% n=1 %>
<% do while not rs4.eof

if rs4("titular")<> cint(n) then
rs4.close
sqluno="update tjugadores set titular = " & cint(n) & " , reserva=null , lesionado=null where cambio='x' and equipo='"&session("equipo")&"'"
rs4.open sqluno
Exit Do
end if
rs4.movenext
n = n + 1
loop

%>

Gracias por vuestra ayuda.

Myakire · #7 (**permalink**) 03/02/2006, 09:40

A ver ..... ¿cuál es la pregunta original?, ya me perdí

tammander · #8 (**permalink**) 03/02/2006, 11:24

Veamos... Deja un momento que te ordene el código...

Código:

sqlseleccion="Select * from tjugadores where equipo='" & session("equipo") & "' and titular is not null order by titular ASC"

rs4.Open sqlseleccion, Conn

%>
<body>
<% 
n=1 
do while (n < 5) and not rs4.Eof
   if cint(rs4("titular")) <> n then
       sqluno="update tjugadores set titular = " & cint(n) & ", set reserva = null, lesionado = null where cambio='x' and  equipo='" & session("equipo") & "'"

       ' rs4.Open sqluno --> No puedes usar un objeto abierto, crea otro ó
       conn.execute sqluno
       Exit Do
   end if
   rs4.movenext
   n = n + 1
loop
rs4.close
set rs4 = nothing

Antes usabas un recordset ya abierto para actualizar un registro. O creas dos recordset (uno para el select y otro para el update) o bien un recordset para el select y un command para el update.

Un saludo

Calamar01 · #9 (**permalink**) 03/02/2006, 18:32

Muchiiiiiiiiiiiiisimas gracias. El codigo funciona muy bien, eso del conn.execute maravilloso.