Guardar registros de checkbox con rs a sql

[sirtorres]

Anexo encontraran el codigo de mis ASP lo que necesito es de una pagina que despliega informacion de SQL y muestro una serie de checkbox dependiendo de la cantidad de lineas de un pedido. hasta aqui no hay problema pero necesito actualizar la bd con los checkbox seleccionados en el RS. anexo los codigos y espero su ayuda.

PRIMER ASP
Dim Conex, Linea, IDPedido

if request.form("TxtPedido") <> "" then
'IDPedido = "'" & request.form("TxtPedido")& "'"
IDPedido = int(request.form("TxtPedido"))
' Response.Write(IDPedido)
Linea = 1
'Creamos el objeto de conexion ahora...
Set Conex = Server.CreateObject ("ADODB.Connection")

Conex.Open "driver={SQL Server};server=WEBVYCISA\SQLexpress; database=VYCPROD;uid=sa;pwd=Vycisa2010"

'response.Write("Conexion correcta")

set registros = Conex.execute("select fecha, codclien, pedido, cantidad, descripcion, detalle, estado, fechaact, observaciones from Produccion where pedido = ('"&IDPedido&"') and producto < 004000")

'set registros = Conex.execute("select fecha, codclien, pedido, cantidad, descripcion, detalle, estado, fechaact, observaciones from Produccion where pedido ='426896' and producto < 004000")

Do While Not registros.EOF
%>

UNA SERIE DE DATOS ..... CONTINUA
<tr>
<TD width="30" height="40"><div align="center" class="Estilo6"><font size="-2"><%= Linea %></font></div></TD>
<TD width="42" height="40"><div align="center"><strong><span class="Estilo8"><font size="-2"><%= registros.Fields("CODCLIEN").Value %></font></span></strong></div></TD>
<TD width="34"><div align="center"><strong><span class="Estilo8"><font size="-2"><%= registros.Fields("PEDIDO").Value %></font></span></strong></div></TD>
<TD width="32"><div align="center"><strong><span class="Estilo8"><font size="-2"><%= registros.Fields("CANTIDAD").Value %></font></span></strong></div></TD>
<TD width="34" class="Estilo3"><font size="-2"><%= registros.Fields("DESCRIPCION").Value %></font></font></TD>
<TD width="47"><div align="center" class="Estilo3"><font size="-2"><%= registros.Fields("detalle").Value %></font></font></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<tr>
<TD height="24" colspan="5"><div align="center" class="Estilo7">Observaciones</div></TD>
<TD colspan="24" class="Estilo6"><input name="observ" type="text" id="observ" size="150" />
</font></TD>
</TR>

<%
registros.MoveNext

Linea = Linea + 1
%>

<%
Loop
%>
<%
registros.Close

Set registros = Nothing

Conex.Close

Set Conex = Nothing


%>
</TABLE>
<%
Else
%>
<div align="center">

<span class="Estilo14"><a href="javascript:window.history.back();"> Teclea el numero de Pedido, Regresar AQUI</a>

</span></div>
<%
end if
%>


SEGUNDO ASP PARA ACTUALIZAR....

<%
dim conn,ssql,registros, Pedido,cantorecto,cantoforma,biselrecto,biselforma ,corte45,esqredondas,filosmuertos,taladros,avellan ado,saques,astrias,esqmatadas,plateado,pintura,sat inado,curvado,laminado,pegadouv,templado,cenefa,es merilado,pt,entrega

Pedido=request.form("IDpedido")
response.Write(Pedido)
'corte=request.Form("Corte")
cantorecto=request.Form("Cantorecto")
cantofoma=request.Form("Cantoforma")
biselrecto=request.Form("biselrecto")
biselforma=request.Form("biselforma")
corte45=request.Form("corte45")
esqredondas=request.Form("esqredondas")
filosmuertos=request.Form("filosmuertos")
taladros=request.Form("taladros")
avellanado=request.Form("avellanado")
saques=request.Form("saques")
astrias=request.Form("astrias")
esqmatadas=request.Form("esqmatadas")
plateado=request.Form("plateado")
pintura=request.Form("pintura")
satinado=request.Form("satinado")
curvado=request.Form("curvado")
Laminado=request.Form("Laminado")
PegadoUV=request.Form("PegadoUV")
Templado=request.Form("Templado")
Cenefa=request.Form("Cenefa")
Cenefa=request.Form("Esmerilado")
pt=request.Form("pt")
entrega=request.Form("entrega")

