13/01/2003, 09:22
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: san juan de los morros
Mensajes: 887
Antigüedad: 22 años, 5 meses Puntos: 1 | |
| Abre de la siguiente manera, y si es un formulario html:
<html>
<body>
<%
'Declaracion de variables
Dim Obj_Conn
Dim Obj_RS
Dim Cedula
Dim Nombre
Dim Apellido
Dim strSQL
'Fin declaracion de variables
cedula = Request.Form ("cedula")
nombre = Request.Form ("nombre")
apellido = Request.Form ("apellido")
SET Obj_Conn = Server.CreateObject("ADODB.Connection")
Obj_Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\asp\cliente.mdb;"
'Suponiendo que la Tabla se llamada clientes y el campo cedula, comprobamos que la persona existe.
strSQL = "select cedula, nombre, apellido from clientes where cedula like '%"&ccedula&"%'"
SET Obj_RS = Obj_Conn.Execute(strSQL)
IF NOT Obj_RS.EOF THEN
' Usuario correcto, actualizar datos.
'strSQL = "update clientes set nombre = '" & nombre & "', apellido = '" & apellido & "' where cedula like '%"&ccedula&"%'"
strSQL = "update clientes set nombre = '" & nombre & "', apellido = '" & apellido & "' where cedula = "& ccedula & " ;"
response.write strSQL
Obj_Conn.Execute(strSQL)
response.write "Los datos del alumno se han actualizado correctamente"
ELSE
response.write "El usuario no existe en la base de datos"
END IF
Obj_RS.Close
Obj_Conn.Close
SET Obj_RS = Nothing
SET Obj_Conn = Nothing
%>
</body>
</html>
Lo que quiero es que dentro del formulario, cada vez que se introduzca la cedula(campo numerico) se borre automaticamente cuando otro usuario ingrese su cedula y no vea el del anterior
Gracias Miguel |