Jump to content

  2. →
  3. →

Fazer Sistema De Consulta Por Combo

Started By -Dionatan- , 17/06/2003, 08:35

  • Faça o login para participar
6 replies to this topic

#1 -Dionatan-

-Dionatan-
  • Visitantes

Posted 17/06/2003, 08:35

Ae Galera!!!

Preciso fazer um sistema de Consulta Atraves de COMBO, buscando as informacoes do Banco!
Alguem tem algum exemplo pra mim ter uma noçao?
Exemplo: 2 COMBOS.
COMBO 1: Marca
COMBO 2: Produtos
Quando o usuario selecionar uma marca, os produtos do combo 2 tem que ser somente referente a marca escolhida no Combo 1!

Obrigado!
Dionatan Boeger

#2 Leandro

Leandro
  • Visitantes

Posted 17/06/2003, 09:11

Cara, vc pode fazer isso de dois jeitos, ou dando refresh na pagina ou usando iframe, eu fiz dos dois jeitos, so que usando iframe eh mais chatinho e o codigo eh maior, vou postar aqui dando refresh na pagina, eh soh vc alterar a conexao com o banco e as tabelas....

<%
Dim con, data_source
data_source = "driver=MySQL;server=127.0.0.1;uid=root;pwd=;database=teste"
Set con = Server.CreateObject("ADODB.Connection")
con.cursorlocation = 3
con.Open data_source
Response.Buffer = False
estado = request("estado")
sql = "select * from estados order by descricao"
set rs = con.execute(sql)
%>
<html>
<head></head>
<body>
<form name="form1" method="post">
<select name="estado" onchange="window.navigate('index.asp?estado='+form1.estado.value)">
<option value="SELECIONE">Selecione o estado</option>
<% while not rs.eof %>
<option value="<%=rs("id")%>"> <%=rs("descricao")%> </option>
<%
rs.movenext
wend %>
</select>
<%
if estado = "" then
%>
<select name="cidade">
<option value="SELECIONE">Selecione a cidade</option>
</select>
<% else
sqlcid = "select * from cidades where idestado = '" &estado& "'"
set rs1 = con.execute(sqlcid)
%>
<select name="cidade">
<option value="SELECIONE">Selecione a cidade</option>
<% while not rs1.eof %>
<option value="<%=rs1("id")%>"> <%=rs1("descricao")%> </option>
<%
rs1.movenext
wend %>
</select>
<% end if %>

</form>
</body>
</html>

Espero ter ajudado e qualquer coisa grita ae...

#3 -Dionatan-

-Dionatan-
  • Visitantes

Posted 17/06/2003, 10:28

Aew Leandro!
Foi bem util seu exemplo: Dai eu fiz assim olha:


<%
caminho = Server.MapPath("db/banco.mdb")
data_source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho
Set Con = server.createobject("adodb.connection")

con.cursorlocation = 3
con.Open data_source
Response.Buffer = False
marca = request("marca")
sql = "select * from CadDriver order by marca"
set rs = con.execute(sql)
%>
<html>
<head></head>
<body>
<form name="form1" method="post">
<select name="marca" onchange="window.navigate('exemplo.asp?marca='+form1.marca.value)">
<option value="SELECIONE">Selecione a marca</option>
<% while not rs.eof %>
<option value="<%=rs("marca")%>"> <%=rs("marca")%> </option>
<% 
rs.movenext
wend %>
</select>
<%
if marca = "" then
%>
<select name="modelo">
<option value="SELECIONE">Selecione o modelo</option>
</select>
<% else
sqlcid = "select * from CadDriver where marca = '" &marca& "'"
set rs1 = con.execute(sqlcid)
%>
<select name="modelo" onchange="window.navigate('exemplo.asp?modelo='+form1.modelo.value)">
<option value="SELECIONE">Selecione o modelo</option>
<% while not rs1.eof %>
<option value="<%=rs1("marca")%>"> <%=rs1("modelo")%> </option>
<% 
rs1.movenext
wend %>
</select>
<% end if %> 

</form>
</body>
</html>

Mas, tipow..
Quando eu seleciono uma marca, exemplo: Philips, a pagina da um refresh, filtra o segundo combo, com apenas MODELOS da marca Philips! Ateh ai muito BOM!

Dai aparece a lista de MODELOS referente aquela Marca!
Dai eu clico em um modelo, e ela carrega assim: exemplo.asp?modelo=MODELOSELECIONADO
Mas, eu queria que ficasse assim: exemplo.asp?marca=MARCASELECIONADA&modelo=MODELOSELECIONADO
E dai filtrasse o terceiro COMBO chamado IDIOMA, correspondente com os itens selecionados nos dois ultimos combos!
E por ultimo, filtrasse pelo Sistema Operacional!!!

Ficando no Final Assim:
exemplo.asp?marca=Philips&modelo=blabla&idioma=portugues&os=win95
entendeu?????

Eu na verdade nao estou conseguindo fazer duas coisas:
Isso aki:
<select name="modelo" onchange="window.navigate('exemplo.asp?modelo='+form1.modelo.value)">
'que teria que ser algo assim:
<select name="modelo" onchange="window.navigate('exemplo.asp?marca='+form1.marca.value&modelo='+form1.modelo.value)">

e sempre que o usuario escolher uma marca, por exemplo, a pagina atualiza mas, o campo marca, tem que aparecer o que ele selecionou!!!!!!!!

