Ver Mensaje Individual
  #2 (permalink)  
Antiguo 30/10/2009, 10:57
Avatar de Myakire
Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
Respuesta: Update de varios registros da error...ayuda

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

Código ASP:
Ver original
  1. <&#37;
  2. dim conn
  3.  
  4. set conn = server.CreateObject("ADODB.Connection")
  5. conn.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\wremota\syphos.mdb"
  6.  
  7. set rs2= conn.execute ("select * from ttecnicas")
  8.  
  9. dim x
  10. dim xnensayo, xtecnica, xprocedimiento, xresultado, xincertidumbre, xusuario
  11. x = 0
  12.  
  13. do while not rs2.eof
  14.    xnensayo       = session("nensayo")
  15.    xtecnica       = rs2 ("tecnica")
  16.    xprocedimiento = rs2 ("procedimiento")
  17.  
  18.    xresultado     = request.Form("resultado" & x)
  19.    xincertidumbre = request.Form("incertidumbre" & x)
  20.    xusuario       = session("usuario")
  21.  
  22.    conn.Execute("UPDATE tdetalletecnicas set nensayo='" & xnensayo & "', tecnica='" & xtecnica & "', procedimiento='" & xprocedimiento & "', resultado='" & xresultado & "', incertidumbre='" & xincertidumbre & "', usuario='" & xusuario & "' where nensayo='" & xnensayo & "'")
  23.  
  24.    rs2.movenext
  25.    x = x + 1
  26. loop
  27. conn.close
  28. %>

saludos