¿Se puede hacer esto?

jpalbox · #1 (**permalink**) 18/06/2002, 15:18

Tengo datos de un usuario en una base de datos y quiero hacer una pagina para modificarlos. He pensado en hacer un formulario y q en el figuren los datos del usuario q figuran en la bd, y sobre estos escribir los nuevos o dejar los antiguos. Como se hace? Se puede? Gracias ;)
<a href='ir.asp?http://mailto:[email protected]' target='_blank'>mailto:[email protected]...</a>

DanielRey · #2 (**permalink**) 18/06/2002, 15:43

Hola Jpalbox :)

Es sencillísimo.

Te conectas a la base, levantas los datos del usuario en un recordset y usas el "value" de los INPUT.

Ejemplo:
<INPUT TYPE=text VALUE=<%=Rs("nombre")%> NAME=nombre>

Suerte ;)

pumuky · #3 (**permalink**) 19/06/2002, 05:43

y luego para modificar los datos, si ha introducido un dato en algún campo realizas un UPDATE de ese registro usando el valor q ha introducido

jpalbox · #4 (**permalink**) 19/06/2002, 16:51

Si sera facil pero a mi sigue sin salirme nada, os muetro el codigo y le hechais un vistazo:
<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 ;))
%>
<div align="center"><center>
<table width="339">
<tr>
<td>Nombre:<input type="text" name="nombre" VALUE="<%=Rs("nombre")%>&quot ;></td>
</tr>
</table>
</center></div><%
con.Close
Set con = Nothing
%>
</body>
</html>
lo unico q he conseguido es q me de el siguiente error q no se lo q significa :
ADODB.Recordset error '800a0cc1'

"Item cannot be found in the collection corresponding to the requested name or ordinal. "

/jpalbox/modificar.asp, line 18

bakanzipp · #5 (**permalink**) 19/06/2002, 16:55

pues amigo despues de crear la conexion y el recorset te falta hacer el select que te rescate los datos y te llene el recorset

Código:

  
Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;) 
con.Open(&quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;\jpalbox\db\usuarios.mdb&quot;))

SQL=&quot;Select * from TABLA where nombre=?&quot; &amp; tu_variable &amp; &quot;'&quot;
SET rs=con.execute(SQL)

if not rs.eof and not rs.bof then

'todo el resto que sigue
%&gt;

obviamente tu SQL debe quedar segun lo que desees tu...solo es un ejemplo.

bakanzipp · #6 (**permalink**) 19/06/2002, 16:57

disculpa el exabrupto

nombre=?" & tu_variable & "'"

tiene que ser asi

nombre='" & tu_variable & "'"

jpalbox · #7 (**permalink**) 19/06/2002, 17:16

perdona pero es q soy novato, el codigo q contiene el formulario donde lo meto, antes de cerrar la conexion con la base de datos o despues

bakanzipp · #8 (**permalink**) 19/06/2002, 17:20

el lugar donde está esta bien

osea despues de esto

con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\jpalbox\db\usuarios.mdb&quot ;))

colocar el select

el if

%>


<DIV>
BLA..BLA...BLA..

</DIV>
<%END IF
'CIERRAS LAS CONEXIONES

ME EXPLICO

jpalbox · #9 (**permalink**) 19/06/2002, 17:24

Mira lo 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
%>
<div align="center"><center>

<table width="339">
<tr>
<td>Nombre:<input type="text" name="nombre" VALUE="<%=Rs("nombre")%>&quot ; size="20"></td>
</tr>
</table>
</center></div><%
end if
con.Close
Set con = Nothing
%>

</body>
</html>
corrigeme. Gracias

bakanzipp · #10 (**permalink**) 19/06/2002, 17:30

vas bien, cambian esto:

Código:

  
SQL=&quot;Select * from Personal where usuario='&quot; &amp; jpalbox &amp; &quot;'&quot;
SET rs=con.execute(SQL)

If not(rs.EOF) then

recuerda esto tb:
consulta tipo texto

Código:

  
dato = '&quot; &amp; variable &amp;&quot;'
'comilla simple + comilla doble + &amp;

rs.eof=true
quiere decir que es fin de registro...o sea que la consulta no encontro datos que coincidan lo que quiere decir que no existe el registro con esat especificacion..entonces incluso esto puedes validarlo con un mensaje...

algo asi..

if not rs.eof then

'todo el html y resultado del registro

else

'usuario inexistente

end if

jpalbox · #11 (**permalink**) 19/06/2002, 17:38

lo he modificado y sigue dandome error
<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>Nombre:<input type="text" name="nombre" VALUE="<%=Rs("nombre")%>&quot ; size="20"></td>
</tr>
</table>
</center></div><%
end if
con.Close
Set con = Nothing
%>

</body>
</html>

jpalbox · #12 (**permalink**) 19/06/2002, 17:42

lo he modificado y sigue dandome error
<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>Nombre:<input type="text" name="nombre" VALUE="<%=Rs("nombre")%>&quot ; size="20"></td>
</tr>
</table>
</center></div><%
end if
con.Close
Set con = Nothing
%>

</body>
</html>

bakanzipp · #13 (**permalink**) 19/06/2002, 17:42

puedes postear el error..

depues de esto pon:

SQL="Select * from Personal where usuario=" & jpalbox & "'"

response.write SQL

otra cosa...jpalbox es una variable o es simplemente texto...

si quieres preguntar por ese usuario en particular haz esto antes de hacer el sql

Dim usuario

usuario="jpalbox"

despues reemplaza jpalbox por usuario en la consulta..

espero que te vaya bien me tengo que ir...

suerte

bakanzipp · #14 (**permalink**) 19/06/2002, 17:43

ah y esto esta mal...
te falta una comilla

Código:

  
SQL=&quot;Select * from Personal where usuario=&quot; &amp; jpalbox &amp; &quot;'&quot;

Código:

  
SQL=&quot;Select * from Personal where usuario='&quot; &amp; jpalbox &amp; &quot;'&quot;

jpalbox · #15 (**permalink**) 19/06/2002, 17:52

Muchas Gracias amigo Lo he conseguido, ahora voy a intentar modificar el registro a ver si me lo actualiza Gracias. Mi msn es [email protected]