Combo combinado con tablas diferentes

05/04/2005 - 01:59 por Veronica Roses | Informe spam
Hola,

Tengo un combo combinado en donde dependiendo de la opcion seleccionada
muestro otra informacion, sin embargo, la informacion viene de tablas
diferentes, y es ahi donde tengo problemas, ya que solo me esta abriendo una
tabla y no toma en cuenta la condicion que estoy poniendo.

Podria alguien ayudarme???

Para hacer mas claro el asunto anexo el codigo que tengo.

<script language = "JavaScript">

function sublist3(inform, selecteditem)
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("control.mdb"))

if selecteditem = 1 then
subaut_Sql = "Select * from Hab order by mov"
else
subaut_Sql = "Select * from DS order by mov"
end if

set rs2 = CreateObject("ADODB.Recordset")
rs2.Open subaut_Sql, Conn,1,3
x2=0

%>

{
inform.aut.length = 0
<%
count= 0
y=0
do while not rs2.eof
%>

x2 = <%= trim(y) %>;
subcat = new Array();
subcatagorys = "<%=(rs2("Of_Ap"))%>";
subcatagoryof = "<%=(rs2("Id_Clave"))%>";
subcatagoryid = "<%=(rs2("ID_Of"))%>";
subcat[x2,0] = subcatagorys;
subcat[x2,1] = subcatagoryof;
subcat[x2,2] = subcatagoryid;
if (subcat[x2,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x2,0], subcat[x2,2]);
inform.aut.options[inform.aut.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs2.movenext
loop
rs2.close
Conn.Close
Set rs2= Nothing
%>
}
</script>



<select id="select" name="menu_pins" onChange =
"javascript:sublist3(this.form, menu_pins.value);">
<option selected>Seleccione el programa</option>
<%
Dim conn3, RS3, SQL3
Set conn3 = Server.CreateObject("ADODB.Connection")
conn3.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&
Server.MapPath("control.mdb")
SQL3 = "SELECT * FROM programas_ins"
Set rs3 = conn3.Execute(SQL3)
While Not rs3.EOF
%>
<option value="<%=rs3("ID_Clave")%>"><%=rs3("Programa")%</option>
<%
rs3.MoveNext
Wend
rs3.Close
%>
</select>
 

Leer las respuestas

#1 Kevin Guisbert S.
07/04/2005 - 18:33 | Informe spam
Hola, bueno para mostrar informacion de varias tablas tienes que ver la
consulta SQL ahi podras obtener informacion de varias tablas, ahora en caso
de que no se pueda tendrias que anidar recordsets, es decir guiarte y abrir
recordsets referenciando a ID(campo de referencia de la tabla) de recordset
anteriores


"Veronica Roses" escribió:

Hola,

Tengo un combo combinado en donde dependiendo de la opcion seleccionada
muestro otra informacion, sin embargo, la informacion viene de tablas
diferentes, y es ahi donde tengo problemas, ya que solo me esta abriendo una
tabla y no toma en cuenta la condicion que estoy poniendo.

Podria alguien ayudarme???

Para hacer mas claro el asunto anexo el codigo que tengo.

<script language = "JavaScript">

function sublist3(inform, selecteditem)
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("control.mdb"))

if selecteditem = 1 then
subaut_Sql = "Select * from Hab order by mov"
else
subaut_Sql = "Select * from DS order by mov"
end if

set rs2 = CreateObject("ADODB.Recordset")
rs2.Open subaut_Sql, Conn,1,3
x2=0

%>

{
inform.aut.length = 0
<%
count= 0
y=0
do while not rs2.eof
%>

x2 = <%= trim(y) %>;
subcat = new Array();
subcatagorys = "<%=(rs2("Of_Ap"))%>";
subcatagoryof = "<%=(rs2("Id_Clave"))%>";
subcatagoryid = "<%=(rs2("ID_Of"))%>";
subcat[x2,0] = subcatagorys;
subcat[x2,1] = subcatagoryof;
subcat[x2,2] = subcatagoryid;
if (subcat[x2,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x2,0], subcat[x2,2]);
inform.aut.options[inform.aut.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs2.movenext
loop
rs2.close
Conn.Close
Set rs2= Nothing
%>
}
</script>



<select id="select" name="menu_pins" onChange =
"javascript:sublist3(this.form, menu_pins.value);">
<option selected>Seleccione el programa</option>
<%
Dim conn3, RS3, SQL3
Set conn3 = Server.CreateObject("ADODB.Connection")
conn3.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&
Server.MapPath("control.mdb")
SQL3 = "SELECT * FROM programas_ins"
Set rs3 = conn3.Execute(SQL3)
While Not rs3.EOF
%>
<option value="<%=rs3("ID_Clave")%>"><%=rs3("Programa")%</option>
<%
rs3.MoveNext
Wend
rs3.Close
%>
</select>

Preguntas similares