Filtrar Usando O Combo Box

EvandroSP · Junho 28, 2006

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!!

DataSet · Junho 28, 2006

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í...

EvandroSP · Junho 28, 2006

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....................................

Deividy · Junho 29, 2006

é cade o value do 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!!!!

EvandroSP · Junho 29, 2006

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!!!

Entrar

Filtrar Usando O Combo Box

Pergunta

EvandroSP

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

DataSet

Link para o comentário

Compartilhar em outros sites

EvandroSP

Link para o comentário

Compartilhar em outros sites

Deividy

Link para o comentário

Compartilhar em outros sites

EvandroSP

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades