Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
EvandroSP

Filtrar Usando O Combo Box

Question

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

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

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

Share this post


Link to post
Share on other 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....................................

Share this post


Link to post
Share on other 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!!!!

Share this post


Link to post
Share on other 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!!!

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148483
    • Total Posts
      644138
×
×
  • Create New...