20/06/2002, 17:30
|
| | | Fecha de Ingreso: abril-2002
Mensajes: 432
Antigüedad: 23 años Puntos: 0 | |
| La segunda parte de la pregunta modificar los dato
Bien ya tengo los datos de la tabla en un campo de un formulario y ahora yo quiero que se pueda cambiar ese dato y enviarlo cuando lo hayan modificado a la base de datos os muestro el codigo q he hecho:
<html>
<head>
<title>Modificar datos entrada</title>
</head>
<body>
<%'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject("ADODB.Connection")
'Como vamos a utilizar la variable rs del tipo recordset para recorrer los registros con EOF
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\jpalbox\db\usuarios.mdb" ;))
SQL="Select * from Personal where usuario='jpalbox'"
SET rs=con.execute(SQL)
If rs.EOF = True then
response.write "no exite el usuario"
else
%>
<div align="center"><center>
<table width="339">
<tr>
<td width="251">Nombre:<input type="text" name="nombre" size="20"
VALUE="<%=Rs("nombre")%>" ; readonly></td>
<td width="80"><%=Rs("password&qu ot;) %>
</td>
</tr>
</table>
</center></div>
'sin esta parte de la actualizacion funciona.
<%
'Ejecuta un sentencia SQL para insertar alta
sql = "UPDATE Personal SET nombre ='" & nombre & "'"
con.Execute(sql)
If Err = 0 Then
'Insercion correcta
Response.write "Modificacion correcta"
Else
Response.write "otro error"
End If
end if
%>
<%
end if
con.Close
Set con = Nothing
%>
</body>
</html>
'Donde falla esto; Bueno me falta el enviar. Pero ademas de eso que falta o falla.
|