Busca

Robson Martins · Dezembro 7, 2009

Boa noite gostaria de uma ajuda com uma busca

seria assim

gostaria de poder ir filtrando a busca assim

eu escolho apartamento e ai viria todo os apartamentos do banco de dados

e ai eu colocaria para mais um filtro com bairro exemplo santo amaro ai filtraria todos os apartamentos na região de santo amaro e assim por diante ate chegar um apartamento desejado como eu poderia fazer isto com o asp.

Eu já uso este código só que se eu por desta forma na da certo.

Este aqui e o código

<%
sql_categ = "SELECT DISTINCT categoria FROM categorias"
sql_tipo = "SELECT DISTINCT tipo FROM tipos"
sql_cidade = "SELECT DISTINCT cidade_imob FROM imoveis"
sql_local = "SELECT DISTINCT bairro_imob FROM imoveis"
Set exe_categ = banco.execute(sql_categ)
Set exe_tipo = banco.execute(sql_tipo)
Set exe_cidade = banco.execute(sql_cidade)
Set exe_local = banco.execute(sql_local)
%>
<table width="64%" border="0" cellpadding="0" cellspacing="0">
  <form action="resultados.asp" method="post">
    <tr>
      <td width="4%" height="10" align="center" valign="middle">
</td>
      <td width="16%" align="center" valign="middle">
  <select name="f_categoria"  id="f_categoria" class=fonte9 style="VERTICAL-ALIGN: middle; WIDTH: 124px; BACKGROUND-COLOR: #d6deeb">
        <option selected>Categoria</option>
        <%WHILE NOT exe_categ.eof%>
        <%Response.Write "<option>"& exe_categ("categoria") &"</option>"
										 exe_categ.MOVENEXT : WEND%>
      </select></td>
      <td width="2%" align="center" valign="middle"> </td>
      <td width="14%" align="center" valign="middle"><select name="f_tipo" id="f_tipo" class=fonte9 style="VERTICAL-ALIGN: middle; WIDTH: 124px; BACKGROUND-COLOR: #d6deeb">
        <option selected>Finalidade</option>
        <%WHILE NOT exe_tipo.eof%>
        <%Response.Write "<option>"& exe_tipo("tipo") &"</option>"
										 exe_tipo.MOVENEXT : WEND%>
      </select></td>
      <td width="4%" align="center" valign="middle"> </td>
      <td width="14%" align="center" valign="middle"><select name="f_cidade" id="f_cidade" class=fonte9 style="VERTICAL-ALIGN: middle; WIDTH: 124px; BACKGROUND-COLOR: #d6deeb">
        <option selected>Cidade</option>
        <%WHILE NOT exe_cidade.eof%>
        <%Response.Write "<option>"& exe_cidade("cidade_imob") &"</option>"
										 exe_cidade.MOVENEXT : WEND%>
      </select></td>
      <td width="3%" align="center" valign="middle"> </td>
      <td width="16%" align="center" valign="middle"><select name="f_local"  id="f_local" class=fonte9 style="VERTICAL-ALIGN: middle; WIDTH: 124px; BACKGROUND-COLOR: #d6deeb">
        <option selected>Bairro</option>
        <%WHILE NOT exe_local.eof%>
        <%Response.Write "<option>"& exe_local("bairro_imob") &"</option>"
										 exe_local.MOVENEXT : WEND%>
      </select></td>
      <td width="1%" align="center" valign="middle"> </td>
      <td width="4%" align="center" valign="middle">
      <INPUT style="VERTICAL-ALIGN: bottom" type=image src="img/pesquisar.gif">
      <!--<input type="submit" value="Processar" name="B1" class="ft8" style="font-family: Arial; font-size: 11 px"></td>-->
      <td width="22%" align="center" valign="middle"> </td>
    </tr>
  </form>
</table>
</td>
</tr>

</table>

xanburzum · Dezembro 11, 2009

ele gera algum erro ????

tem um exemplo de imobilizaria, k disponibilizei, onde você tem a opcao de fazer esses filtros

por categoria,local e tipo de compra (aluguel ou compra)

desisto · Dezembro 11, 2009

if filtro = bairro then

filtroSelect = "and bairro="&variavel&""

end if

select * tbl where condicao1 "&filtroSelect&""

acho que seria +- assim

xanburzum · Dezembro 11, 2009

olha este exemplo, apos o user selecionar a categoria, o tipo de imovel e o local (bairro) eu faço a paginacaun

<%@ LANGUAGE="VBSCRIPT"%>
<!--#include file="includes/config.asp"-->
<!--#include file="includes/abrebanco.asp"-->
<!--#include file="includes/adovbs.inc"-->
<%
var_categoria = Request.form("f_categoria")
var_tipo = Request.form("f_tipo")
var_local = Request.form("f_local")

Response.Expires = 0

Const intPageSize = 20

If Request.Querystring = "" then
	intCurrentPage = 1
Else
	intCurrentPage = CInt(Request.Querystring("CurrentPage"))
	Select Case Request.Querystring("Submit")
		Case "Previous"
			intCurrentPage = intCurrentPage -1
		Case "Next"
			intCurrentPage = intCurrentPage +1
		End Select
End If

Set exe = Server.CreateObject("ADODB.Recordset")
exe.CursorLocation = adUseClient
exe.CursorType = adOpenStatic
exe.CacheSize = intPageSize

sql = "SELECT * FROM imoveis WHERE categoria = '"& var_categoria &"' AND tipo = '"& var_tipo &"' AND bairro = '"& var_local &"'"
exe.Open sql, banco, , , adCmdText

exe.PageSize = intPageSize
If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage

intTotalPages = exe.PageCount
%>

<head>
<title><%=titulo%></title>
<link href="<%=local%>includes/styles/link.css" rel="stylesheet" type="text/css">
<style>
<!--
font         { font-family: Arial; font-size: 11 }
-->
</style>
</head>

<body bgcolor="<%=fundo%>" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="77"><!--#include file="includes/barra.asp"--></td>
  </tr>
  <tr>
    <td height="284"><table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="67" height="284" valign="top" rowspan="2" bgcolor="#EBEBEB"></td>
          <td width="597" height="0" valign="top" rowspan="2"><table width="537" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="0" width="535"> </td>
              </tr>
              <tr> 
                <td height="0" width="535"><%=fonte02%><strong>Resultado da busca</strong></td>
              </tr>
              <tr> 
                <td height="0" width="535"> </td>
              </tr>
              <tr> 
                <td height="0" width="535"><div align="center"><%=fonte02%> 
                    <%If var_categoria = "Informe a categoria" Then
Response.Write "Informe a categoria"
Elseif var_tipo = "Informe o tipo" Then
Response.Write "Informe o tipo"
Elseif var_local = "Informe o local" Then
Response.Write "Informe o local"
Else
%>
                  </div></td>
              </tr>
              <tr> 
                <td height="0" width="535"> 
                  <%
If exe.EOF then
Response.Write fonte02 & "<center>Não foi encontrado nenhum imóvel com essas especificações.</center>"
Else
%>
                  <div align="center"></div>
                  <table width="100%" cellpadding="0" cellspacing="1" bgcolor="<%=table_color%>">
                    <tr> 
                      <td width="40" bgcolor="<%=tit_fundo%>"><%=fonte03%> <div align="center">Cód.</div></td>
                      <td width="82" bgcolor="<%=tit_fundo%>"><%=fonte03%> 
                        <div align="center">Local</div></td>
                      <td width="87" bgcolor="<%=tit_fundo%>"><%=fonte03%> 
                        <div align="center">Edifício</div></td>
                      <td width="34" bgcolor="<%=tit_fundo%>"><%=fonte03%> 
                        <div align="center">Área</div></td>
                      <td width="39" bgcolor="<%=tit_fundo%>"><%=fonte03%> 
                        <div align="center">Dorm.</div></td>
                      <td width="36" bgcolor="<%=tit_fundo%>"><%=fonte03%> 
                        <div align="center">Suítes</div></td>
                      <td width="29" bgcolor="<%=tit_fundo%>"><%=fonte03%> 
                        <div align="center">Foto</div></td>
                      <td width="34" bgcolor="<%=tit_fundo%>"><%=fonte03%> 
                        <div align="center">Tipo</div></td>
                      <td width="74" bgcolor="<%=tit_fundo%>"><%=fonte03%> 
                        <div align="center">Preço(R$)</div></td>
                      <td width="17" bgcolor="<%=tit_fundo%>"><%=fonte03%> 
                        <div align="center">mais</div></td>
                    </tr>
                    <%For intI = 1 to exe.PageSize%>
                    <%IF linha THEN%>
                    <tr bgcolor="<%=td_color01%>"> 
                      <%ELSE%>
                    <tr bgcolor="<%=td_color02%>"> 
                      <%END IF : linha = not linha%>
                      <td width="40"><div align="center"><%=fonte01%><%=exe("id")%></div></td>
                      <td><div align="left"></div>
                        <%=fonte01%><%=exe("bairro")%></td>
                      <td><div align="left"></div>
                        <%=fonte01%> 
                        <%If exe("edificio") = "" then Response.Write "--" Else Response.Write exe("edificio") End If%>
                      </td>
                      <td><div align="center"><%=fonte01%><%=exe("area")%></div></td>
                      <td><div align="center"><%=fonte01%><%=exe("dormitorio")%></div></td>
                      <td><div align="center"><%=fonte01%><%=exe("suite")%></div></td>
                      <td width="29"><div align="center"> 
                          <%If IsNull(exe("foto1")) Then Response.Write foto_nao Else Response.Write foto_sim End If%>
                        </div></td>
                      <td><div align="center"><%=fonte01%><%=exe("tipo")%></div></td>
                      <td><div align="left"></div>
                        <%=fonte01%><%=exe("preco")%></td>
                      <td width="17"><div align="center"><a href="mais.asp?categoria=<%=exe("categoria")%>&id=<%=exe("id")%>"><strong><%=fonte01%>mais</strong></a></div></td>
                    </tr>
                    <%exe.movenext
					If exe.EOF Then Exit For
            		Next%>
                    <tr> 
                      <td bgcolor="<%=tit_fundo%>" colspan="10"><div align="right"> 
                          <%
