cargar datos en los input.asp
Publicado por beyron (3 intervenciones) el 14/10/2007 02:48:42
Hola todos.
Espero que puedan ayudarme, bueno es bastante sencillo quiero cargar los input por medio de la busqueda de la pagina.
para que vea lo que tengo le muestro lo que llevo pero megustaria saber, como realizar el resto.
<form method="Post" action="buscar.asp">
<table border="2" width="98%">
<tr>
<td width="254" bgcolor="#CCCCFF">
<p align="center"><b>Rut Alumno</b></td>
<td bgcolor="#CCCCFF" width="261">
<input name="T_Rut" size="13" style="float: left">
<input type="submit" value="Buscar" name="boton1">
</form>
esto solo es el form. donde el boton buscar. en la Pag. buscar esta donde nececito la ayuda.
<%
Dim Conexion,Tabla
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\bd.mdb;"
sSQL = "Select Max(Rut_Alu) as ID from Alumno"
set Rs = Conn.Execute(sSQL)
If T_Rut <> " " Then
sSQL = "select * from Alumno Where Rut_Alu = '" & T_rut & "' "
End If
%>
<table align="center">
<tr>
<th>Nombre</th>
<th>carrera</th>
<th>direccion</th>
<th>fono</th>
</tr>
<% Do While Not Rs.EOF %>
<tr>
<td><%=Rs("Nom_Alu")%></td>
<td><%=Rs("Carrera_Alu")%></td>
<td><%=Rs("Dir_Alu")%></td>
<td><%=Rs("Fono_Alu")%></td>
</tr>
ante mano muchas grasias. a todos
Espero que puedan ayudarme, bueno es bastante sencillo quiero cargar los input por medio de la busqueda de la pagina.
para que vea lo que tengo le muestro lo que llevo pero megustaria saber, como realizar el resto.
<form method="Post" action="buscar.asp">
<table border="2" width="98%">
<tr>
<td width="254" bgcolor="#CCCCFF">
<p align="center"><b>Rut Alumno</b></td>
<td bgcolor="#CCCCFF" width="261">
<input name="T_Rut" size="13" style="float: left">
<input type="submit" value="Buscar" name="boton1">
</form>
esto solo es el form. donde el boton buscar. en la Pag. buscar esta donde nececito la ayuda.
<%
Dim Conexion,Tabla
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\bd.mdb;"
sSQL = "Select Max(Rut_Alu) as ID from Alumno"
set Rs = Conn.Execute(sSQL)
If T_Rut <> " " Then
sSQL = "select * from Alumno Where Rut_Alu = '" & T_rut & "' "
End If
%>
<table align="center">
<tr>
<th>Nombre</th>
<th>carrera</th>
<th>direccion</th>
<th>fono</th>
</tr>
<% Do While Not Rs.EOF %>
<tr>
<td><%=Rs("Nom_Alu")%></td>
<td><%=Rs("Carrera_Alu")%></td>
<td><%=Rs("Dir_Alu")%></td>
<td><%=Rs("Fono_Alu")%></td>
</tr>
ante mano muchas grasias. a todos
Valora esta pregunta


0