combo box combinados

edumon · #1 (**permalink**) 27/12/2005, 09:38

amigos necesito hacer una combinacion de 2 combo box, he estado buscando por aca pero de verdad no me sirve el codigo de jscript q esta circulando, es decir necesito traerme los datos de la bd en sqlserver y escogerlos desde alli, no se que me recomiendan

ludovico2000 · #2 (**permalink**) 27/12/2005, 10:38

Aqui tienes un ejemplo:

en una página de marcos "cualquiera" pones dos marcos, uno contiene provincia.asp y el otro población.asp. A continuación tienes sus códigos:

Verás que lo único que hace es traer los datos de la base de datos aun select y pasar el valor del que se ha elegido a la otra página, utilizándolo como condición para una consulta cuyo resultado rellenará el select correspondiente.

PROVINCIA.ASP:
<html>
<head>
<title>frame provincia cambia frame población etc.</title>

<script language="JavaScript" >
function saltarC()
{
parent.frames["FPoblaciones"].location.href = "poblacion.asp?elegidoC=" + ListaC.value
}
</script>

<%
Dim Conexion
Dim Cs
Dim PathBD
Set Conexion = Server.CreateObject("ADODB.Connection")
PathBD=Server.MapPath("../ruta/mibasededatos.mdb")
Cs="Driver={Microsoft Access Driver (*.mdb)};"
Cs=Cs&"DBQ="&PathBD
conexion.ConnectionString=Cs
Conexion.Open
Dim SQL
Dim rs
SQL="SELECT DISTINCT Provincia FROM Inmueble"
Set rs=Conexion.Execute(SQL)
%>

</head>

<body bgcolor="#000000">

<p align="center"><font size="3" color="#ff6600">Indique una Provincia : </font><br>
<br>

<select name="ListaC" with=15 onChange="javascript:saltarC()">
<option>**Campo obligatorio**</option>
<% do while not rs.eof %>
<option value="<%=rs("Provincia")%>"><%=rs("Provincia")%></option>
<%rs.MoveNext()
Loop
%>
</select>

<%rs.Close%>

</p>

</body>
</html>

POBLACION.ASP:
<html>
<head>
<title>Frame población etc</title>

<%
Dim Conexion
Dim Cs
Dim PathBD
Set Conexion = Server.CreateObject("ADODB.Connection")
PathBD=Server.MapPath("../ruta/mibasededatos.mdb")
Cs="Driver=Microsoft Access Driver (*.mdb);"
Cs=Cs&"DBQ="&PathBD
conexion.ConnectionString=Cs
Conexion.Open
provi=Request.QueryString("elegidoC")
SQL="SELECT DISTINCT Población FROM Inmueble WHERE ((Provincia)='" & provi & "');"
Set rs=Conexion.Execute(SQL)
%>

</head>

<body bgcolor="#000000">
<form name="consulta" method="post" action="responder.asp">

<p align="center"><font size="3" color="#ff6600">Indique una población:</font>
<br>
<br>

<select name="pob">
<OPTION selected>indiferente</option>
<%Do while Not rs.EOF%>
<OPTION VALUE=<%=rs("Población")%>><%=rs("Población")%> </option>
<%rs.MoveNext
Loop
%>
</select>
<%rs.Close%>

...

<input type="hidden" name="prov" value="<%=Request.QueryString("elegidoC")%>">

</p>
<center>
<input type="button" name="envio" value="Enviar" ...

</body>
</html>