Combo Box

[Juliano Gomes 0]

pessoal, aqui tenho 2 combo boxes... o primeiro busca busca as marcas de carros que tenho cadastrado na tabela marcas da seguinte maneira:

 

<!--#include file="conexao.asp" --><%Dim Sql, RS, oConn		 	Sql = "SELECT * FROM marcas"Set RS = Server.CreateObject("ADODB.Recordset")RS.Open SQL, oConn, 2, 3 %><select name="marca" id="marca" style="border-color: #000000; border-width: 1; border-style: solid; background-color:#FFFFFF; font-size: 10; font-family: verdana; width=130px;"  onChange="carregar();"><option value="" selected>Informe a Marca</option><option value="-">-</option> <% response.write("<option></option>")do while (RS.eof = false)response.write("<option value=" & RS("CODIGO") & ">" & RS("NOME") & "</option>")RS.movenextloopRS.closeSet RS = NothingoConn.closeSet oConn = Nothing %></select>

até ai funcionando 100%... o problema é que no meu segundo combo box, gostaria de buscar os NOMES dos modelos cujo CODIGO_MARCA da tabela modelos = CODIGO da marca que eu selecionar no primeiro combo box...

 

alguem poderia me ajudar com isso? nao tenho nem ideia de como se faz isso...

 

ESTRUTURA DAS DUAS TABELAS:

---------------------------------------

 

TABELA MARCAS:

/* Table: MARCAS, Owner: SYSDBA */CREATE TABLE MARCAS(  CODIGO			INTEGER NOT NULL,  NOME			  VARCHAR(50) NOT NULL,  CONSTRAINT PK_MARCAS PRIMARY KEY (CODIGO));

TABELA MODELOS

/* Table: MODELOS, Owner: SYSDBA */CREATE TABLE MODELOS(  CODIGO			INTEGER NOT NULL,  NOME			  VARCHAR(50) NOT NULL,  CODIGO_MARCA			INTEGER NOT NULL,  CONSTRAINT PK_MODELOS PRIMARY KEY (CODIGO));

[lisa 0]

Oi Juliano...Talvez seja interessante você utilizar AJAX...

[arr 0]

http://www.imasters.com.br/artigo/2936/jav...te_sem_refresh/

[Robex 171 0]

Caso nao tenha tempo de estudar o AJAX faça o seguinte...Coloque o Combo de NOMES dentro de um ifif marca<>"" then sql = "select * from tabela where idMarca=" & idMarca... COMBO COM O NOME DOS CARROSend ifOu seja o código só passará e só irá gerar o COMBO NOMES se o usuário já tiver selecionado uma MARCA.Isso resolve?

[Juliano Gomes 0]

valleu amigos... vou dar uma olhadinha em cada sugestao de voces e ver qual seria a mais adaequada para mim, qualquer coisa volto a entrar em contato...abração!

[Juliano Gomes 0]

http://www.imasters.com.br/artigo/2936/jav...te_sem_refresh/

isso aew arr, valleu pela dica, funcionou certinho aqui... quando me sobrar um tempo quero dar uma estudada em AJAX como sugesationado pelos amigos, bom agora aproveitando o mesmo tópico para dar prosseguimento no formulário, pintou outro erro problema...tenho a pagina "consulta.asp" que é incluida nas outras paginas atravez de um include. tal pagina é o Form da busca (assunto do problema resolvido acima)tenho tambem a pagina "busca_carros.asp" que é onde contem os codigos em asp com a sql para a busca no banco de dados.O meu problema agora é o seguinte quando mando fazer uma consulta (consulta.asp) o que me é retornado é: "Nenhum registro enconrtado". Esse "Nenhum registro enconrtado" é uma condiçao para caso a busca nao encontre nada, contido na pagina "busca_carros.asp". isso seria normal se eu nao tivesse registros na minha tabela ou mesmo se a consulta nao achasse o que eu procuro, porem pra testes eu pesquiser exatamente pelo que tenho na tabela, e o resultado: "Nenhum registro enconrtado".nao sei se o problema está no meu código, na minha sql, em fim... nao consegui ver o problemaBom vou começar postando aqui a estrutura da tabela "veiculos", onde é feita a busca depois das duas paginas acima descritas. se alguem puder me dar uma mão ai, fico grato....Obs: Banco de dados = Mysql 5abraçao!TABELA VEICULOS---------------------

/* Table: VEICULOS, Owner: SYSDBA */CREATE TABLE VEICULOS(  CODIGO			INTEGER NOT NULL,  TIPO			  INTEGER NOT NULL,    MARCA			  VARCHAR(50) NOT NULL,  MODELO			  VARCHAR(50) NOT NULL,  COR			VARCHAR(50) NOT NULL,  NOME			  VARCHAR(50) NOT NULL,  ANO				   VARCHAR(4) NOT NULL,  VALOR			DECIMAL(15, 2) NOT NULL,  OPCIONAIS		 	VARCHAR(300) NOT NULL,  FOTO				  VARCHAR(100),  UNIDADE_VENDA		VARCHAR(50) NOT NULL,  CONSTRAINT PK_VEICULOS PRIMARY KEY (CODIGO));

PAGINA CONSULTA.ASP----------------------------

<%Function EscreveFuncaoJavaScript ( Conexao )'O parametro conexao receberá uma conexao aberta!'Em funcoes, geralmente não criamos objetos do tipo conexões!'Opte por sempre deixar sua função o mais compatível possível com qualquer projeto!'Primeiro vamos escrever o cabecalho de qualquer script javascript!Response.Write "<script language=""JavaScript"">" & vb script:atualizacarros(this.form);">		<% While NOT Rs.EoF %>		<option value="<% = Rs("CODIGO") %>">		<% = Rs("NOME") %>		</option>		<% Rs.MoveNext %>		<% Wend %>	  </select></td>	</tr>	<tr>	  <td class="style4">Modelo:</td>	</tr>	<tr>	  <td class="white"><select name="modelos" style="border-color: #000000; border-width: 1; border-style: solid; background-color:#FFFFFF; font-size: 10; font-family: verdana; width=130px;">		<option value="">Informe o Modelo</option>	  </select></td>	</tr>	<tr>	  <td class="style4" style="padding-right:10px;">Ano:</td>	</tr>	<tr>	  <td class="style1" style="padding-right:10px;"><label></label>		  <input name="ano_1" type="text" size="4" maxlength="4">		à		<input name="ano_2" type="text" size="4" maxlength="4">	  </td>	</tr>	<tr>	  <td class="style4" style="padding-right:10px;">Preço:</td>	</tr>	<tr>	  <td class="white" style="padding-right:10px;"><label>		<input name="RG2" type="radio" value="1" checked="checked" />		<span class="style1"> Ponta de estoque</span></label>		<span class="style1"><br />		<label>		<input type="radio" name="RG2" value="2" />Até R$10.000</label>		<br />		<label>		<input type="radio" name="RG2" value="3" />R$10.000 a R$20.000</label>		<br />		<label>		<input type="radio" name="RG2" value="4" />R$20.000 a R$25.000</label>		<br />		<label>		<input type="radio" name="RG2" value="5" />R$25.000 a R$30.000</label>		<br />		<label>		<input type="radio" name="RG2" value="6" />Acima de R$30.000</label>		</span></td>	</tr>		<tr>	  <td class="white" style="padding-right:10px;"><div align="center">		  <input name="btn_consultar" type="submit" value="Consultar">	  </div></td>	</tr>  </table>  <p>	<%'Fechando os objetos! Rs.CloseSet Rs = NothingConexao.CloseSet Conexao = Nothing %>  </p></form>

PAGINA BUSCA_CARROS.ASP---------------------------------

<%Dim oRS, oConn, strSQL,Marca, Modelo, Ano1, Ano2, Preco, results, tipo %> <!-- #include file ="conexao.asp" --><%strSql = "SELECT * FROM veiculos"' RG = Radio Goup com duas opçoestipo = Request.Querystring("RG")Select Case tipoCase "rb_novo"strSql = strSql & " WHERE TIPO LIKE 1"Case "rb_usado"strSql = strSql & " WHERE TIPO LIKE 2"End Select			Marca  = Request.Querystring("marcas")strSql = strSql & " AND MARCA LIKE '%" & marcas & "%'"Modelo  = Request.Querystring("modelos")strSql = strSql & " AND MODELO LIKE '%" & modelos & "%'"Ano1  = Request.Querystring("ano_1")Ano2  = Request.Querystring("ano_2")strSql = strSql & " AND ANO BETWEEN '%" & Ano1 & "%' AND '%" & Ano2 & "%'"			' RG2 = Radio Group com 6 opçoes			preco = Request.Querystring("RG2")Select Case preco Case "1" strSql = strSql & " AND VALOR < 10000.00"Case "2" strSql = strSql & " AND VALOR =< 10000.00" Case "3" strSql = strSql & " AND VALOR BETWEEN 10000.00 AND 20000.00"Case "4" strSql = strSql & " AND VALOR BETWEEN 20000.00 AND 25000.00"Case "5" strSql = strSql & " AND VALOR BETWEEN 25000.00 AND 30000.00"Case "6" strSql = strSql & " AND VALOR > 30000.00" Case Else strSql = strSql & " AND VALOR > 1"End Select						Set oRS = Server.CreateObject("ADODB.Recordset")oRS.Open strSQL, oConn, 2, 3If oRS.EOF ThenResponse.Write "<div align='center'><font color='#333333'>Nenhum registro enconrtado</font></div>"Else%><%Do While Not oRS.EOF%>			  <table width="183" border="0" cellpadding="0" cellspacing="0">			<tr>			  <td width="18"> </td>			  <td colspan="2" class="white"><div align="center"><span class="style3"><%=oRS("NOME")%></span></div></td>			</tr>			<tr>			  <td></td>			  <td colspan="2" class="white"><div align="center" class="style3"><img  src=""<%=oRS("FOTO	")%>"" width="132" height="87"></div></td>			  </tr>			<tr>			  <td></td>			  <td width="17" class="style4"> </td>			  <td width="148" class="style4">Marca: <%=oRS("MARCA")%></td>			</tr>			<tr>			  <td></td>			  <td class="style4"> </td>			  <td class="style4">Modelo: <%=oRS("MODELO")%></td>			</tr>			<tr>			  <td></td>			  <td class="style4"> </td>			  <td class="style4">Cor: <%=oRS("COR")%></td>			</tr>			<tr>			  <td></td>			  <td class="style4"> </td>			  <td class="style4">Preço: <%=oRS("PRECO")%></td>			</tr>		  </table>					<%oRS.MoveNextLoopEnd IfoRS.CloseSet oRS = NothingoConn.CloseSet oConn = NothingResponse.Write Server.URLEncode(results)Response.expires = now%>