Busca consiliada

Boris · Novembro 25, 2007

Galera, estou com um problema, não consigo fazer uma busca consiliada.

Tenho varios campos que tem que ser combinadas ou não...

Imagem Postada

esotu colocando meu codigo logo abaixo, eu cheguei a procuar no site mas não encontrei.

E até então a busca so é realizada se eu colocar todos os dados se eu deixar de colocar um deles ele não encontra.

e o que eu preciso é se não colocar um dos campos ele ignora esse campos e tras todos desse campo.

index.html

ASP

<html>

<head>

<title>Moradia Imobiliária</title>

<!--

.style1 {

font-family: arial;

color: #FFFFFF;

font-weight: bold;

font-size: 10px;

}

.cx {

font-family: verdana;

font-size: 10px;

color: #333333;

text-decoration: none;

}

.textobr {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FFFFFF; text-decoration: none}

-->

</style>

<!--

function MM_jumpMenu(targ,selObj,restore){ //v3.0

eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");

if (restore) selObj.selectedIndex=0;

}

//-->

</script>

</head>

<tr>

</tr>

<tr>

<tr>

<tr>

<option>Imóvel</option>

<option value="Apartamento">Apartamento</option>

<option value="Sobrado">Sobrado</option>

<option value="Terreno">Terreno</option>

</select>

</div></td>

<option>Selecione</option>

<option value="Aluguel">Aluguel</option>

<option value="Venda">Venda</option>

</select>

</div></td>

</tr>

</table>

</div></td>

</div></td>

<option>Selecione</option>

<option>Indiferente</option>

</select>

</div></td><td width="77" height="36" background="seg_asp/Imagens/line_fundo.jpg"><input type="submit" name="Submit" value="Buscar" class="cx"></td>

</tr>

<tr>

<tr>

</td>

</tr>

</table></td>

</tr>

<tr>

<tr>

</tr>

</table></td>

</tr>

</table>

</td>

</tr>

</table>

</form>

</body>

</html>

buscar.asp

ASP

<% @Language = VBScript %><%session.LCID=1046%>

<%

busca_tipo = Request.QueryString("busca_tipo")

busca_venda = Request.QueryString("busca_venda")

strBusca = Request.QueryString("busca")

valor = Request.QueryString("valor")

%>

<!--

.cx { font-family: verdana;

font-size: 10px;

color: #333333;

text-decoration: none;

}

.style1 { font-family: arial;

color: #FFFFFF;

font-weight: bold;

font-size: 10px;

}

