Ver Mensaje Individual
  #1 (permalink)  
Antiguo 30/10/2009, 10:38
lasonia
 
Fecha de Ingreso: octubre-2009
Mensajes: 6
Antigüedad: 15 años, 5 meses
Puntos: 0
Update de varios registros da error...ayuda

Estoy tratando de actualizar secuencialmente varios registros de una tabla, el caso es que para mostrar los resultados o cuando inserto no tengo problemas pero a la hora de actualizarlos da error, este es el código en cuestión:

<%
dim conn
dim rs

set conn = server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\wremota\syphos.mdb"
set rs=conn.execute ("select * from tdetalletecnicas where nensayo = '" & session("nensayo") & "' ORDER by Iddetalle ASC")

set conn2 = server.CreateObject("ADODB.Connection")
conn2.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\wremota\syphos.mdb"
set rs2=conn2.execute ("select * from ttecnicas")

dim x
dim xnensayo, xtecnica, xprocedimiento, xresultado, xincertidumbre, xusuario
x = 0

do while not rs2.eof
' muevo valores de ensayo y tabla ttecnicas
xnensayo = session("nensayo")
xtecnica = rs2 ("tecnica")
xprocedimiento = rs2 ("procedimiento")

' muevo valores capturados para tdetallestecnicas y usuario

xresultado = request.Form("resultado" & x)
xincertidumbre = request.Form("incertidumbre" & x)
xusuario = session("usuario")

Set rs = conn.Execute("UPDATE tdetalletecnicas set nensayo='" & xnensayo & "', tecnica='" & xtecnica & "', procedimiento='" & xprocedimiento & "', resultado='" & xresultado & "', incertidumbre='" & xincertidumbre & "', usuario='" & xusuario & "' where nensayo='" & xnensayo & "'")

rs2.movenext
rs.movenext '(esta es la línea 77)
x = x + 1
loop
conn2.close
conn.close
%>

Tipo de error:
ADODB.Recordset (0x800A0E78)
La operación no está permitida si el objeto está cerrado.
/guardamodhojatrabajo.asp, línea 77

GRACIAS DE ANTEMANO POR LA AYUDA.