ssql=("update Produccion set Canto_recto='"& cantorecto &"', Canto_forma='"& CantoForma &"', Bisel_recto='"& BiselRecto &"', Bisel_forma= '"& BiselForma &"', corte_45='"& Corte45 &"', esq_redondas='"& EsqRedondas &"', Filos_Muertos='"& FilosMuertos &"', Taladros='"& Taladros &"', avellanado='"& Avellanado &"', saques='"& Saques &"', astrias='"& Astrias &"', esq_matadas='"& EsqMatadas &"', plateado='"& Plateado &"', Pintura='"& Pintura &"', Satinado='"& Satinado &"', Curvado='"& Curvado &"', Laminado='"& Laminado &"', Pegado_UV'"& PegadoUV &"', Templado='"& Templado &"', cenefa='"& Cenefa &"', esmerilado='"& Esmerilado &"', pt='"& PT &"', entrega='"& Entrega &"' where pedido = '"& Pedido &"'")
response.Write(ssql)
Set conn = Server.CreateObject ("ADODB.Connection")

conn.Open "driver={SQL Server};server=WEBVYCISA\SQLexpress; database=VYCPROD;uid=sa;pwd=Vycisa2010"

'set registros = conn.execute("update Produccion set Corte= '"& corte &"', Canto_recto='"& cantorecto &"',Canto_forma='"& CantoForma &"',Bisel_recto='"& BiselRecto &"',Bisel_forma= '"& BiselForma &"',corte_45='"& Corte45 &"',esq_redondas='"& EsqRedondas &"',Filos_Muertos='"& FilosMuertos &"',Taladros='"& Taladros &"',avellanado='"& Avellanado &"',saques='"& Saques &"',astrias='"& Astrias &"',esq_matadas='"& EsqMatadas &"',plateado='"& Plateado &"',Pintura='"& Pintura &"',Satinado='"& Satinado &"',Curvado='"& Curvado &"',Laminado='"& Laminado &"',Pegado_UV'"& PegadoUV &"',Templado='"& Templado &"',cenefa='"& Cenefa &"',esmerilado='"& Esmerilado &"',pt='"& PT &"',entrega='"& Entrega &"' where pedido = ('"&IDPedido&"')")

set registros = conn.execute(ssql)

'Set objRS = con.Execute(sql)
Do While Not registros.EOF
registros.MoveNext

Loop

registros.Close

Set registros = Nothing

conn.Close

Set conn = Nothing
%>

MUCHAS GRACIAS Y EN VERDAD ME URGE GRACIAS

[Javier01]

Buenas tardes,
No entiendo bien que es lo que necesitas.
Pero la forma de recorrer varios check y obtener cuales son los que están
tildados es la siguiente:

(todo en la misma pagina asp)

Código ASP:

Dim sTotalFilasRS, x, i
 
sTotalFilasRS = request("TotalFilasRS")
 
For x=1 to sTotalFilasRS
    response.write "<BR><B>Selec Linea" & x & "</B>: "
    For i=1 to Request("CheckboxLinea" & x).Count
        response.write Request("CheckboxLinea" & x)(i) & " "
    Next
Next
 

Código HTML:

<form>
<table>
    <tr>
        <td>FILA 1</td>
        <td><input type="checkbox" name="CheckboxLinea1" value="valor1"></td>
        <td><input type="checkbox" name="CheckboxLinea1" value="valor2"></td>
        <td><input type="checkbox" name="CheckboxLinea1" value="valor3"></td>
    </tr>
    <tr>
        <td>FILA 2</td>
        <td><input type="checkbox" name="CheckboxLinea2" value="valor1"></td>
        <td><input type="checkbox" name="CheckboxLinea2" value="valor2"></td>
        <td><input type="checkbox" name="CheckboxLinea2" value="valor3"></td>
    </tr>
</table>
<input type="submit" value="Enviar">
<input type="hidden" value="2" name="TotalFilasRS" id="TotalFilasRS">
</form>
 

En todo caso, aclara un poco tu pregunta y tal vez pueda ayudarte un poco mas.
Y te recomiendo no mostrar nunca tu cadena de conexión de la BD.

Saludos

[sirtorres]

gracias lo que necesito es guardar los checkbox seleccionados en el RS a SQL eso es todo es mi primer desarrollo y la verdad no se como hacerlo. gracias,.

[Javier01]

A ver si puedo dar un poco mas de ayuda.
Intente comentar el código pero deberás acomodar todo según tu BD.

Pagina 1 que muestra los datos:

Código ASP:

<%
    ' Suponiendo una tabla llamada TABLA con la estructura:
    ' CAmpoPK_ID    int     PK
    ' CampoChk1     bool
    ' CampoChk2     bool
    ' CampoChk3     bool
    
 
Dim sSQL, iLinea, rs, sCheckedCampo1, sCheckedCampo2, sCheckedCampo3
 
