Foros del Web » Programando para Internet » ASP Clásico »

Activar un check en un Base de Datos en Access

Estas en el tema de Activar un check en un Base de Datos en Access en el foro de ASP Clásico en Foros del Web. hola tengo un duda de como puedo yo activar un check en una base de datos hecha en access mediante un sentencia sql en asp. ...
  #1 (permalink)  
Antiguo 11/08/2004, 09:23
 
Fecha de Ingreso: julio-2004
Mensajes: 27
Antigüedad: 20 años, 9 meses
Puntos: 0
Activar un check en un Base de Datos en Access

hola tengo un duda de como puedo yo activar un check en una base de datos hecha en access mediante un sentencia sql en asp.

IDCDKey CDKey Active

01 A1 √ esta palomita indica cuando un campo ya ha cido activado

02 A2 y este campo en blanco indica cuando no esta activado,

lo que quiero es activar el campo cuando un usuario haya insertado un registro.

este es el codigo que yo estoy haciendo

<html>
<head><title>AxS Tracker</title></head>
<body background="imagenes/fondo.jpg" bgcolor="#000099">
<font color="#99ccff">
<%
Dim CDKey, Usuario, Password, Password2, Nombre, oConn, Sql2, Sql3, Sql, Active, RS

CDKey = Trim(Session("CDKey")) 'aqui se utiliza la variable

Usuario= request.form("Usuario")
CDKey= request.form("CDKey")
Password= request.form("Password")
Password2= request.form("Password2")
Nombre= request.form("Nombre")

CDKey = Replace(Session("CDKey"),"'","''")

'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("CustomersData/DataBase/AxSRegistrar.mdb")

Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open Sql, oConn

Sql= "Select Active From CDKeys"

If RS.Fields("Active") = "False" then

'sentencia sql para insertar los datos

If request.form("CDKey")= Session("CDKey") and request.form("Password") = request.form("Password2") then

Sql2= "Insert Into Usuarios values ('"&Usuario&"','"&CDKey&"','"&Password&"' )"

Sql3= "Insert Into Privilegios (CDKey,Usuario,Nombre) values ('"&CDKey&"','"&Usuario&"','"&Nombre&"')"

oConn.Execute(Sql2)

oConn.Execute(Sql3)

RS.Fields("Active") = "True"

response.write("<center> <h3> Se ha guardado el registro <br> <a href='Acceso2.asp'> regresar </a> </h3> </center>")

Else

Response.redirect "Registro3.asp"

End if

Else

if RS.Fields("Active") = "True" then

response.redirect("Acceso2.asp")

End If

End If

oConn.Close
Set oConn=Nothing
%>
</font>
</body>
</html>
  #2 (permalink)  
Antiguo 11/08/2004, 09:46
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses
Puntos: 4
lo que tienes que hacer es cuando insertes o actualices el registro que quieres activar, le envias como parametro el valor -1 y se activa..
espero te sirva..
suerte
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #3 (permalink)  
Antiguo 11/08/2004, 11:31
 
Fecha de Ingreso: julio-2004
Mensajes: 27
Antigüedad: 20 años, 9 meses
Puntos: 0
Gracias

hola en verdad muchas gracias pero ya lo puede resolver, asi que un agradecimiento a todos ustedes. bye
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:58.