necesito ejemplo de un combobox doble y dinamico

carlostapia · #1 (**permalink**) 28/09/2004, 15:21

necesito ejemplo de un combobox doble y dinamico, tengo 3 dropdownmenu( combobox) pero el problema es que deben ser dinamicos, ahora en dreamweaver solo logre que aparescan pero no logro hcer que sean dinamicos, lo cual , no me sirv mucho,,, el otro problema es capturar los datos en la otra pagina

adjunto la pagina para que vean si alguien sabe y me puede ayudar
sino alguien que tenga un enlace con ejemplo practico que pueda usar. +

================================================

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim Rec_Ger
Dim Rec_Ger_numRows

Set Rec_Ger = Server.CreateObject("ADODB.Recordset")
Rec_Ger.ActiveConnection = MM_biblio_STRING
Rec_Ger.Source = "SELECT * FROM dbo.Gerencia ORDER BY system_id ASC"
Rec_Ger.CursorType = 0
Rec_Ger.CursorLocation = 2
Rec_Ger.LockType = 1
Rec_Ger.Open()

Rec_Ger_numRows = 0
%>
<%
Dim Rec_Sup
Dim Rec_Sup_numRows

Set Rec_Sup = Server.CreateObject("ADODB.Recordset")
Rec_Sup.ActiveConnection = MM_biblioSTRING
Rec_Sup.Source = "SELECT * FROM dbo.superintendencia"
Rec_Sup.CursorType = 0
Rec_Sup.CursorLocation = 2
Rec_Sup.LockType = 1
Rec_Sup.Open()

Rec_Sup_numRows = 0
%>
<%
Dim Rec_Pro
Dim Rec_Pro_numRows

Set Rec_Pro = Server.CreateObject("ADODB.Recordset")
Rec_Pro.ActiveConnection = MM_biblio_STRING
Rec_Pro.Source = "SELECT * FROM dbo.proceso"
Rec_Pro.CursorType = 0
Rec_Pro.CursorLocation = 2
Rec_Pro.LockType = 1
Rec_Pro.Open()

Rec_Pro_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>

