La operación no está permitida si el objeto está abierto

[LluviaRamirez]

Hola, estoy haciendo una actualizacion de datos a una tabla y me manda el error de La operación no está permitida si el objeto está abierto, por lo que cierro el objeto antes de cerrar mi ciclo while, pero entonces me envia el error de "El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual."


<%
Dim rsFact, sqlFact
Dim rsFact_numRows
Set rsFact = Server.CreateObject("ADODB.Recordset")
rsFact.ActiveConnection = MM_ConFactura_STRING
rsFact.Source = "SELECT * FROM dbo.Factura WHERE Bandera='" & 0 & "'"
rsFact.CursorType = 0
rsFact.CursorLocation = 2
rsFact.LockType = 1
rsFact.Open()

rsFact_numRows = 0
%>
<%
Dim cmdUpDate, sqlUp
Set cmdUpDate = Server.CreateObject("ADODB.Command")

Dim rsCMKArt
Dim rsCMKArt_numRows
Set rsCMKArt = Server.CreateObject("ADODB.Recordset")

dim vardesc
While (NOT rsFact.EOF) %>
<%
vardesc= rsFact("Descripcion")
rsCMKArt.ActiveConnection = MM_ConD84_STRING
rsCMKArt.Source = "SELECT * FROM dbo.Articulos Where Descripcion = '" & vardesc & "'"
rsCMKArt.CursorType = 0
rsCMKArt.CursorLocation = 2
rsCMKArt.LockType = 1
rsCMKArt.Open()

rsCMKArt_numRows = 0
response.Write(rsCMKArt("Clave"))

sqlUp = "UPDATE Factura Set ClaveArtCMK= ' " & rsCMKArt("Clave") &" ' Where Articulo=' " & rsFact("Articulo") & " ' "
Set cmdUpDate = Server.CreateObject("ADODB.Command")
cmdUpDate.ActiveConnection = MM_ConFactura_STRING
cmdUpdate.CommandType = 1
cmdUpDate.CommandText = sqlUp
cmdUpDate.Execute
%>
<%
rsCMKArt.MoveNext()
' rsCMKArt.Close
rsFact.MoveNext()
Wend
%>

[Myakire]

¿Tienes el access abierto?

[LluviaRamirez]

te refieres al rs abierto? si, si lo tengo abierto, pero si lo cierro entonces me manda el mensaje de EOF, tienes idea de por que? o mas bien como puedo solucionarlo, lo que tengo que hacer es recorrer el rs para ir actualizando el campo de clave.

[AlZuwaga]

El problema es que por cada vuelta de "rsFact", abrís el recordset "rsCMKArt". Y, como bien dice el error: "La operación no está permitida si el objeto está abierto" (osea que no podés abrir algo que ya está abierto).

Y... bueno, no entendí del todo tu código, pero la verdad que no me gusta nada... "me suena" a que lo mismo lo podés hacer de otra manera.. sin anidar esos recordsets.

[LluviaRamirez]

Gracias por tu respuesta, pero no se como poner el codigo de tal forma para no anidar los recordsets, o como podría poner el abrir el rsCMKArt fuera de mi ciclo While?
ya que mi intencion es comparar 2 datos iguales que estan guardados en diferentes BD, alguna sugerencia?
Gracias

[LluviaRamirez]

Listo ya quedo,
trate de arreglarlo un poco con tus comentarios pero no supe como mejorarlo :) pero con lo que hice me funciono, aunque si saben de como hacer el recorrido de rs de diferente forma se los agradecere, ya que por lo que veo voy a utilizar mucho esto.
gracias.
El codigo quedo asi:
<%
Dim rsFact, sqlFact
Dim rsFact_numRows
Set rsFact = Server.CreateObject("ADODB.Recordset")
rsFact.ActiveConnection = MM_ConFactura_STRING
rsFact.Source = "SELECT * FROM Factura WHERE Bandera='" & 0 & "'"
rsFact.CursorType = 0
rsFact.CursorLocation = 2
rsFact.LockType = 1
rsFact.Open()

rsFact_numRows = 0
%>
<%
Dim cmdUpDate, sqlUp
Set cmdUpDate = Server.CreateObject("ADODB.Command")

Dim rsCMKArt
Dim rsCMKArt_numRows

dim vardesc
While (NOT rsFact.EOF)

vardesc= rsFact("Descripcion")
response.Write(vardesc)
response.Write("<BR>")
Set rsCMKArt = Server.CreateObject("ADODB.Recordset")
rsCMKArt.ActiveConnection = MM_ConD84_STRING
rsCMKArt.Source = "SELECT * FROM Articulos Where Descripcion = '" & TRIM(rsFact("Descripcion")) & "'"
rsCMKArt.CursorType = 0
rsCMKArt.CursorLocation = 2
rsCMKArt.LockType = 1
rsCMKArt.Open()


if Not rsCMKArt.EOF then
sqlUp = "UPDATE Factura Set ClaveArtCMK= ' " & rsCMKArt("Clave") &" ' Where Descripcion='" & TRIM(rsFact("Descripcion")) & " ' "
cmdUpDate.ActiveConnection = MM_ConFactura_STRING
cmdUpdate.CommandType = 1
cmdUpDate.CommandText = sqlUp
cmdUpDate.Execute
else
response.Write("no encontro el articulo en la tabla articulos")
response.Write("<BR>")
sqlUp = "UPDATE Factura Set ClaveArtCMK= ' 00000 ' Where Descripcion='" & TRIM(rsFact("Descripcion")) & " ' "
cmdUpDate.ActiveConnection = MM_ConFactura_STRING
cmdUpdate.CommandType = 1
cmdUpDate.CommandText = sqlUp
cmdUpDate.Execute

end if

rsFact.MoveNext
Wend %>