Actualizar Varios Registros con un Boton Submit

[darkmcloud]

Buenas amigos de foros del web.....tengo el siguiente problema que no puedo resolver : necesito hacer una actualizacion de varios registros en forma simultanea...asi se ve el formulario :


la idea mia es que al ir cambiando los "valores" de "descripcion" y precio se realice una actualizacion en forma multiple tomando como valor a modificar el campo "codigo"...no se ....a traves de un bucle for tal vez...pero no se como hacer algo asi.....alguien podria darme una idea de como hacer algo asi ??
De antemano muchas gracias

[Myakire]

No esta nada complicado ...

Una forma sería colocando el mismo nombre para todos los controles de clave, el mismo para los de descripción y el mismo para los de precio

De esta forma recibirías tres cadenas con todos los valores separados por comas, por ejemplo el de Clave te llegaría así: "0124578, 3245787, 7845126, 9865324, 3245781"

Entonces teniendo esas cadenas los conviertes en arreglos con un SPLIT y recorres el de claves para hacer el update en un ciclo

vecClaves = split(request("Claves"),",")
vecDescripciones = split(request("Descripciones"),",")
vecPrecios = split(request("Precios"),",")
for i=0 to UBound(vecClaves)-1
cmd.execute "update table set descripcion = '" & vecDescripciones(i) & "', precio = " & vecPrecios(i)
next

Claro que debes de validar que no te manden campos del formulario vacíos, por ejemplo, para que coincidan el número de elementos de las tres cadenas; que no tenga deshabilitado el javascript, etc, etc

La idea es esa.

Puedes hacerlo de otras formas, esta es solo una alternativa

saludos

[darkmcloud]

primero que todo gracias por tu pronta respuesta Myakire, y bueno, como dices los nombres de clave (o codigo), descripcion y precio tienen el mismo nombre en el formulario....de hecho este es el codigo de ese formulario :

Código asp:

<%
 
    
set Cnn=Server.CreateObject("ADODB.Connection")
    set rs=Server.CreateObject("ADODB.Recordset")
    Cnn.Open Session("cnx")
 
 
strSQL = "SELECT * FROM FACPVAL "
 
set rs = Cnn.Execute(strSQL)
         
        
%>
 
 
<form name="frmClientes" method="post" action="validar_factura.asp">
 <table >
 
<tr>    
<td width="201" height="32">Código</td>
<td width="465"> Descripcion: </td>
<td width="289">Precio Costo:</td>
 
<tr>
 
<%do  while not rs.EOF %>
<td width="201" >
<input name="codigo" value="<%=RS.Fields("codigo")%>" size=12 > </td>
         
<td width="465">
<input name="detalle" value="<%=RS.Fields("detalle")%>" size=40></td>
 
<td width="289">
<input  name=precio value="<%=RS.Fields ("precio")%>"  ></td>
   </tr> 
 
<%rs.MoveNext 
      loop
      %>
 
    <tr>
        
<td >
       
<input id=submit1 type=submit value=Aceptar name=submit1>
 
         </div></td>
      </tr>
    </table>
  </div>
</FORM>
 

y bueno...al recibir los datos los estaba haciendo asi :

validar_factura.asp

Código asp:

<%
 
if Not IsEmpty(Request.Form("codigo")) then
     codigo = Request.Form("codigo")
  
    codigo = "'" & replace(codigo,",","','") & "'"
 
end if
 
if Not IsEmpty(Request.Form("detalle")) then
     detalle = Request.Form("detalle")
  end if
 
if Not IsEmpty(Request.Form("precio")) then
     precio = Request.Form("precio")
  end if
 
 
set Cnn = Server.CreateObject("ADODB.Connection") 
set rs = Server.CreateObject ("ADODB.Recordset")
Cnn.Open Session("cnx")
 
 
strSQL = "UPDATE FACPVAL set descripcion =("&detalle&"), precio = ("&precio&")  where codigo in ("&codigo&")"
 
 
RESPONSE.WRITE (strSQL)
 
%>
 

y Bueno...al imprimir en pantalla la consulta me aparece esto :

Código PHP:

  UPDATE FACPVAL  
set descripcion =(BANDEJA EVAPORACION EMBRACO, CT ALIM PLACA 1 R15), precio = (1901, 766)  
where codigo in ('001251082',' 009232214')  
   

Y bueno...en el ejemplo que tu colocas del split no veo la clausula WHERE....sera que no va ??? aps....y siempre los datos de los 3 campos vienen llenos....(ya controlo en otro formulario eso....)

[Myakire]

ups!, sorry, (¿no te digo Shiryu ?) se me pasó ese "pequeño" detalle del WHERE

