Como actualizar BD segun checkbox seleccionado
mirck
09 de Noviembre del 2004
hola! mi problema es ke tengo una tabla y kada renglon con un checkbox, aparte tengo un listbox, y kiero ke dependiendo del checkbox ke tenga seleccionado actualice el registro kon el valor del listbox, si alguien me puede ayudar!!!!, muchas gracias, zas.
Santos Pairazam?
09 de Noviembre del 2004
Aqui tienes algo que te pueda Guiar - esto muesta los registros chequeados de un listado.
En este caso estoy poniendo el mismo Nombre Chequeado a cada Check que se genere, creando asi un arreglo de Checks, además creo un arreglo de textBox para almacenar los nombres de productos.
<%S=0%>
<% Do while (not RsProductos.EOF)%>
<Input Type="Checkbox" Name="Chequeado<%=cstr(s)%>" value="<%=RsProductos("CodProducto")%>"></td>
<Input Name="Productos<%=cstr(s)%>" value="<%=RsProductos("Producto")%>"></td>
<% RsProductos.MoveNext
s=s+1
loop%>
Dentro del Html estoy poniendo un campo hidden para ocultar la cantidad de registros.
<input type="hidden" name="Nro_Registros" value="<%=S%>">
Para recoger los valoress:
Nro_Registros= cint(Request.form("Nro_Registros"))
Dim Seleccionados()
'creo una matriz y luego la redimenciono de acuerdo al nro de registros.
Redim Seleccionados(Nro_Registros-1,1)
For P=0 to Nro_Registros-1
'Almaceno los datos recogidos en el arreglo.
'Aqui puedes hacer que se almacene el dato de cada item en el listboc me imagino que debe tener las misma cantidad de registros.
Seleccionados(P,0)=Request.Form("Chequeado"&P)
Seleccionados(P,1)=Request.Form("Productos"&P)
Next
for S=0 to ubound(Seleccionados)
'si es diferente de vacio indica que ha sido seleccionado. y muestro los valores
' En lugar de esta línea aqui puedes hacer los insert a que te refieres.
if Seleccionados(s,0)<>"" then
%>
<html>
<body>
<form name=frmMostrar>
<input name="Seleccionados" value="<%=Seleccionados(s,0)%>">
%
Hasta Pronto.
Lima - Perú
En este caso estoy poniendo el mismo Nombre Chequeado a cada Check que se genere, creando asi un arreglo de Checks, además creo un arreglo de textBox para almacenar los nombres de productos.
<%S=0%>
<% Do while (not RsProductos.EOF)%>
<Input Type="Checkbox" Name="Chequeado<%=cstr(s)%>" value="<%=RsProductos("CodProducto")%>"></td>
<Input Name="Productos<%=cstr(s)%>" value="<%=RsProductos("Producto")%>"></td>
<% RsProductos.MoveNext
s=s+1
loop%>
Dentro del Html estoy poniendo un campo hidden para ocultar la cantidad de registros.
<input type="hidden" name="Nro_Registros" value="<%=S%>">
Para recoger los valoress:
Nro_Registros= cint(Request.form("Nro_Registros"))
Dim Seleccionados()
'creo una matriz y luego la redimenciono de acuerdo al nro de registros.
Redim Seleccionados(Nro_Registros-1,1)
For P=0 to Nro_Registros-1
'Almaceno los datos recogidos en el arreglo.
'Aqui puedes hacer que se almacene el dato de cada item en el listboc me imagino que debe tener las misma cantidad de registros.
Seleccionados(P,0)=Request.Form("Chequeado"&P)
Seleccionados(P,1)=Request.Form("Productos"&P)
Next
for S=0 to ubound(Seleccionados)
'si es diferente de vacio indica que ha sido seleccionado. y muestro los valores
' En lugar de esta línea aqui puedes hacer los insert a que te refieres.
if Seleccionados(s,0)<>"" then
%>
<html>
<body>
<form name=frmMostrar>
<input name="Seleccionados" value="<%=Seleccionados(s,0)%>">
%
Hasta Pronto.
Lima - Perú