combo box filtrado

kyu24 · #1 (**permalink**) 26/05/2009, 01:16

Saludos kisiera hacer un combobox desde una db access con 4 variables, el problema es que solo tengo el codigo para 2, he probado muchas conbinaciones para que sean 4 en vez de 2 pero sin resultado. os paso el codigo para ver que se puede hacer

Código:

<form name=formulario>
PAÍS: <select name=idPais onChange="location.href('selects_dependientes.asp?idPais=' + formulario.idPais.options[formulario.idPais.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ssdd.mdb"))

SQL_pais="select * from paises order by pais asc"
set RS_pais=createobject("ADODB.Recordset")
RS_pais.open SQL_pais,conn
do while not RS_pais.eof
pais = RS_pais("pais")
idPais = RS_pais("idPais")
p = request.querystring("pais")
if p <> "" then

	if p = pais then
	response.write "<option value="&idPais&"&pais="&pais&" selected>"&pais&"</option>"
	elseif p <> pais then
	response.write "<option value="&idPais&"&pais="&pais&">"&pais&"</option>"
	end if
else
response.write "<option value="&idPais&"&pais="&pais&">"&pais&"</option>"
end if

RS_pais.movenext
	loop
RS_pais.close
%>
</select>
<%
if request.querystring("idPais") <> "" then %>
PROVINCIA: <select name=ubicacion>
<%
SQL_prov="select * from provincias where pais="&request.querystring("idPais")&" order by provincia asc"
set RS_prov=createobject("ADODB.Recordset")
RS_prov.open SQL_prov,conn
do while not RS_prov.eof

pais = request.querystring("pais")
provincia = RS_prov("provincia")
%>
<option value="<%=provincia%>, <%=pais%>"><%=provincia%></option>
<%
RS_prov.movenext
	loop
RS_prov.close
%>
</select><% end if %></form>

en vez de pais y provincia tendrian que ser comunidad, provincia, localidad y centros

muchas gracias

mc_quake · #2 (**permalink**) 26/05/2009, 11:07

para eso tienes que referenciar las tablas algo asi

Tabla paises:
--->pais_id
--->pais_nombre

Tabla provincias:
--->provincias_id
--->provincias_nombre
--->provincias_pais (aca estaria el pais_id al cual pertenece la provincia)

Tabla localidad:
--->localidad_id
--->localidad_nombre
--->localidad_provincias (aca estaria el provincias_id al cual pertenece la localidad)

Tabla centros:
--->centros_id
--->centros_nombre
--->centros_provincias (aca estaria el localidad_id al cual pertenece el centros)

teniendo eso es facil haciendo las consultas de la forma que lo estas asiendo en tu sitio

Esfinge02 · #3 (**permalink**) 27/05/2009, 10:49

intensta esto, es algo rustico y no esta completo pero me funcion en su momento.

Cita:

<%@ Language="VBScript"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org./TR/xhtml1/DTD/transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

<head>
<title>.:Modulo de Alumno:.</title>
</head>

<body>
<%call conecta()%>
<table width="100%">
<tr>
<td></td>
<td>
Pais</td>
<td></td>
</tr>
<tr>
<td></td>
<td>
<%
des1 = request.QueryString("des1")
des2 = request.QueryString("des2")
des3 = request.QueryString("des3")
activar = request.QueryString("activar")
idpais = request.QueryString("idpais")
idestado = request.QueryString("idestado")
idmunicipio = request.QueryString("idmunicipio")
strpa = "select * from cat_paises"
set pa = Conn.Execute(strpa)
%>
<select id="secion" name="secion" style="width: 201px" title="Seleccione el Tipo Sesión " onchange="location = this.options[this.selectedIndex].value;">
<option selected="selected" value="0">--SELECCIONE UN PAIS--</option>
<%
Do Until pa.Eof
%>
<option value="paises.asp?activar=1&idpais=<%=pa("idpais") %>&des1=<%=pa("pais")%>"><%=pa("pais")%></option>
<%
pa.MoveNext
Loop
%>
</select>
<input id="Text1" type="text" value="<%=des1%>" /></td>
<td></td>
</tr>
<%if activar = 1 or activar = 2 then
strest = "select * from cat_estado where idpais = "& idpais
set est = Conn.Execute(strest)
%>
<tr>
<td></td>
<td>
Estado</td>
<td></td>
</tr>
<tr>
<td></td>
<td>
<select id="Select1" name="secion" style="width: 201px" title="Seleccione el Tipo Sesión " onchange="location = this.options[this.selectedIndex].value;">
<option selected="selected" value="0">--SELECCIONE UN ESTADO--</option>
<%
Do Until est.Eof
%>
<option value="paises.asp?activar=2&idestado=<%=est("idest ado")%>&idpais=<%=idpais%>&des2=<%=est("estado")%> &des1=<%=des1%>"><%=est("estado")%></option>
<%
est.MoveNext
Loop
%>
</select>
<input id="Text2" type="text" value="<%=des2%>" /></td>
<td></td>
</tr>
<%end if%>
<%if activar = 2 then
strmu = "select * from cat_municipio where idestado ="& idestado
set mu = Conn.Execute(strmu)
%>
<tr>
<td>
</td>
<td>
Municipio</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td>
<select id="Select2" name="secion" style="width: 201px" title="Seleccione el Tipo Sesión " onchange="location = this.options[this.selectedIndex].value;">
<option selected="selected" value="0">--SELECCIONE UN MUNICIPIO--</option>
<%
Do Until mu.Eof
%>
<option value="paises.asp?activar=2&idmunicipio=<%=mu("idm unicipio")%>&idestado=<%=idestado%>&idpais=<%=idpa is%>&des3=<%=mu("municipio")%>&des2=<%=des2%>&des1 =<%=des1%>"><%=mu("municipio")%></option>
<%
mu.MoveNext
Loop
%>
</select>
<input id="Text3" type="text" value="<%=des3%>" /></td>
<td>
</td>
</tr>
<%end if%>
<tr>
<td>
</td>
<td>
</td>
<td>
Mandar</td>
</tr>
</table>
<%call desconecta()%>
</body>
</html>