Update de varios registros da error...ayuda

[lasonia]

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.

[Myakire]

Le hice algunos cambios, el recordSet RS no lo ocupabas para nada, el UPDATE no necesita ser enviado a un recordSet

Código ASP:

<&#37;
dim conn
 
set conn = server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\wremota\syphos.mdb"
 
set rs2= conn.execute ("select * from ttecnicas")
 
dim x
dim xnensayo, xtecnica, xprocedimiento, xresultado, xincertidumbre, xusuario
x = 0
 
do while not rs2.eof
   xnensayo       = session("nensayo")
   xtecnica       = rs2 ("tecnica")
   xprocedimiento = rs2 ("procedimiento")
 
   xresultado     = request.Form("resultado" & x)
   xincertidumbre = request.Form("incertidumbre" & x)
   xusuario       = session("usuario")
 
   conn.Execute("UPDATE tdetalletecnicas set nensayo='" & xnensayo & "', tecnica='" & xtecnica & "', procedimiento='" & xprocedimiento & "', resultado='" & xresultado & "', incertidumbre='" & xincertidumbre & "', usuario='" & xusuario & "' where nensayo='" & xnensayo & "'")
 
   rs2.movenext
   x = x + 1
loop
conn.close
%>
 

saludos

[lasonia]

He probado, en el formulario capturo cinco registros y me los actualiza todos con la información de la última línea (registrro).

Por eso necesito que el uptade de la tabla se mueva secuencialmente por cada actualización, hay un campo autonumérico que no sale en el código que es Iddetalle (clave principal de tdetalletecnicas.

Esta dificil el tema.

Gracias.

[JuanRAPerez]

has probnado el codigo de Myakire

¿?

[Myakire]

No he revisado la lógica de tu código, solo "lo arreglé" para que no tronara...

Pero a golpe de vista, la lógica esta mal, ya que tu condición where es siempre la misma -> xnensayo = session("nensayo"), por eso no te actualiza más que uno solo

debes de hacer una prueba de escritorio de tu código para corregir eso

[lasonia]

Solucionado, lo cierto es que me faltaba comparar otro campo ya que nensayo no cambia y por eso actualizaba lomiso.

Así queda la actualización.

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

GRACIAS A TODOS.