13/06/2002, 09:47
|
| | | Fecha de Ingreso: junio-2002
Mensajes: 1
Antigüedad: 22 años, 11 meses Puntos: 0 | |
| Re: pregunta sólo para expertos por su dificultad.
<%
'Aquí teneis lo que buscais, espero que os sirva...
'Por ejemplo tienes la siguiente conexión:
'cnConexion = "la que sea"
'Y las siguientes tablas relacionadas y queremos que cuando seleccionemos una marca de la primera de las listas aparezcan en la segunda lista los modelos relacionados:
'Tabla: MARCAS (PK_ID_MARCA, NOMBRE_MARCA)
'Tabla: MODELOS (PK_ID_MODELO, FK_ID_MARCA, NOMBRE_MODELO)
%>
<html>
<body>
<form name="marcas" action="consultar_modelo.asp" method="post">
<select name="lista1" onChange="location.replace(location.href+'?pk _id_marca='+this.options[this.options.selectedIndex].value);">
<option value="">Todas las marcas</option>
<%
Set rsMarcas = Server.CreateObject("ADODB:Recordset")
rsMarcas.Open "select * from marcas", cnConexion
Do Until rsMarcas.EOF
%><option value="<%= rsMarcas("pk_id_marca") %>" <% If Request.QueryString("pk_id_marca") = CStr(rsMarcas("pk_id_marca")) Then %>selected<% End If %>><%= rsMarcas("nombre_marca") %></option><%
rsMarcas.MoveNext
Loop
rsMarcas.Close
Set rsMarcas = Nothing
%>
</select>
<select name="lista2">
<%
Set rsModelos = Server.CreateObject("ADODB:Recordset")
'Ahora dependiendo de si hemos seleccionado alguna marca o todas generamos la correspondiente consulta:
If Request.QueryString("pk_id_marca") <> "" Then
strSql = "select * from modelos where fk_id_marca = " & Request.QueryString("pk_id_marca")
Else
strSql = "select * from modelos"
End If
rsModelos.Open strSql, cnConexion
Do Until rsModelos.EOF
%><option value="<%= rsModelos("pk_id_modelo") %>"><%= rsModelos("nombre_modelo") %></option><%
rsModelos.MoveNext
Loop
rsModelos.Close
Set rsModelos = Nothing
'Espero que esta página os sirva de ayuda, no es muy complicado, espero que lo pilléis.
'También espero no haberme confundido en nada.
'Un saludo.
%>
<input type="submit" name="Consultar modelo de la marca seleccionada">
</select>
</form>
</body>
</html> |