.style7 {color: #FFFFFF; font-weight: bold; font-size: 10px; }

.style8 {font-family: Verdana, Arial, Helvetica, sans-serif; color: #FFFFFF; text-decoration: none;}

.texto {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #666666; text-decoration: none}

.texto8bold {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #3F68AD; text-decoration: none}

.texto8boldred {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FF0000; text-decoration: none }

.style10 {

font-family: verdana;

font-weight: bold;

font-size: 10px;

}

.style11 {

font-size: 12px;

color: #666666;

}

.style12 {font-size: 11px}

.style14 {color: #FFFFFF; font-weight: bold; font-size: 11px; }

.textobr {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FFFFFF; text-decoration: none}

.style16 {

font-size: 12pt;

font-weight: bold;

color: #666666;

}

-->

</style>

<tr>

</tr>

<tr>

<tr>

<tr>

<option>Imóvel</option>

<option value="Apartamento">Apartamento</option>

<option value="Sobrado">Sobrado</option>

<option value="Terreno">Terreno</option>

</select>

</div></td>

<option>Selecione</option>

<option value="Aluguel">Aluguel</option>

<option value="Venda">Venda</option>

</select>

</div></td>

</tr>

</table>

</div>

</div></td>

<option>Selecione</option>

<option>Indiferente</option>

</select>

</div></td>

</tr>

<tr>

<tr>

<tr>

<td>

<%

if busca_tipo <> "" then

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("../bd/bd.mdb")

Set RsConexao = Server.CreateObject("ADODB.Connection")

RsConexao.Open stringConexao

strSQL = "SELECT * FROM imovel WHERE referencia LIKE '%"& strBusca &"%'"

else

if busca_venda <> "" then

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("../bd/bd.mdb")

Set RsConexao = Server.CreateObject("ADODB.Connection")

RsConexao.Open stringConexao

strSQL = "SELECT * FROM imovel WHERE desc_aluguel LIKE '%"& busca_venda &"%'"

else

if strBusca <> "" then

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("../bd/bd.mdb")

Set RsConexao = Server.CreateObject("ADODB.Connection")

RsConexao.Open stringConexao

strSQL = "SELECT * FROM imovel WHERE tp_imovel LIKE '%"& busca_tipo &"%'"

else

if valor <> "" then

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("../bd/bd.mdb")

Set RsConexao = Server.CreateObject("ADODB.Connection")

RsConexao.Open stringConexao

strSQL = "SELECT * FROM imovel WHERE valor LIKE '%"& valor &"%'"

end if

Set RS = RsConexao.Execute(strSQL) %>

<span class="style11">Resultados</span></div>

</td>

</tr>

<tr>

</tr>

<tr>

<tr>

<td width="15%" height="20" bgcolor="#0033CC" class="texto"><div align="center" class="style7 style12"><a href="modelo.html" class="style8">Referência</a></div></td>

<td width="33%" class="texto" bgcolor="#0033CC"><div align="center" class="style14"><a href="modelo.html" class="style8">Bairro</a></div></td>

<td width="16%" class="texto" bgcolor="#0033CC"><div align="center" class="style14">Dormitórios</div></td>

<td width="11%" class="texto" bgcolor="#0033CC"><div align="center" class="style14">Vagas</div></td>

<td width="25%" class="texto" bgcolor="#0033CC"><div align="center" class="style14">Preço</div></td>

</tr>

</table>

<%While not RS.EOF%>

</span></font>

<tr>

<% response.Write(rs("referencia")) %>

</div></td>

<% response.Write(rs("bairro")) %>

</font></a></div></td>

<% response.Write(rs("dormitorios")) %>

</a></div></td>

<% response.Write(rs("vagas")) %>

</font></a></div></td>

</div></td>

<% response.Write(rs("valor"))%>

</div></td>

</tr>

</table>

<%

RS.MoveNext

Wend

%>

<!-- </span></font> <br>

<font face="Arial"> Não foi informado nenhum dado. </font></p>

-->

<%

%>

<br>

</span></font></div></td>

</tr>

</table>

<tr>

<tr>

<td class="textobr"><div align="center"><font color="#FFFFFF">Moradia Imobiliária

- Tel.: (11) 6546.2299 8211; Fax: (11) 6943.2121 - contato@moradia.imb.br</font></div></td>

</tr>

</table></td>

</tr>

</table>

</td>

</tr>

</table></td>

</tr>

</table>

</td>

</tr>

</table>

</form>

</body>

Como não encotrei no forum nenhum topico ou modelo assim estiver funcionando essa busca eu vou deixar ele enxuto pra postar aqui no forum....

Valew pela força galera.

Desde já eu agradeço a força de voceis...

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

jrcardozo · Novembro 26, 2007

duas alternativas....faça usando ajax(mais complexo) ou faço uma logica com IF para verificar quals campos estão preenchidos e vai concatenando o where do SQL em uma variavel(de acordo com os itens preenchidos), depois executa o sql normalmente concatenando essa variavel do where ao restante do sql

Boris · Novembro 26, 2007

Teria como você me fazer um exemplo por favor ? é que sou meio leigo e estou aprendendo junto ao forum....

Valew

Wallcrawler · Novembro 28, 2007

Quando trabalhava com o projeto de imobiliárias, utilizo esse tipo de montagem do SQL:

ASP

sql = "SELECT * FROM `imoveis` where ativo = 1 "

cont = 0

For each Obj In Request.Form

If Request.Form(Obj) <> "" and Cstr(obj) <> "Submit" and Cstr(obj) <> "cnpj_cpf" and CStr(Obj) <> "vl_min" and CStr(Obj) <> "vl_max" then

cont = cont + 1

end if

if cont = 0 then

Response.Write ""

Else

sql = sql & " and "

i = 1

For Each Obj In Request.Form ' Supondo o uso do method = "post"

If Request.Form(Obj) <> "" and Cstr(obj) <> "Submit" and Cstr(obj) <> "cnpj_cpf" and CStr(Obj) <> "vl_min" and CStr(Obj) <> "vl_max" then ' aqui removo os campos que não quero que seja exibido.

if i = cont then

SQL = SQL & Obj & "='" & Request.Form(Obj) & "' "

else

SQL = SQL & Obj & "='" & Request.Form(Obj) & "' and "

i = i + 1

end if

Lembrando que o atributo name dos campos do form tem de ser igual ao campo correspondente no banco de dados.

Daí é só estudar um pouquinho e adaptar.

Flw

Entrar

Arquivado

Busca consiliada

Recommended Posts

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wallcrawler 0

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

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante