Pessoal, gostaria de fazer um combo dinâmico com os comandos do dreamweaver, tipo:
selecione a marca do seu carro fiat, gm, ford.....
no outro combo el escolheria o modelo... uno, premio, (para fiat) corsa, monza (para gm) e assim por diante, tudo isso claro extraido de um banco access.
Agradeço a quem possa ajudar.
Combo Dinâmico
Started By gonzalo, 13/10/2003, 10:28
2 replies to this topic
#1
gonzalo
-
- Usuários
-
- 16 posts
Novato no fórum
- Sexo:Não informado
- Localidade:Rio de Janeiro
- Interesses:ASP, todos os produtos Macromedia, internet ...
Posted 13/10/2003, 10:28
#2
cybermix
-
- Ex-Admins
-
- 3586 posts
andrewsmedina.com.br
- Sexo:Não informado
- Localidade:Não sou desse planeta não!!!!
- Interesses:python, fireworks, linux, php, flash...
Posted 13/10/2003, 11:49
gonzalo,
da proxima vez utilize o mecanismo de busca ok?
eu recomendo que leia a seguinte coluna do imasters
http://www.imasters....?codcoluna=1433
da proxima vez utilize o mecanismo de busca ok?
eu recomendo que leia a seguinte coluna do imasters
http://www.imasters....?codcoluna=1433
www.andrewsmedina.com.br
#3
gonzalo
-
- Usuários
-
- 16 posts
Novato no fórum
- Sexo:Não informado
- Localidade:Rio de Janeiro
- Interesses:ASP, todos os produtos Macromedia, internet ...
Posted 13/10/2003, 12:17
Obrigado pela resposta e a dica cybermix, de qqer forma vc me ajuda a descrubrir o erro?? , o script supra mencionado no imasters não extrai os dados do segundo combo.gonzalo,
da proxima vez utilize o mecanismo de busca ok?
eu recomendo que leia a seguinte coluna do imasters
http://www.imasters....?codcoluna=1433
anexo script. ...e muito obrigado mesmo...
<%
'Efetuando a conexão com a base de dados criada
Set objConn = Server.CreateObject("AdoDb.Connection")
objConn.provider="Microsoft.Jet.OLEDB.4.0"
objConn.connectionstring=Server.Mappath("db/testerelacional.mdb")
objConn.open
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="form1">
<select name="txt_categoria" onChange="BuscaProdutos()">
<% 'aqui setamos na propriedade onChange, a função BuscaProdutos(). A cada mudança, a função é executada.%>
<option>-- Selecione --</option>
<%
SQL_Cat = "select * from categorias order by categoria"
Set RS_Cat = objConn.Execute(SQL_Cat)
Do Until RS_Cat.EOF
Response.Write "<option value="&RS_Cat("id")&">"&RS_Cat("categoria")&"</option>"
RS_Cat.MoveNext
Loop
%>
</select>
<br>
<select name="txt_produto">
</select>
</form>
<script>
function BuscaProdutos()
{
var categoria = document.form1.txt_categoria.options[document.form1.txt_categoria.selectedIndex].value;
var controle = 0
var contador = 0
<%
SQL_Cat2 = "select * from categorias order by categoria"
Set RS_Cat2 = objConn.Execute(SQL_Cat2)
Do Until RS_Cat2.EOF
SQL_Prod = "select * from produtos where id_categoria = "&RS_Cat2("id")
Set RS_Prod = objConn.Execute(SQL_Prod)
SQL_Count = "select count(*) as maximo from produtos where id_categoria = "&RS_Cat2("id")
Set RS_Count = objConn.Execute(SQL_Count)
Do Until RS_Prod.EOF
%>
if(<%=RS_Prod("id_categoria")%> == categoria && controle < <%=RS_Count("maximo")%>)
{
controle++
document.form1.txt_produto.options[contador]=new Option('<%=RS_Prod("produto")%>','<%=RS_Prod("id")%>');
contador++
}
<%
RS_Prod.MoveNext
Loop
RS_Cat2.MoveNext
Loop
%>
}
</script>
Edição feita por: gonzalo, 13/10/2003, 16:37.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
