Ver Mensaje Individual
  #8 (permalink)  
Antiguo 23/12/2008, 08:49
darkmcloud
 
Fecha de Ingreso: octubre-2007
Mensajes: 191
Antigüedad: 17 años, 7 meses
Puntos: 0
Respuesta: Actualizar Varios Registros con un Boton Submit

compadre....
ahora el codigo quedo asi :

Código asp:
Ver original
  1. <%
  2.  
  3. if Not IsEmpty(Request.Form("codigo")) then
  4.      codigo = Request.Form("codigo")
  5.       codigo = "'" & replace(codigo,",","','") & "'"
  6.  
  7. end if
  8.  
  9.  if Not IsEmpty(Request.Form("detalle")) then
  10.      detalle = Request.Form("detalle")
  11.     detalle = "'" & replace(detalle,",","','") & "'"
  12. end if
  13.  
  14. if Not IsEmpty(Request.Form("precio")) then
  15.      precio = Request.Form("precio")
  16.     precio = "'" & replace(precio,",","','") & "'"
  17. end if
  18.  
  19. set Cnn = Server.CreateObject("ADODB.Connection")
  20. set rs = Server.CreateObject ("ADODB.Recordset")
  21. Cnn.Open Session("cnx")
  22.  
  23.  
  24. vecClav = split(request("codigo"),",")
  25. vecDesc = split(request("detalle"),",")
  26. vecPrec = split(request("precio"),",")
  27. for i=0 to UBound(vecClav)
  28.  
  29. strSQL=  "update FACPVAL set detalle = '"&vecDesc(i)&"', precio = '"&vecPrec(i)&"' where codigo = '"&vecClav(i)&"' "
  30.  
  31. set rs = Cnn.Execute(strSQL)
  32. next
  33.  
  34. %>


y pasa lo mismo.... no se que mas puedo hacer...probe cambiar

solo me actualiza el primer campo y el segundo nada....no cambia ningun valor.


Ademas pasa algo extraño...ahora al hacer un response.write (strSQL) me aparece asi la consulta :



Código asp:
Ver original
  1. update FACPVAL set detalle = 'bandeja embraco', precio = '60' where codigo = '001251082'
  2. update FACPVAL set detalle = ' motor', precio = ' 6000' where codigo = ' 009232214'

Última edición por darkmcloud; 23/12/2008 a las 10:39