'/*Tomo los campos de la BD*/
sSQL=" SELECT CAmpoPK_ID, CampoChk1, CampoChk2, CampoChk3 FROM TABLA "
set rs = Conex.execute(sSQL)
%>
<form action="SegundoASP.asp" method="post" >
<table>
    <%
    '/*Recorro los campos*/
    Do While Not rs.EOF
        '/*Si el campo esta en true, guardo una variable con la palabra "checked" para luego colocarla en el check y que aparesca tildado*/
        If rs("CampoChk1") = true Then sCheckedCampo1 = "CHECKED"
        If rs("CampoChk2") = true Then sCheckedCampo2 = "CHECKED"
        If rs("CampoChk3") = true Then sCheckedCampo3 = "CHECKED"
        '/*En el value del check pongo el ID o clave primaria de la fila, para luego usarla en el Update*/
    %>
    <tr>
        <td>FILA <%=iLinea%></td>
        <td><input type="checkbox" <%=sCheckedCampo1%>  name="CampoChk1" value="<%=rs("CAmpoPK_ID")%>"></td>
        <td><input type="checkbox" <%=sCheckedCampo2%>  name="CampoChk2" value="<%=rs("CAmpoPK_ID")%>"></td>
        <td><input type="checkbox" <%=sCheckedCampo3%>  name="CampoChk3" value="<%=rs("CAmpoPK_ID")%>"></td>
    </tr>
    <%
        rs.MoveNext
        iLinea = iLinea + 1
    Loop
    %>
 
    
</table>
<input type="submit" value="Enviar">
</form>
 

Pagina 2 que actualiza:

Código ASP:

<%
 
Dim  i, iNumSelectedChk, sSQLUpdate, SelCampoChk1, SelCampoChk2, SelCampoChk3
 
'/*Obtengo la cantidad de checkbox tildados y los recorro. */
'Primero para el campo CampoChk1, luego para el CampoChk2, etc..*/
 
If FVal(Request("CampoChk1").count)>0 Then
    iNumSelectedChk = FVal(Request("CampoChk1").count)
    For i = 1 To iNumSelectedChk
        '/*guardo cada valor de los checkbox tildado (que es la clave primaria como habiamos dicho) en una variable, y le concateno una coma */
        SelCampoChk1 = SelCampoChk1 & FVal(Request("CampoChk1")(i)) & ","
    Next
    '/* la variable SelCampoChk1 deberia quedar algo como: "1,2,3,4," donde los numeros son el ID o clave primaria de la fila a actualizar. */
    '/* Elimino la ultima coma. */
    SelCampoChk1 = left(SelCampoChk1,len(SelCampoChk1)-1)
End If
 
'/* hago lo mismo que lo anterior para cada campo de la tabla.*/
If FVal(Request("CampoChk2").count)>0 Then
    iNumSelectedChk = FVal(Request("CampoChk2").count)
    For i = 1 To iNumSelectedChk
        SelCampoChk2 = SelCampoChk2 & FVal(Request("CampoChk2")(i)) & ","
    Next
    SelCampoChk2 = left(SelCampoChk2,len(SelCampoChk2)-1)
End If
 
'/* hago lo mismo que lo anterior para cada campo de la tabla.*/
If FVal(Request("CampoChk3").count)>0 Then
    iNumSelectedChk = FVal(Request("CampoChk3").count)
    For i = 1 To iNumSelectedChk
        SelCampoChk3 = SelCampoChk3 & FVal(Request("CampoChk3")(i)) & ","
    Next
    SelCampoChk2 = left(SelCampoChk2,len(SelCampoChk2)-1)
End If
 
 
'/* Por ultimo genero la consulta UPDATE.*/
sSQLUpdate= " "
'/* paso todos los campos a false.*/
sSQLUpdate = sSQLUpdate & " UPDATE TABLA SET CampoChk1=false; "
'/* y dejo solo en true los que estan en la variable que creamos, que son los de los checkbox seleccionados (si es que hay alguno).*/
If FVal(Request("CampoChk1").count) > 0 Then
    sSQLUpdate = sSQLUpdate & " UPDATE TABLA SET CampoChk1=true WHERE CampoPK_ID IN(" & SelCampoChk1 & "); "
End If
 
'/* Lo mismo para cada campo.*/
sSQLUpdate = sSQLUpdate & " UPDATE TABLA SET CampoChk2=false; "
If FVal(Request("CampoChk2").count) > 0 Then
    sSQLUpdate = sSQLUpdate & " UPDATE TABLA SET CampoChk2=true WHERE CampoPK_ID IN(" & SelCampoChk2 & "); "
End If
'/* Lo mismo para cada campo.*/
sSQLUpdate = sSQLUpdate & " UPDATE TABLA SET CampoChk3=false; "
If FVal(Request("CampoChk3").count) > 0 Then
    sSQLUpdate = sSQLUpdate & " UPDATE TABLA SET CampoChk3=true WHERE CampoPK_ID IN(" & SelCampoChk3 & "); "
End If
'/* Ejecuto las consultas.*/
Conex.execute(sSQLUpdate)
 
%>
 

El código puede que tenga errores porque no tengo esa estructura de tabla y por lo tanto no lo probé

Si tienes algun problema vuelve y pregunta

Saludos