update a varios campos segun seleccion de check

[Victor_J]

Holas estoy haciendo una encuesta de varias opciones 15, cada opcion tiene un checkbox, como puedo actualizar los campos si esta seleccionado por ejemplo, a 1, 5, 8?

necesito su ayudar maestros

[AlZuwaga]

todos los checkboxes deben llamarse igual. luego...

SQL = "UPDATE Tabla SET Campo = 'valor' WHERE id IN (" & Request.Form("CheckBoxes") & ")"


aish... era así, no? me agarró una duda

[RootK]

MMM... no será algo como esto..???

SQL = "UPDATE Tabla SET Campo =" & Request.Form ("CheckBoxes")

Bueno... asi es como a vaces yo hago..!!! jeje

[urjose]

Como puso daz debe funcionar a la perfección

[Victor_J]

son varios campos numericos que tienen que sumar lo que tienen +1 la sentencia seria asi:

update encuesta set total1=total1+1,total2=total2+1,total3=total3+1 etc...

y son 15 checkboxes de los cuales puede escojer cualquiera de ellos..

no es un update a un solo campo

[urjose]

Pues nada mas le agregas los campos a lo que te puso dazuaga y listo

Saludos

[AlZuwaga]

ahh... no, me parece que entonces sería así:

Supongamos que los checkboxes se llamen desde chk1 hasta chk15 y los campos a modificar desde Campo1 hasta campo15

entonces,..

SQL = "UPDATE Table SET "
If Not IsNull(Request("chk1")) then SQL = SQL & "campo1 = campo1 + 1, "
If Not IsNull(Request("chk2")) then SQL = SQL & "campo2 = campo2 + 1, "
If Not IsNull(Request("chk3")) then SQL = SQL & "campo3 = campo3 + 1, "
'...
'...
If Not IsNull(Request("chk15")) then SQL = SQL & "campo15 = campo15 + 1, "

' acá habría que eliminar la última ", " que quede del string parcial SQL...

SQL = SQL & " WHERE campoID = " Request("AlgunCampoID")


seguro que con un for se mejora un poco más, pero eso te lo dejo a vos

saludos

[Victor_J]

Voy a probar como me dices.
Gracias :0

[Victor_J]

dazuaga
ya probe como me dices pero asi no esten marcados los checks me tira toda la sentencia completa :(

[AlZuwaga]

fijate entonces de comparar según su valor de "checked"

If Request("chkN") = "ElValorDeChecked" then...

otra cosa... pasá momentáneamente el method del form a GET y fijate en la URL cómo está pasando los valores y cuáles de ellos dependiendo si estan marcados algunos o todos. Así es más fácil de ver las cosas para orientarse.

[Victor_J]

ya lo logre haciendolo de esta forma pero ayudame a eliminar la coma que queda al ultimo please!

SQL = "UPDATE Table SET "
If Request.Form("total1")<>"" then SQL = SQL & "campo1 = campo1 + 1, "
If Request.Form("total2")<>"" then SQL = SQL & "campo2 = campo2 + 1, "
If Request.Form("total3")<>"" then SQL = SQL & "campo3 = campo3 + 1, "
If Request.Form("total4")<>"" then SQL = SQL & "campo4 = campo4 + 1,"

etcc

[AlZuwaga]

luego de la línea del IF Nro. 15, poné esto:

SQL = Left(SQL, Len(SQL)-2)

creo que con eso le eliminás el último ",ESPACIO" (estoy tipeando código directamente en el foro sin antes probarlo.. cosa que no acostumbro)

[Victor_J]

la cosa es tener una idea,
gracias daz