Ir para conteúdo
Fórum Script Brasil
  • 0

Filtrar Usando O Combo Box


EvandroSP

Pergunta

Olha, desculpem minhas perguntas infantis, sou programador Delphi e começei a me aventurar em Asp faz 4 dias, to com outra duvida agora, preciso que ao clicar no Link "APLICAR" seja executado um filtro de marcas que está selecionado no Combo... por enquanto eu deixei a Marca "ROLINE" como Default... olhe

/testes/asp_firebird/index.asp

a questão é simples, como pegar o valor selecionado num ComboBox (Menu Suspenso)???

e uma outra pergunta.. se eu inserir comandos em java Script consigo abrir em todos os tipos de Navegadores ??

Muito Obrigado!!

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

O ao clicar em APLICAR, você da um submit na página index.asp, e no select faça o um WHERE onde o codigo da marca seja igual ao valor que você selecionou na combo.

EX: Coloque o codigo abaixo dento das tags ASP

IF request("id_table") <> "" THEN
  Set tabMar = Server.CreateObject("ADODB.RecordSet")
  sql = "SELECT nome1, nome2, nome3 FROM marcas where codMarca = " & request("id_table")
  tabMar.Open sql, conSTR

    WHILE not tabMar.EOF
       respons.write ....
       tabMar.MoveNext
    WEND

END IF

id_tabl é o nome da sua combo.

desse jeito que você fez não dá :

<a href="index7.asp?Fmarca="&id_table.selected>APLICAR</a>

Troque por:

<button name=enviar onclick='Form1.submit()'>Enviar</button> (Coloque dentro do seu FORM)

Troque os nomes do campos do SELECT de acordo com sua tabela, qualquer coisa tecla aí...

Link para o comentário
Compartilhar em outros sites

  • 0

Olha, fiz as mudanças mais ainda não deu certo... vê se você entende ai, Abraços!!!!

<% 
set strConexao = CreateObject("ADODB.Connection") 
strConexao.Open("DRIVER=Firebird/InterBase® driver; UID=SYSDBA;PWD=masterkey; DBNAME=localhost:C:\Inetpub\wwwroot\testes\asp_firebird\sgrep.gdb") 
Set Clientes = Server.CreateObject("ADODB.Recordset") 

Sql = "SELECT * FROM grpro "
IF request("id_table") <> "" THEN
   Sql = Sql & " where marca = '" & Request("id_table") & "'"
end if
set Clientes  = strConexao.Execute(Sql)%>
 <html> 
<body> 

<form NAME=Form1 method="POST">
<button name=enviar onclick='Form1.submit()'>Enviar</button>
</form>
<br>

<BR>
<SELECT NAME="id_table">
<OPTION selected>TODOS</OPTION>
<%Set Marcas = Server.CreateObject("ADODB.Recordset") 
Set Marcas = strConexao.Execute("SELECT Distinct Marca FROM grpro")%>

<%While Not Marcas.EOF%>
<OPTION><%=Marcas("marca")%></OPTION>
<%Marcas.MoveNext
Wend
Marcas.MoveFirst%>
</SELECT>&nbsp; <b><a href="index.asp?Fmarca="&id_table.Value>APLICAR</a></b>

<br>

<table border="1" width="100%" height="26">
  <% 
  cont = 1
  Clientes.MoveFirst
  for i = 1 to 100 
 etc....................................

Link para o comentário
Compartilhar em outros sites

  • 0

é cade o value do option

<OPTION value=<%=Marcas("id")%>><%=Marcas("marca")%></OPTION>

esse id ai seria algo como sei lá um numero ou pode ser o proprio nome veja ai se ajudar!

você pode sim usar javascript! só toma cuidado para não usar uma coisa que não esta de acordo com os browser ai nesse caso tem que ir testando!!!!

Link para o comentário
Compartilhar em outros sites

  • 0

olha, Não funcionou ainda, alguém pode me ajudar ??

segue a URL do projeto

http://testes/asp_firebird/index.asp

Código Completo

<% 
set strConexao = CreateObject("ADODB.Connection") 
strConexao.Open("DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA;PWD=masterkey; DBNAME=localhost:C:\Inetpub\wwwroot\testes\asp_firebird\sgrep.gdb") 
Set Clientes = Server.CreateObject("ADODB.Recordset") 

Sql = "SELECT * FROM grpro "
IF request("id_table") <> "" THEN
   Sql = Sql & " where marca = '" & Request("id_table") & "'"
end if
set Clientes  = strConexao.Execute(Sql)%>

<html> 
<head>
<title>Conectando</title>
</head> 
<body> 

<form NAME=Form1 method="POST">
<button name=filtrar onclick='Form1.submit()'>Filtrar</button>
</form>

<br>

<BR>
<SELECT NAME="id_table">
<OPTION selected>TODOS</OPTION>
<%Set Marcas = Server.CreateObject("ADODB.Recordset") 
Set Marcas = strConexao.Execute("SELECT Distinct Marca FROM grpro")%>

<%While Not Marcas.EOF%>
<OPTION value=<%=Marcas("marca")%>><%=Marcas("marca")%></OPTION>
<%Marcas.MoveNext
Wend
Marcas.MoveFirst%>
</SELECT>&nbsp; 

<br>

<table border="1" width="100%" height="26">
  <tr>

.....


as demais linhas é só o preenchimento da table!!!

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...