<body>
<form name="form1" method="get" action="Cadena.asp">
<table width="616" border="0">
<tr>
<td width="115"> </td>
<td width="130"><select name="select">
<option selected value="">gerencia</option>
<%
While (NOT Rec_Ger.EOF)
%>
<option value="<%=(Rec_Ger.Fields.Item("system_id").Value) %>"><%=(Rec_Ger.Fields.Item("nom_ge").Value)%></option>
<%
Rec_Ger.MoveNext()
Wend
If (Rec_Ger.CursorType > 0) Then
Rec_Ger.MoveFirst
Else
Rec_Ger.Requery
End If
%>
</select></td>
<td width="139"><select name="select">
<option value="" <%If (Not isNull((Rec_Sup.Fields.Item("cod_ge").Value))) Then If ("" = CStr((Rec_Sup.Fields.Item("cod_ge").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Superintendencia</option>
<%
While (NOT Rec_Sup.EOF)
%>
<option value="<%=(Rec_Sup.Fields.Item("system_id").Value) %>" <%If (Not isNull((Rec_Sup.Fields.Item("cod_ge").Value))) Then If (CStr(Rec_Sup.Fields.Item("system_id").Value) = CStr((Rec_Sup.Fields.Item("cod_ge").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(Rec_Sup.Fields.Item("nom_sup").Value)%></option>
<%
Rec_Sup.MoveNext()
Wend
If (Rec_Sup.CursorType > 0) Then
Rec_Sup.MoveFirst
Else
Rec_Sup.Requery
End If
%>
</select></td>
<td width="87"><select name="select">
<option value="">Proceso</option>
<%
While (NOT Rec_Pro.EOF)
%>
<option value="<%=(Rec_Pro.Fields.Item("system_id").Value) %>"><%=(Rec_Pro.Fields.Item("nom_pro").Value)%></option>
<%
Rec_Pro.MoveNext()
Wend
If (Rec_Pro.CursorType > 0) Then
Rec_Pro.MoveFirst
Else
Rec_Pro.Requery
End If
%>
</select></td>
<td width="111"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td><input type="submit" name="Submit" value="Enviar"></td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
<%
Rec_Ger.Close()
Set Rec_Ger = Nothing
%>
<%
Rec_Sup.Close()
Set Rec_Sup = Nothing
%>
<%
Rec_Pro.Close()
Set Rec_Pro = Nothing
%>

Saruman · #2 (**permalink**) 28/09/2004, 15:50

porfa explicate mejor...
que intentas hacer.... creo saberlo pero necesito que me digas exactamente lo que necesitas

carlostapia · #3 (**permalink**) 28/09/2004, 16:06

mira ahora estoy en un problema, no puedo capturar las variables,

y seria bueno que fuera dinamico osea que si pongo en gerencia gerencia1 en el segundo dropdown menu salieran los departamentos que son solo de esa gerencia y no todos

me puedes ayudar porfaaaaaaaaa

orharo2003 · #4 (**permalink**) 28/09/2004, 17:00

Al hacer un onchange el el combo principal envia el valor del indice seleccionado a la misma página, checas cual fue el obtenido haces la consulta sql donde el depto sea al que enviaste, llenas el otro combo y el primero lo vuelves a llenar pero recuerda porner en "selected" el valor recuperado:

Pseudocodigo:

1.- asocia un manejador al combo. [onchange]
2.- Lo envias a la misma página [tu formulario] para que recojas el nuevo valor.
3.- Haces la consulta sql
4.- LLenas los combos y nuevamentelos datos que el user haya ingresado [si no se pierden]
5.- Regresas nuevamente ya con el combo lleno [el 2do]

La idea en ASP

if(request.form("combo")<>"")THEN
'Es la primera vez....

else
' se ha enviado el dato.

sql="sentencia where depto='" & request.form("combo") & " ' "

do while not ob_rs.eof
'llenar como 2
' iteras recordset.....
loop

'llenar el combo 1
if(request.form("combo") ="valores")then
'SELECTED
else
'Seguimos llenando
end if

'llenamos campos sobrantes

Buena, pues esa es la ayuda x mi parte, espero la aproveches.

carlostapia · #5 (**permalink**) 28/09/2004, 20:42

me puedes dar un ejemplo mas concreto

disculpame es que estoy algo perdido,

orharo2003 · #6 (**permalink**) 28/09/2004, 22:28

A ver.... antes de continuar confirmame que te entendí.

Tienes un combo1 y al seleccionarlo que automáticamente llena los datos del combo2 segun el criterio ejemplo:

Combo1 = VW,FORD,NISSAN

Al seleccionar VW que el combo2 muestre:

Golf Jetta,Passat etc....

Estoy correcto ?

Saruman · #7 (**permalink**) 29/09/2004, 07:29

hola, esto es lo que yo hice y estoy utilizando actualmente....
espero te sirva...
solo copie lo que venia al tema y no lo he probado asi solo...
me avisas si captas el mensaje y si te funciono:

Código:

<%
	sSQL = "select * from catalogo_categorias where tipo_producto=" & tipo_producto & " order by titulo"
	set RSCategorias = Master.Execute(sSQL)
%>

<script language="javascript">
	function cambiarcategoria(codcategoria) {
		var f = document.form1
		
		var subcategorias_tituo = new Array();
		var subcategorias_codigo = new Array();
		
		if (f.categorias.value != 0) {
<%
			I = 0
			if RSCategorias.bof=false and RSCategorias.eof=false then
				while not RSCategorias.eof
					sSQL = "select * from catalogo_subcategorias where categoria=" & RSCategorias("codigo") & " and tipo_producto=" & tipo_producto & " order by titulo"
					set RSSubCategorias = Master.Execute(sSQL)
					
					J = 0
					response.Write("if (codcategoria == " & RSCategorias("codigo") & ") {") & vbcrlf
					response.Write(vbtab & "f.subcategorias.options.length = 0;")
					response.Write(vbtab & "sub" & J & " = new Option(""Seleccione una Sub Categoría"",""0"",""defauldSelected"");") & vbcrlf
					response.Write(vbtab & "f.subcategorias.options[" & J & "] = sub" & J & ";") & vbcrlf
					J = J + 1
					while not RSSubCategorias.eof
						subc_codigo = RSSubCategorias("codigo")
						subc_titulo = Apostrofe(RSSubCategorias("titulo"),0)
						response.Write(vbtab & "sub" & J & " = new Option(""" & subc_titulo & """,""" & subc_codigo & ""","""");") & vbcrlf
						response.Write(vbtab & "f.subcategorias.options[" & J & "] = sub" & J & ";") & vbcrlf
						J = J + 1
						RSSubCategorias.movenext
					wend
						
					response.Write("}") & vbcrlf
					
					I = I + 1
					RSCategorias.movenext
				wend
			
				RSCategorias.movefirst
			end if
%>
		} else {
			f.subcategorias.options.length = 0;
			sub0 = new Option("Seleccione una Sub Categoría","0","defauldSelected");
			f.subcategorias.options[0] = sub0;
		}
	}
</script>

<form name="form1" method="post" action="">

<select name="categorias" id="categorias" onChange="cambiarcategoria(this.value)">
<%
	if modo = "agregar" then response.Write("<option value=""0"">Seleccione una Categoría</option>")
	while not RSCategorias.eof
		if RSCategorias("codigo") = categoria then
			response.Write("<option value=""" & RSCategorias("codigo") & """ selected>" & Apostrofe(RSCategorias("titulo"),0) & "</option>")
		else
			response.Write("<option value=""" & RSCategorias("codigo") & """>" & Apostrofe(RSCategorias("titulo"),0) & "</option>")
		end if
		RSCategorias.movenext
	wend
%>
</select>

<select name="subcategorias" id="subcategorias">
	<option value="0">Seleccione una Sub Categoría</option>
</select>

</form>

carlostapia · #8 (**permalink**) 30/09/2004, 13:00

Cita:

Iniciado por orharo2003

A ver.... antes de continuar confirmame que te entendí.

Tienes un combo1 y al seleccionarlo que automáticamente llena los datos del combo2 segun el criterio ejemplo:

Combo1 = VW,FORD,NISSAN

Al seleccionar VW que el combo2 muestre:

Golf Jetta,Passat etc....

Estoy correcto ?

si eso que si elijo una marca cambie los modelos de los autos,

es posible hacer estos sin javascript o debe ser con javascript para que sea dinamico

me peudes dar algun ejemplo, porfa un pedazo de codigo

carlostapia · #9 (**permalink**) 01/10/2004, 07:28

alguna pagina con ejemplo detallado porfas,,,

carlostapia · #10 (**permalink**) 05/10/2004, 19:53

ya po algun otro ejemplito

carlostapia · #11 (**permalink**) 05/10/2004, 20:01

aglun otros