HELPPPPPPPPPPPPP
:(


Pode me ajudar? :rolleyes:
Valeu cara por tudo!

Dionatan

#4 <% developer %>

<% developer %>

    Só observando...

  • Usuários
  • 1029 posts
  • Sexo:Não informado
  • Localidade:Manaus - AM

Posted 18/06/2003, 06:26

seguinte, para fazer isso é só você apertar no botão submit do formulário... isso não tá acontecendo porque a cada vez que você seleciona algo do select menu a função do javascript on change (quando mudar) faz redirecionar para outra janela... então eu fiz esse código baseado nos 2 postados e teste aí no seu navegador...

<%
caminho = Server.MapPath("db/banco.mdb")
data_source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho
Set Con = server.createobject("adodb.connection")

con.cursorlocation = 3
con.Open data_source
Response.Buffer = False
marca = request("marca")
sql = "select * from CadDriver order by marca"
set rs = con.execute(sql)
set rs1 = con.execute(sql)
%>
<html>
<head></head>
<body>
<form name="form1" method="get">
<select name="marca">
<option value="SELECIONE">Selecione a marca</option>
<% while not rs.eof %>
<option value="<%=rs("marca")%>"> <%=rs("marca")%> </option>
<% 
rs.movenext
wend %>
</select>
<select name="modelo">
<option value="SELECIONE">Selecione o modelo</option>
</select>
<select name="modelo">
<option value="SELECIONE">Selecione o modelo</option>
<% while not rs1.eof %>
<option value="<%=rs1("marca")%>"> <%=rs1("modelo")%> </option>
<% 
rs1.movenext
wend %>
</select>
</form>
</body>
</html>

Você é de Manaus?

Quer fazer cursos de webdesign, com professor,
1 computador por aluno? E de graça?

Confira em Fundação Paulo Feitoza

Links Legais:

Jogar Dominó Online

Jogar Xadrez Online

Códigos ASP para download

#5 -Dionatan-

-Dionatan-
  • Visitantes

Posted 18/06/2003, 17:34

seguinte, para fazer isso é só você apertar no botão submit do formulário... isso não tá acontecendo porque a cada vez que você seleciona algo do select menu a função do javascript on change (quando mudar) faz redirecionar para outra janela... então eu fiz esse código baseado nos 2 postados e teste aí no seu navegador...

<%
caminho = Server.MapPath("db/banco.mdb")
data_source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho
Set Con = server.createobject("adodb.connection")

con.cursorlocation = 3
con.Open data_source
Response.Buffer = False
marca = request("marca")
sql = "select * from CadDriver order by marca"
set rs = con.execute(sql)
set rs1 = con.execute(sql)
%>
<html>
<head></head>
<body>
<form name="form1" method="get">
<select name="marca">
<option value="SELECIONE">Selecione a marca</option>
<% while not rs.eof %>
<option value="<%=rs("marca")%>"> <%=rs("marca")%> </option>
<% 
rs.movenext
wend %>
</select>
<select name="modelo">
<option value="SELECIONE">Selecione o modelo</option>
</select>
<select name="modelo">
<option value="SELECIONE">Selecione o modelo</option>
<% while not rs1.eof %>
<option value="<%=rs1("marca")%>"> <%=rs1("modelo")%> </option>
<% 
rs1.movenext
wend %>
</select>
</form>
</body>
</html>

Eu jah tinha resolvido cara!!

Mas, valeu ai pela ajuda!!!!!!!!!!!!!!


Falow!

#6 invictus

invictus

    Turista

  • Usuários
  • 52 posts
  • Sexo:Não informado

Posted 10/07/2003, 16:55

ae leandro, dá pra vc postar os campos do bco de dados que vc usou e o formulario usado? to com dificuldades em substituir os campos...

<%
Dim con, data_source
data_source = "driver=MySQL;server=127.0.0.1;uid=root;pwd=;database=teste"
Set con = Server.CreateObject("ADODB.Connection")
con.cursorlocation = 3
con.Open data_source
Response.Buffer = False
estado = request("estado")
sql = "select * from estados order by descricao"
set rs = con.execute(sql)
%>
<html>
<head></head>
<body>
<form name="form1" method="post">
<select name="estado" onchange="window.navigate('index.asp?estado='+form1.estado.value)">
<option value="SELECIONE">Selecione o estado</option>
<% while not rs.eof %>
<option value="<%=rs("id")%>"> <%=rs("descricao")%> </option>
<%
rs.movenext
wend %>
</select>
<%
if estado = "" then
%>
<select name="cidade">
<option value="SELECIONE">Selecione a cidade</option>
</select>
<% else
sqlcid = "select * from cidades where idestado = '" &estado& "'"
set rs1 = con.execute(sqlcid)
%>
<select name="cidade">
<option value="SELECIONE">Selecione a cidade</option>
<% while not rs1.eof %>
<option value="<%=rs1("id")%>"> <%=rs1("descricao")%> </option>
<%
rs1.movenext
wend %>
</select>
<% end if %>

</form>
</body>
</html>


#7 invictus

invictus

    Turista

  • Usuários
  • 52 posts
  • Sexo:Não informado

Posted 11/07/2003, 14:00

cade td mundo? preciso saber issooo
Voltar para ASP


0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq