18/07/2008, 05:20
|
| | | Fecha de Ingreso: agosto-2004
Mensajes: 50
Antigüedad: 20 años, 8 meses Puntos: 0 | |
| Respuesta: Ayuda: Modificar un dato de un campo.
Gracias.
El error está ahora en la línea en negrita.
<%
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("basedatos.mdb") & ";"
db.Open DB_CONNECTIONSTRING
set rsActual = Server.CreateObject("ADODB.Recordset")
SQLActual = "SELECT campo1 FROM tabla1"
rsActual.Open SQLActual,DB_CONNECTIONSTRING
campo1=rs("campo1")
%>
<html>
<body>
<form>
<input type="text" value="<%=rsActual.Fields("campo1")%>" name="valorviejo" />
<input type="text" value="" name="valornuevo" />
<input type="submit" value="Guardar" />
</form>
<%
UPDATE tabla1 SET campo1= '<%=valornuevo%>'
%>
</body>
</html>
<%
rsActual.close
db.close
set rsActual = nothing
set db = nothing
%> |