18/07/2002, 17:00
|
| | | Fecha de Ingreso: julio-2002
Mensajes: 219
Antigüedad: 22 años, 10 meses Puntos: 0 | |
| Re: urgente porfavor
Este mensaje lo ví en un foro. No es mio.
Pero te lo coloco para que veas como funciona. El lo hace con un combo box, pero si lo quieres con otra variable, es lo mismo. Cita: Nombre: Canito76
Asunto: Desplega Reg. Apartir de Combo
Mensaje:
Hola a todos, hace tiempo alguien aqui en el foro pregunto como podia hacer para que cuando seleccionara un campo en el combo mostrara todo el registro, yo tambien tenia esa duda por lo cual comence a ver como podia hacerlo hasta que por fin lo pude hacer y aqui esta el codigo para si alguien lo necesita, tarde un poco porque apenas estoy aprendiendo esto de las ASP
Hasta luego
<html>
<head><title>Desplegar Registros</title>
</head>
<body>
<%
dim conDB, Rs, Path, Rs2, strURL
strURL = Request.ServerVariables("URL")
id = Cint(Request.QueryString("id"))
Path = Server.MapPath("labase.mdb")
Set conDB = Server.CreateObject("ADODB.Connection")
conDB.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" &Path& ";"
%>
<form method = "get" action = "<%=strURL%>">
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs2 = server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM clientes", conDB, 1,3
Rs2.Open "select * from clientes", conDB, 1,3
%>
ID:<select name = "id"">
<% do while not Rs.EOF%>
<option><%=Rs("id")%>
<%Rs.MoveNext
loop
%>
</select>
<input type = "submit" value = "Ver Registro">
</form>
<table border = "1">
<tr bgColor = "#005599">
<td><b>ID</></td>
<td><b>Nombre</b></td>
<td><b>Edad</b></td>
</tr>
<%
'El sig. bucle es para mostrar
'el registro completo del campo que se selec. en el combo
do while not Rs2.EOF
if Rs2("id")= id then
%>
<tr>
<td><%=Rs2("id")%></td>
<td><%=Rs2("nombre")%>< ;/td>
<td><%=Rs2("edad")%></td>
</tr>
<%
end if
Rs2.MoveNext
loop
%>
</table>
<%
Rs.Close
Set Rs =Nothing
Set Rs2 = Nothing
%>
</body>
</html> |