2 combos 2 tablas

fario13 · #1 (**permalink**) 14/01/2005, 08:19

Hola a todos
He visto ejemplos para actualizar un combo a partir de la opcion selecionada de otro combo. Estoy haciendo todo esto con ASP, y quiero que al cambiar la opcion de un SELECT se actualice automaticamente las opciones de otro combo. Pero mi problema es que no se como hacer para se cargue un combo a partir de una tabla access y segun la opcion elegida se cargue otro combo con otras opciones de otra tabla access. El caso practico es el de las tablas familias y subfamilias (de articulos).
Gracias a todos.

u_goldman · #2 (**permalink**) 14/01/2005, 17:39

Nuevamente las listas dependientes investiga sobre ellas aqui mismo en este foro, hay mucha información al respecto.

Salu2,

lexus · #3 (**permalink**) 15/01/2005, 10:51

hola mira este ejemplo te puede orientar bastante

Código:

 <html> 
<head>
<title>Combos combinados</title>
<script language = "JavaScript">
 
<%'CONSULTA PARA OBTENER LOS DATOS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\database\hard.mdb"))
productos_Sql = "Select distinct familia, codigo, denominacion from articulos "
set rs = CreateObject("ADODB.Recordset")
rs.Open productos_Sql, Conn
x=0
%>
// FUNCION DE COMBO BOX COMBINADO
function sublist(inform, selecteditem)
{
inform.subcatagory.length = 0
<%
count= 0
y=0
do while not rs.eof
%>
x = <%= trim(y) %>;
subcat = new Array();
subcatagorys = "<%=(rs("codigo"))&" "&(rs("denominacion")) %>";
subcatagoryof = "<%=(rs("familia"))%>";
subcatagoryid = "<%=(rs("codigo"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;
if (subcat[x,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}
</script>
 
</head>
<body bgcolor="#CDB1B7">
<h2 align="center"><b><i><font color="#AE1732"><u>Combo-box enlazados </u></font></i></b></h2>
<form name="prueba">
<div align="center">
<center>
<table border="0" width="80%">
<tr>
<td width="77%">
<select size="1" id="familia" name="familia" onChange = "javascript:sublist(this.form, familia.value);">
<option selected>Selecciona una familia</option>
<%familias_Sql = "Select distinct id,familia from familias"
rs.Open familias_Sql, Conn
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("familia")%></option>

<%rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing%>
</select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <SELECT id="subcatagory" name="subcatagory" size="1">
<Option selected value="none"></option>
</SELECT></td>
<td width="9%">
<p align="left">
</p>
</td>
</tr>
</table>
</center>
</div>
<center>
</form>
</center>
</body>
</html>

codigo sacado de http://www.asptutor.com/asp/vart.asp?id=102