response.write fonte04&"Página: "

for i = 1 to exe.pagecount

if i = cint(intCurrentPage) then
   response.write i & " "
else
   response.write "<a href='" & request.servervariables("script_name") & "?currentpage=" & i & "'>" & i & "</a> "
end if
next
%>
                        </div></td>
                    </tr>
                  </table>
                  <%End if
End If%>
                </td>
              </tr>
              <tr> 
                <td height="0" width="535"><div align="center"></div></td>
              </tr>
              <tr> 
                <td height="0" width="535"><div align="center"><%=fonte01%><a href="javascript:window.history.go(-1)">Voltar</a></div></td>
              </tr>
              <tr>
                <td height="0" width="535"> </td>
              </tr>
            </table></td>
          <td width="154" valign="top"><!--#include file="includes/menuesq.asp"--></td>
        </tr>
        <tr>
          <td width="154" valign="top"><!--#include file="includes/menudir.asp"--></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="50" valign="top"><!--#include file="includes/rodape.asp"--></td>
  </tr>
</table>
</body>
<!--#include file="includes/fechabanco.asp"-->

Robson Martins · Dezembro 11, 2009

Ola xanburzum

Eu to querendo que quando eu selecionar na list categoria ele já busca se os apartamentos sem a necessidade de apertar o botão de pesquisa.

Bom e ai com toda aquela lista de apartamentos na tela vamos dizer que eu gostaria de poder escolhe o bairro e vamos supor que tinha 100 apartamentos eu pegaria no list bairro o bairro de santo amaro e ai sem ter necessidade de apertar o botão de pesquisa ele já filtraria os 100 apartamentos do banco de dados e cairia para 40 apartamentos no bairro de santo amaro.

Você me entendeu como seria a busca esta busca que este ai neste código ate funciona mais para achar uma coisa você tem que colocar todos os campos do list.

Eu gostaria de uma coisa mais dinâmica

E eu não sei fazer isto que estou querendo.

xanburzum · Dezembro 11, 2009

Eu to querendo que quando eu selecionar na list categoria ele já busca se os apartamentos sem a necessidade de apertar o botão de pesquisa.

usa o evento onBlur no list

Robson Martins · Dezembro 11, 2009

me encina ai esta coisa ja procurei en tudo e não achei nada.

xanburzum · Dezembro 11, 2009

me manda uma MP, k te passo

Robson Martins · Dezembro 11, 2009

beleza

xanburzum · Dezembro 12, 2009

te envio amanha, pis esta em outra maq.

Arquivado

Busca

Recommended Posts

Robson Martins 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

desisto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Robson Martins 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Robson Martins 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Robson Martins 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante