Listas dinamicas dependientes

rrufo · #1 (**permalink**) 18/04/2002, 09:51

Hol
Quiero hacer una listas dependientes tipo las q aparacen en windows al intalar una impresora.
Fabricante--> Marca

esto con datos dinamicos

La duda q tengo es como tengo q utilizar el evento onChange del menu de fabricantes para llamar a una funcion q actualice el menu de las marcas.

gracias

os transcribo varios trozos de codigo por si pueden ayudar
------------------------------------------------------------------------<%
set Fabricantes = Server.CreateObject("ADODB.Recordset")
Fabricantes.ActiveConnection = MM_Empresas_STRING
Fabricantes.Source = "SELECT Fabricante FROM FS GROUP BY Fabricante ORDER BY Fabricante ASC"
Fabricantes.CursorType = 0
Fabricantes.CursorLocation = 2
Fabricantes.LockType = 3
Fabricantes.Open()
Fabricantes_numRows = 0
%>
<%
Dim Marcas__MMColParam
Marcas__MMColParam = "-1"
if Request.QueryString("MenuFabricantes") <> "") then Marcas__MMColParam = Request.QueryString("MenuFabricantes")

%>
<%
set Marcas = Server.CreateObject("ADODB.Recordset")
Marcas.ActiveConnection = MM_Empresas_STRING
Marcas.Source = "SELECT * FROM FS WHERE Fabricante = '" + Replace(Marcas__MMColParam, "'", "''") + "' AND Denominacion <> '' ORDER BY Marca ASC"
. . .
%>

Os transcrivo el formulario con las dos listas
------------------------------------------------------------------------
<form name="form2" action="">
<select name="MenuFabricantes" size="10" onChange= <% Reselect() %> >
<%
While (NOT Fabricantes.EOF)
%>
<option value="<%=(Fabricantes.Fields.Item("F abricante").Value)%>" ><%=(Fabricantes.Fields.Item("Fabricant e").Value)%></option>
<%
Fabricantes.MoveNext()
Wend
If (Fabricantes.CursorType > 0) Then
Fabricantes.MoveFirst
Else
Fabricantes.Requery
End If
%>
</select>

venom_plus · #2 (**permalink**) 18/04/2002, 11:11

Hola, hace tiempo en este foro (o en otro, no recuerdo) me encontre este codigo, yo no le he probado pero lo guarde en mi maquina, supongo que te puede servir. Aqui utiliza el concepto de Ciudad y Estado, pero (si no entendi mal) es lo que quieres.

Código:

&lt;%@ LANGUAGE=&quot;VBSCRIPT&quot; %&gt;
&lt;%
DIM ConnProducto,SQL,RS1,Estados
SET ConnProducto = Server.CreateObject(&quot;ADODB.Connection&quot;)
ConnProducto.Open &quot;UID=usuario;PWD=password;DSN=Nombre del DSN&quot;
SET RS1= Server.CreateObject(&quot;ADODB.Recordset&quot;) 

SQL = &quot;SELECT * FROM Estados&quot; 

SET RS1 = ConnProducto.Execute(SQL) 


%&gt; 
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;SCRIPT LANGUAGE=vbscript&gt;
&lt;!--

Sub Estados_onchange
document.forms(&quot;uno&quot;).submit()
End Sub

--&gt;
&lt;/SCRIPT&gt;
&lt;/HEAD&gt;
&lt;BODY&gt;
&lt;Form name=&quot;uno&quot; action=&quot;Combo.asp?ProEstado=1&quot;&gt;
&lt;%IF Request(&quot;Estados&quot;)=&quot;&quot; THEN
Estados=1
Else
Estados=cint(Request(&quot;Estados&quot;))
ENd if%&gt;
&lt;P&gt;&lt;SELECT id=Estados style=&quot;WIDTH: 173px&quot; name=Estados&gt;
&lt;%Do Until RS1.EOF%&gt; 
&lt;OPTION value=&quot;&lt;%=RS1(0)%&gt;&quot; &lt;%If Cstr(Request(&quot;Estados&quot;))=Cstr(RS1(0)) THEN%&gt;SELECTED&lt;%End if%&gt;&gt; &lt;%=RS1(1)%&gt;&lt;/OPTION&gt;
&lt;%RS1.MoveNext
Loop%&gt; 
&lt;/SELECT&gt;&lt;/P&gt;

&lt;%
Dim RS2,SQL2
SET RS2=Server.CreateObject(&quot;ADODB.Recordset&quot;)
IF Request(&quot;Estados&quot;)=&quot;&quot; Then
SQL2=&quot;SELECT * FROM Ciudades WHERE Idestado =1&quot; 
Else
SQL2=&quot;SELECT * FROM Ciudades WHERE Idestado =&quot; &amp; Request(&quot;Estados&quot;)
End if
SET RS2 = ConnProducto.Execute(SQL2)%&gt;
&lt;P&gt;&lt;SELECT id=Ciudades style=&quot;WIDTH: 173px&quot; name=&quot;Ciudades&quot;&gt; 
&lt;%Do Until RS2.EOF%&gt;
&lt;OPTION value=&quot;&lt;%=RS2(0)%&gt;&quot;&gt;&lt;%=RS2(1)%&gt;&lt;/OPTION&gt;
&lt;%RS2.MoveNext
Loop
%&gt;
&lt;/SELECT&gt;&lt;/P&gt; 
&lt;/Form&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;

bakanzipp · #3 (**permalink**) 18/04/2002, 13:43

si sabes algo de javascript quizas esto te sirva...
ke te parece usar listas dependientes sin necesidad de refrescar la pag...echale un vistazo..

<a href='ir.asp?http://www.aspfacil.com/codigo/listasdependientes.asp' target='_blank'>http://www.aspfacil.com/codigo/listasdep...</a>

rrufo · #4 (**permalink**) 18/04/2002, 13:52

Gracias, es el fichero q tenia de referencia y me ha ayudado mucho aunque no se JScrip

lo tengo arreglado del todo menos un detalle en el parametro y las variables.
excepto por ese detalle os pego la subfuncion q he modificado, quizas a alguien le sirva.
En mi opinion es mas rapida pues se realiza el filtra en sql cosa muy importante si como yo tienes 6000 productos.
si alguien puede arreglar el tema de la variable/parametro q explico en el otro post q me avise.
---------------------------------------------<SCRIPT LANGUAGE="Javascript">

function Reselect(fabrica)

{
Listas.Productos.length=0;
<%
Dim Marca__MMColParam
Marca__MMColParam ="bayer"
set Marca = Server.CreateObject("ADODB.Recordset")
Marca.ActiveConnection = MM_Empresas_STRING
Marca.Source = "SELECT * FROM FS WHERE Fabricante = '" + Replace(Marca__MMColParam, "'", "''") + "' AND Denominacion <> '' ORDER BY Marca ASC"
Marca.CursorType = 0
Marca.CursorLocation = 2
Marca.LockType = 3
Marca.Open()
Marca_numRows = 0
%>

<%
While (NOT Marca.EOF)
%>

var newElem = document.createElement("OPTION")
newElem.text = "<%=(Marca.Fields.Item("Marca"). Value)%>"
newElem.value = "<%=(Marca.Fields.Item("IdFS").V alue)%>"
document.forms("Listas").Productos.optio ns.add(newElem)
<%
Marca.MoveNext()
Wend
If (Marca.CursorType > 0) Then
Marca.MoveFirst
Else
Marca.Requery
End If
%>
}

</SCRIPT>