Tema: checkbox+bd
Ver Mensaje Individual
  #10 (permalink)  
Antiguo 17/05/2005, 13:44
Moises22
 
Fecha de Ingreso: mayo-2005
Mensajes: 98
Antigüedad: 20 años
Puntos: 0
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