Ayuda Refrescar Datos
Buenas experto tengo un problema quiero modificar un registro, cargo el nombre de usuario en un dropdown y muestra por pantalla los campos del usuario para modificar lo que quiero es que al seleccionar cualquier usuario me refresque los datos particulares de cada uno te mando el código gracias de antemano
Pagina1
<HTML>
<HEAD>
<TITLE>Modificar Usuario</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Modificar Usuario Administrativo</h1>
<br>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<FORM METHOD="POST" ACTION="2.asp">
Usuario<br>
<%
'Creamos la sentencia SQL y la ejecutamos
SQL="Select Usuario From administrativo Order By Usuario"
set rs = con.Execute(SQL)
%>
<select name="usuario">
<%
'Generamos el menu desplegable
Do While not rs.eof%>
<option><%=rs("usuario")%>
<%rs.movenext
Loop
%>
</select>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<%
SQL="Select Usuario,Nombre,Apellido,Cargo,Unidad from administrativo"
set rs=con.execute(SQL)
dim cam1,cam2,cam3,cam4,cam5
cam1=rs("Usuario")
cam2=rs("Nombre")
cam3=rs("Apellido")
cam4=rs("Cargo")
cam5=rs("Unidad")
%>
<br>
Usuario<br>
<INPUT TYPE="TEXT" NAME="usuario" value=<%=cam1%> ><br>
<br>Nombre<br>
<INPUT TYPE="TEXT" NAME="nombre" value=<%=cam2%> ><br>
<br>Apellido<br>
<INPUT TYPE="TEXT" NAME="apellido" value=<%=cam3%> ><br>
<br>Cargo<br>
<INPUT TYPE="TEXT" NAME="cargo" value=<%=cam4%> ><br>
<br>Unidad<br>
<INPUT TYPE="TEXT" NAME="unidad" value=<%=cam5%> ><br>
<INPUT TYPE="SUBMIT" value="Modificar">
</FORM>
</div>
</BODY>
</HTML>
Pagina1
<HTML>
<HEAD>
<TITLE>Modificar Usuario</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Modificar Usuario Administrativo</h1>
<br>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<FORM METHOD="POST" ACTION="2.asp">
Usuario<br>
<%
'Creamos la sentencia SQL y la ejecutamos
SQL="Select Usuario From administrativo Order By Usuario"
set rs = con.Execute(SQL)
%>
<select name="usuario">
<%
'Generamos el menu desplegable
Do While not rs.eof%>
<option><%=rs("usuario")%>
<%rs.movenext
Loop
%>
</select>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<%
SQL="Select Usuario,Nombre,Apellido,Cargo,Unidad from administrativo"
set rs=con.execute(SQL)
dim cam1,cam2,cam3,cam4,cam5
cam1=rs("Usuario")
cam2=rs("Nombre")
cam3=rs("Apellido")
cam4=rs("Cargo")
cam5=rs("Unidad")
%>
<br>
Usuario<br>
<INPUT TYPE="TEXT" NAME="usuario" value=<%=cam1%> ><br>
<br>Nombre<br>
<INPUT TYPE="TEXT" NAME="nombre" value=<%=cam2%> ><br>
<br>Apellido<br>
<INPUT TYPE="TEXT" NAME="apellido" value=<%=cam3%> ><br>
<br>Cargo<br>
<INPUT TYPE="TEXT" NAME="cargo" value=<%=cam4%> ><br>
<br>Unidad<br>
<INPUT TYPE="TEXT" NAME="unidad" value=<%=cam5%> ><br>
<INPUT TYPE="SUBMIT" value="Modificar">
</FORM>
</div>
</BODY>
</HTML>
Respuesta de davidrf76
1
Yo haría lo siguiente:
1. En tu Pagina1 dividiría el formulario en dos, uno para el desplegable de usuarios y otro para las cajas de texto con los datos.
2. El formulario1 lo enviaría a otra Pagina3 (3.asp) que se cargará en un IFRAME oculto. Para enviarlo lo haría en el evento OnChange del desplegable, por lo que pondría el primer elemento del desplegable vacío, así obligamos desde el principio a que salte el evento.
3. El formulario2 funcionará igual que el formulario que tienes actualmente.
La página quedaría así:
<HTML>
<HEAD>
<TITLE>Modificar Usuario</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Modificar Usuario Administrativo</h1>
<br>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<FORM NAME="Formulario1" METHOD="POST" ACTION="3.asp" TARGET="Iframe1">
Usuario<br>
<%
'Creamos la sentencia SQL y la ejecutamos
SQL="Select Usuario From administrativo Order By Usuario"
set rs = con.Execute(SQL)
%>
<select name="usuario" onChange="document.Formulario1.submit()">
<option value=""></option>
<%
'Generamos el menu desplegable
Do While not rs.eof%>
<option value="<%=rs("usuario")%>"><%=rs("usuario")%>
<%rs.movenext
Loop
%>
</select>
<br>
</FORM>
<FORM NAME="Formulario2" METHOD="POST" ACTION="2.asp">
Usuario<br>
<INPUT TYPE="TEXT" NAME="usuario" value=""><br>
<br>Nombre<br>
<INPUT TYPE="TEXT" NAME="nombre" value=""><br>
<br>Apellido<br>
<INPUT TYPE="TEXT" NAME="apellido" value=""><br>
<br>Cargo<br>
<INPUT TYPE="TEXT" NAME="cargo" value=""><br>
<br>Unidad<br>
<INPUT TYPE="TEXT" NAME="unidad" value=""><br>
<INPUT TYPE="SUBMIT" value="Modificar">
</FORM>
</div>
<IFRAME NAME="IFrame1" STYLE="display:none"></IFRAME>
</BODY>
</HTML>
La Pagina3 se encargará de rellenar los campos dependiendo del usuario que hallamos seleccionado.
<HTML>
<HEAD>
<TITLE>Modificar Usuario</TITLE>
</HEAD>
<BODY>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<%
'Este sentencia nos devuelve los datos del usuario seleccionado.
SQL="Select Usuario,Nombre,Apellido,Cargo,Unidad from administrativo Where Usuario = '" & Request.Form("Usuario") & '"
set rs=con.execute(SQL)
dim cam1,cam2,cam3,cam4,cam5
cam1=rs("Usuario")
cam2=rs("Nombre")
cam3=rs("Apellido")
cam4=rs("Cargo")
cam5=rs("Unidad")
%>
<SCRIPT LANGUAGE="javascript">
/* Asignamos los datos a los campos del formulario utilizando la palabra clave parent, para acceder desde el iframe a los elementos de Pagina1. */
parent.document.Formulario2.usuario.value = "<%=cam1%>";
parent.document.Formulario2.nombre.value = "<%=cam2%>";
parent.document.Formulario2.apellido.value = "<%=cam3%>";
parent.document.Formulario2.cargo.value = "<%=cam4%>";
parent.document.Formulario2.unidad.value = "<%=cam5%>";
</SCRIPT>
</BODY>
</HTML>
Espero que todo este churro te sirva de ayuda, si tienes cualquier duda me lo comunicas.
1. En tu Pagina1 dividiría el formulario en dos, uno para el desplegable de usuarios y otro para las cajas de texto con los datos.
2. El formulario1 lo enviaría a otra Pagina3 (3.asp) que se cargará en un IFRAME oculto. Para enviarlo lo haría en el evento OnChange del desplegable, por lo que pondría el primer elemento del desplegable vacío, así obligamos desde el principio a que salte el evento.
3. El formulario2 funcionará igual que el formulario que tienes actualmente.
La página quedaría así:
<HTML>
<HEAD>
<TITLE>Modificar Usuario</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Modificar Usuario Administrativo</h1>
<br>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<FORM NAME="Formulario1" METHOD="POST" ACTION="3.asp" TARGET="Iframe1">
Usuario<br>
<%
'Creamos la sentencia SQL y la ejecutamos
SQL="Select Usuario From administrativo Order By Usuario"
set rs = con.Execute(SQL)
%>
<select name="usuario" onChange="document.Formulario1.submit()">
<option value=""></option>
<%
'Generamos el menu desplegable
Do While not rs.eof%>
<option value="<%=rs("usuario")%>"><%=rs("usuario")%>
<%rs.movenext
Loop
%>
</select>
<br>
</FORM>
<FORM NAME="Formulario2" METHOD="POST" ACTION="2.asp">
Usuario<br>
<INPUT TYPE="TEXT" NAME="usuario" value=""><br>
<br>Nombre<br>
<INPUT TYPE="TEXT" NAME="nombre" value=""><br>
<br>Apellido<br>
<INPUT TYPE="TEXT" NAME="apellido" value=""><br>
<br>Cargo<br>
<INPUT TYPE="TEXT" NAME="cargo" value=""><br>
<br>Unidad<br>
<INPUT TYPE="TEXT" NAME="unidad" value=""><br>
<INPUT TYPE="SUBMIT" value="Modificar">
</FORM>
</div>
<IFRAME NAME="IFrame1" STYLE="display:none"></IFRAME>
</BODY>
</HTML>
La Pagina3 se encargará de rellenar los campos dependiendo del usuario que hallamos seleccionado.
<HTML>
<HEAD>
<TITLE>Modificar Usuario</TITLE>
</HEAD>
<BODY>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<%
'Este sentencia nos devuelve los datos del usuario seleccionado.
SQL="Select Usuario,Nombre,Apellido,Cargo,Unidad from administrativo Where Usuario = '" & Request.Form("Usuario") & '"
set rs=con.execute(SQL)
dim cam1,cam2,cam3,cam4,cam5
cam1=rs("Usuario")
cam2=rs("Nombre")
cam3=rs("Apellido")
cam4=rs("Cargo")
cam5=rs("Unidad")
%>
<SCRIPT LANGUAGE="javascript">
/* Asignamos los datos a los campos del formulario utilizando la palabra clave parent, para acceder desde el iframe a los elementos de Pagina1. */
parent.document.Formulario2.usuario.value = "<%=cam1%>";
parent.document.Formulario2.nombre.value = "<%=cam2%>";
parent.document.Formulario2.apellido.value = "<%=cam3%>";
parent.document.Formulario2.cargo.value = "<%=cam4%>";
parent.document.Formulario2.unidad.value = "<%=cam5%>";
</SCRIPT>
</BODY>
</HTML>
Espero que todo este churro te sirva de ayuda, si tienes cualquier duda me lo comunicas.
