Brunao Postado Outubro 18, 2004 Denunciar Share Postado Outubro 18, 2004 <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .style1 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; } --> </style> </head> <body> <% Dim DB set DB = Server.CreateObject("ADODB.Connection") DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\db\balada.mdb") DB.mode = adModeRead DB.open Set rso = DB.Execute("SELECT DISTINCT Cidade FROM estabelecimentos WHERE cidade ORDER BY cidade ASC") %> <form name="form1" method="post" action=""> <p><span class="style1">Cidade:</span><br> <select name="cidade"> <%while not rso.eof%> <option><%=Response.Write(rso.fields("cidade"))%></option> <%rso.movenext%> <%wend%> <%rso.Close%> <%set rso = nothing%> </select> <br> <span class="style1">Estabelecimento: </span><br> <select name="select"> <% Set rs = DB.Execute("SELECT estabelecimento FROM estabelecimentos WHERE estabelecimento ORDER BY estabelecimento ASC") %> <%while not rs.eof%> <option><%=Response.Write(rs.fields("estabelecimento"))%></option> <%rs.movenext%> <%wend%> <%rs.Close%> <%set rs = nothing%> <%SET DB = NOTHING%> </select> </body> </html> O primeiro select seleciona as diferentes cidades, eu queria que o segundo select só mostrasse os estabelecimentos referente a cidade, como faço isso?Abraços !!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 DackAle Postado Outubro 18, 2004 Denunciar Share Postado Outubro 18, 2004 A logica é você jogar um looping dentro do outro tipo, faz o primeiro selectSet rso = DB.Execute("SELECT DISTINCT Cidade FROM estabelecimentos WHERE cidade ORDER BY cidade ASC")while not.rso.eofcidade = rso("cidade")%>dai utilizzando o registro atual acima você faz o outro select pegando os dados da cidade atual com o where, é só abrir um novo record set, com where cidade='" & cidade "' dai não se esqueça de fazer o loping deste record set (do where) fecha-lo e dai fazer o loping do rso ai em cima =)Abraços, qualquer coisa só postar Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Brunao
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .style1 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; } --> </style> </head> <body> <% Dim DB set DB = Server.CreateObject("ADODB.Connection") DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\db\balada.mdb") DB.mode = adModeRead DB.open Set rso = DB.Execute("SELECT DISTINCT Cidade FROM estabelecimentos WHERE cidade ORDER BY cidade ASC") %> <form name="form1" method="post" action=""> <p><span class="style1">Cidade:</span><br> <select name="cidade"> <%while not rso.eof%> <option><%=Response.Write(rso.fields("cidade"))%></option> <%rso.movenext%> <%wend%> <%rso.Close%> <%set rso = nothing%> </select> <br> <span class="style1">Estabelecimento: </span><br> <select name="select"> <% Set rs = DB.Execute("SELECT estabelecimento FROM estabelecimentos WHERE estabelecimento ORDER BY estabelecimento ASC") %> <%while not rs.eof%> <option><%=Response.Write(rs.fields("estabelecimento"))%></option> <%rs.movenext%> <%wend%> <%rs.Close%> <%set rs = nothing%> <%SET DB = NOTHING%> </select> </body> </html>O primeiro select seleciona as diferentes cidades, eu queria que o segundo select só mostrasse os estabelecimentos referente a cidade, como faço isso?
Abraços !!!!
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.