No vi a detalle tu código pero por esa instrucción UPDATE que pones veo que no estas haciendo el ciclo que puse en mi ejemplo, con ese ciclo se ejecuta por cada una de claves una instrucción UPDATE; prúebalo.

Saludos

[Shiryu_Libra]

Iniciado por Myakire

ups!, sorry, (¿no te digo Shiryu ?) se me pasó ese "pequeño" detalle del WHERE

....

Siiiiii Senseeeeiiii

Comprendo la sabidirudira que Oszzz muestra



Ohhh Waaa u saiiii.... ohhh Wha u sayyyy

[darkmcloud]

compadre Myakire....creo que vamos bien....este es el nuevo codigo :

Código asp:

<%
 
if Not IsEmpty(Request.Form("codigo")) then
     codigo = Request.Form("codigo")
 
     codigo = "'" & replace(codigo,",","','") & "'"
 
end if
 
if Not IsEmpty(Request.Form("detalle")) then
     detalle = Request.Form("detalle")
  end if
 
if Not IsEmpty(Request.Form("precio")) then
     precio = Request.Form("precio")
  end if
 
 
set Cnn = Server.CreateObject("ADODB.Connection") 
set rs = Server.CreateObject ("ADODB.Recordset")
Cnn.Open Session("cnx")
 
 
vecClav = split(request("codigo"),",")
vecDesc = split(request("detalle"),",")
vecPrec = split(request("precio"),",")
for i=0 to UBound(vecClav)-1
 
Cnn.execute "update FACPVAL set detalle = '" & vecDesc(i) & "', precio = '" & vecPrec(i)&"' where codigo = '"& vecClav(i)&"' "
next
 
 
%>
 

el problema es que aun cuando le mando 2 registros distintos (con 2 codigos) solo me realiza el update en el primer registro y no en el segundo....ya hice un response.write y estoy seguro que el formulario recibe correctamente esos 2 valores....que podra ser ??

[Myakire]

el problema es que aun cuando le mando 2 registros distintos (con 2 codigos) solo me realiza el update en el primer registro y no en el segundo

Quítale el -1 al for i=0 to UBound(vecClav)-1

Saludos

[darkmcloud]

compadre....
ahora el codigo quedo asi :

Código asp:

<%
 
if Not IsEmpty(Request.Form("codigo")) then
     codigo = Request.Form("codigo")
      codigo = "'" & replace(codigo,",","','") & "'"
 
end if
 
 if Not IsEmpty(Request.Form("detalle")) then
     detalle = Request.Form("detalle")
    detalle = "'" & replace(detalle,",","','") & "'"
end if
 
if Not IsEmpty(Request.Form("precio")) then
     precio = Request.Form("precio")
    precio = "'" & replace(precio,",","','") & "'"
end if
 
set Cnn = Server.CreateObject("ADODB.Connection") 
set rs = Server.CreateObject ("ADODB.Recordset")
Cnn.Open Session("cnx")
 
 
vecClav = split(request("codigo"),",")
vecDesc = split(request("detalle"),",")
vecPrec = split(request("precio"),",")
for i=0 to UBound(vecClav)
 
strSQL=  "update FACPVAL set detalle = '"&vecDesc(i)&"', precio = '"&vecPrec(i)&"' where codigo = '"&vecClav(i)&"' "
 
set rs = Cnn.Execute(strSQL)
next
 
%>
 

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:

update FACPVAL set detalle = 'bandeja embraco', precio = '60' where codigo = '001251082' 
update FACPVAL set detalle = ' motor', precio = ' 6000' where codigo = ' 009232214'
 

[JuanRAPerez]

tock tock

saludos a todos

quizas sea este espacio antes de el codigo ' 009232214'

quizas por eos no actualiza

[darkmcloud]

pero que sera....analizando el codigo en el primer registro esta bien hecha la consulta...no asi en el segundo que como dice JuanRa Pérez esta ese espacio en codigo ' 009232214'...tratare de pensar que es lo que genera ese error en el segundo pero no en el primer registro....
Mirando mas el response.write tambien pasa:

update FACPVAL set detalle = ' motor', precio = ' 6000' where codigo = ' 009232214'
o sea al parecer al separar el split le agrega a cada valor el espacio...no entiendo mucho de split....

[Myakire]

Bueno, el espacio lo quitas con un TRIM, eso no es problema:


strSQL= "update FACPVAL set detalle = '"&trim(vecDesc(i))&"', precio = '"&trim(vecPrec(i))&"' where codigo = '"&trim(vecClav(i))&"' "

Salud!2

[darkmcloud]

compadre.....para concluir....el trim hizo el milagro!!!
El Codigo funciona al 100%
Muchas Gracias Y Hasta Pronto