La segunda parte de la pregunta modificar los dato

jpalbox · #1 (**permalink**) 20/06/2002, 17:30

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&quot ;))

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")%>&quot ; 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.

TomaHawkk · #2 (**permalink**) 21/06/2002, 02:38

Hola!

He modificado algunas cosillas espero que te sirva:

Código:

 
&lt;html&gt;

&lt;head&gt;
&lt;title&gt;Modificar datos entrada&lt;/title&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;%'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject(&quot;ADODB.Connection&quot;)
con.Open(&quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;\jpalbox\db\usuarios.mdb&quot;))

SQL=&quot;Select * from Personal where usuario='jpalbox'&quot;
SET rs = con.execute(SQL)
If rs.EOF then
response.write &quot;no exite el usuario&quot;
else 
%&gt;
&lt;div align=&quot;center&quot;&gt;&lt;center&gt;

&lt;table width=&quot;339&quot;&gt;
&lt;tr&gt;
&lt;td width=&quot;251&quot;&gt;Nombre:&lt;input type=&quot;text&quot; name=&quot;nombre&quot; size=&quot;20&quot;
VALUE=&quot;&lt;%=Rs(&quot;nombre&quot;)%&gt;&quot; readonly&gt;&lt;/td&gt;
&lt;td width=&quot;80&quot;&gt;&lt;%=Rs(&quot;password&quot;) %&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/center&gt;&lt;/div&gt;

&lt;%

'sin esta parte de la actualizacion funciona.

'Ejecuta un sentencia SQL para insertar alta
sql = &quot;UPDATE Personal SET nombre ='&quot; &amp; nombre &amp; &quot;' where usuario='jpalbox'&quot; 
con.Execute(sql)

If Err.number &gt; 0 Then
	Response.write &quot;Se ha producido un error&quot;
Else
	'Insercion correcta
	Response.write &quot;Modificacion correcta&quot;
End If
%&gt;

&lt;%
end if

rs.Close
set rs = nothing
con.Close
Set con = Nothing
%&gt;
&lt;/body&gt;
&lt;/html&gt;

Saludos.

jpalbox · #3 (**permalink**) 26/06/2002, 11:16

Funiona gracias.