| |||
![]() hola, estoy intentando guardar una serie de datos en bd, pero me confundo al querer guardar los datos de un checkbox, alguien puede mostrar un codigo de ejemplo por favor, mi problema esta que al querer guardar me muestra el mismo datos x veces según checkbox tenga, saludos |
| |||
Para trabajar como dice Myakire con un array haria falta esto: arreglo = split(request.form("nombre_checkbox"),",") Y ahi ya nos quedarían todos los valores de los checkbox en el array y podríamos manejarlos como quisieramos. Otra alternativa seria hacer un bucle, por ejemplo como este: for i=1 to request.form("nombre_checkbox").count Response.Write(request.form("nombre_checkbox")(i)) next Y en este caso habría que reemplazar el Response.Write por la tarea que queramos que haga el servidor. Al igual como dijo MyAkire, tambien debes poner todos los checkbox con el mismo nombre. Igual, me parece que la mejor alternativa es la que te presentó Myakire. Espero que te sirva. Saludos. Última edición por mariano_donati; 14/05/2005 a las 11:34 Razón: Errores en la redaccion |
| |||
A ver tengo aqui un ejemplo de mi formulario. Por partes... Para recogerlo de un formulario html y almacenarlo en una base de datos: En el formulario (puede ser puro html): <input type="checkbox" name="p_casilla" id="casilla" value="True"> Envio a base de datos (archivo ASP): <% Dim resalte,RS,conn resalte=False resalte=Request.Form("p_casilla") 'creamos la conexion con la base de datos... Set conn = Server.CreateObject ("ADODB.Connection") '...apertura de la base de datos de tu conexion Set RS = Server.CreateObject ("ADODB.RecordSet") RS.Open "agenda", conn, adOpenKeySet, adLockOptimistic RS.AddNew IF resalte THEN RS("resaltar") = resalte ELSE resalte=False END IF RS.Update RS.Close Conn.Close SET RS = Nothing SET Conn = Nothing %> Para mostrar un formulario con los campos editados, recogidos por una Base de datos <% 'ref: referencia al registro que quieres visualizar en el formulario Dim conn, RS, ref ref=Request.Form("coculto") Set conn = Server.CreateObject ("ADODB.Connection") '...apertura de la base de datos de tu conexion Set RS = Server.CreateObject ("ADODB.RecordSet") RS.Open "agenda", conn, 1 RS.Filter = "ref='" & ref & "'" %> 'Campo de checkbox <input type="checkbox" name="p_casilla" id="casilla" <% IF RS("resaltar") THEN %> checked <% END IF %> value="true"> ESPERO QUE TE HAYA SERVIDO DE AYUDA, SALUDOS ![]() |