Busca com filtro

Loko da Web · Fevereiro 18, 2009

Boa tarde.

Fiz um sistema de busca, funciona 100%. Agora falta colocar o filtro,... tenho um form com busca (pesq) e select da palavraexata e qualquerpalavra (busca), segue abaixo como esta a minha select:

If (Request.Form("busca") = "palavraexata") Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "'"
else
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & palavrasem(pesq) & "%' and nome LIKE '%" & palavracom(pesq) & "%'"
end if

Agora gostaria de acrescentar o filtro com as categorias (idcat), de que forma poderia ser feito em cima dessa sql ? Form da busca:

<FORM name="form" action="busca_filmes.asp" method="Post">
<tr><td><input class="textb" type="text" name="pesq" size="40"></td></tr>
<tr><td><select class="textb" size="1" name="idcat">
<option value="todos">Todos</option>
<% 
set conexao = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("db/filmes.mdb")
conexao.open constr
Set rscat=Conexao.Execute("SELECT * FROM categorias ORDER BY nome_cat asc")
%>
<%
While not rscat.EOF
%>
<option value="<%=rscat("id")%>"><%=rscat("nome_cat")%></option>
<%
rscat.Movenext
Wend 
%>
</select></td></tr>
<tr><td><SELECT class="textb" NAME="busca">
<OPTION value="palavraexata">Palavra Exata</OPTION>
<OPTION value="qualquerpalavra" SELECTED>Qualquer Palavra</OPTION>
</SELECT></td></tr>
<tr><td><input class="textb" type="submit" name="submit" value="Buscar"></td></tr>

Editado Fevereiro 18, 2009 por Loko da Web

bareta · Fevereiro 18, 2009

so coloque na sql

and cod="&request.form("cod")

Loko da Web · Fevereiro 19, 2009

E quanto a opção "Todos" ???? porque na select vai ter as categorias e também todos...

Editando...

Fiz conforme bareta pediu, e não deu certo. Digito um nome no campo e seleciono categoria que não faz parte desse nome, em mesmo assim retorna resultado.

pesq=request.form("pesq")
idcat=request.form("idcat")
busca=request.form("busca")

Set RS= Server.CreateObject("ADODB.Recordset")
If (Request.Form("busca") = "palavraexata") Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' AND idcat= " & request.form("idcat") & ""
else
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & palavrasem(pesq) & "%' OR nome LIKE '%" & palavracom(pesq) & "%' AND idcat= " & request.form("idcat") & ""
end if
RS.Open SQL, conn, 3

Editado Fevereiro 19, 2009 por Loko da Web

bareta · Fevereiro 19, 2009

da erro ou o q?

Loko da Web · Fevereiro 19, 2009

da erro ou o q?

Bareta consegui, agora consigo filtrar !!!!!!!! Agora preciso de uma ajuda para colocar a opção "Todas as categorias", esse realmente não sei como aplicar ....

bareta · Fevereiro 19, 2009

crie um option com valor todas...

ai na exibição usa usa um if pra liberar uma sql para todas que não use o

AND idcat= " & request.form("idcat") e outra com ele

Loko da Web · Fevereiro 19, 2009

Mas, já tenho um if, veja abaixo como está:

If (Request.Form("busca") = "palavraexata") Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
else
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
end if

Teria que fazer dois if´s...???

Editado Fevereiro 19, 2009 por Loko da Web

Rafael Spilki · Fevereiro 19, 2009

Substitua por isso aqui e teste:

busca = Request.Form("busca") 
If busca = "palavraexata" Then
response.write "busca = " & busca
response.end
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
else
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
end if

Poste aqui os resultados!

[]'s Rafael Spilki

Loko da Web · Fevereiro 20, 2009

Substitua por isso aqui e teste:

busca = Request.Form("busca") 
If busca = "palavraexata" Then
response.write "busca = " & busca
response.end
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
else
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
end if

Poste aqui os resultados! []'s Rafael Spilki

Rafael, não entendi o que você quiz fazer aqui... pois o resultado dessa busca é o mesmo que postei, não muda nada. Não sei se você entendeu, mas o que estou querendo agora é acrescentar a opção "Todas as categorias", pois o filtro esta funcionando 100%. O meu form esta dessa maneira: form de busca - categorias (falta acrescentar a opção "Todas as categorias") - qualquer palavra e palavra exata - enviar O bareta deu ideia de utilizar um if pra colocar a opção "todos" sem filtro e outro com o filtro, mas eu já tenho um if, só que é pela palavra exata e qualquer palavra. Segue o sql como esta agora:

If (Request.Form("busca") = "palavraexata") Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
else
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
end if

Editado Fevereiro 20, 2009 por Loko da Web

Rafael Spilki · Fevereiro 20, 2009

A sua condicional diz que busca tem que ser exatamente igual a "palavraexata", logo quero confirmar se está vindo assim do bd, para ter certeza de que a condicional realmente funciona... por isso pedi para debugar a variável...

deve ser algo nessa ordem... porque pelo que entendi sua busca sempre acaba no mesmo if!

[]'s

Loko da Web · Fevereiro 20, 2009

A sua condicional diz que busca tem que ser exatamente igual a "palavraexata", logo quero confirmar se está vindo assim do bd, para ter certeza de que a condicional realmente funciona... por isso pedi para debugar a variável...
deve ser algo nessa ordem... porque pelo que entendi sua busca sempre acaba no mesmo if!
[]'s

Sim, dei um response e esta ok, o select da palavraexata funciona... E a ordem é essa mesma. Qualquer coisa que precisar pra ter uma analise melhor é só falar...

Rafael Spilki · Fevereiro 20, 2009

Bom... você tentou na forma que eu sugeri? Que resultados apareceram?

São várias coisas diferentes... pra começar o set da variável antes de entrar na condiconal! A remoção de parenteses desnecessário e outras coisinhas mais...

Poste o resultado exato daquele debug que seguimos!

[]'s

Editado Fevereiro 20, 2009 por Rafael Spilki

Loko da Web · Fevereiro 20, 2009

Hummm enterndi... continua fazendo a busca, não esta sendo debugado. Acho que esta faltando alguma coisa, pois a busca continua dando resultado.

Rafael Spilki · Fevereiro 20, 2009

Ok... então acho que minhas suspeitas estavam certas...

tente assim:

busca = Request.Form("busca")
response.write "busca = " & busca
response.end
If busca = "palavraexata" Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
else
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
end if

poste aqui os resultados desse debug.

[]'s Rafael Spilki

Loko da Web · Fevereiro 20, 2009

Selecionando o qualquer palavra

busca = qualquerpalavra

Selecionando a palavra exata

busca = palavraexata

Rafael Spilki · Fevereiro 20, 2009

tente assim:

busca = Request.Form("busca")
'response.write "busca = " & busca
'response.end
If busca = "palavraexata" Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
elseif busca = "qualquerpalavra" then
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
end if

[]'s Rafael Spilki

Loko da Web · Fevereiro 20, 2009

Continua fazendo a busca, não esta sendo debugado.

Rafael Spilki · Fevereiro 20, 2009

E o problema continua o mesmo ou agora corrigiu?

Loko da Web · Fevereiro 20, 2009

Dessa forma abaixo, imprimiu na tela com qualquer palavra selecionado:

busca = qualquerpalavra

Selecionando a palavra exata

busca = palavraexata

busca = Request.Form("busca")
response.write "busca = " & busca
response.end
If busca = "palavraexata" Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
else
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
end if

Agora, fazendo dessa forma abaixo:

tente assim:

busca = Request.Form("busca")
'response.write "busca = " & busca
'response.end
If busca = "palavraexata" Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
elseif busca = "qualquerpalavra" then
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
end if

[]'s Rafael Spilki

Rafael, continua fazendo a busca, dessa forma acima que postou,... Desculpe minha inconviniencia, mas o que você esta querendo fazer com estes response.write, fiquei apenas curioso ?????

Rafael Spilki · Fevereiro 20, 2009

Não tem mais nenhum response.write! Veja a ' (aspas simples) na frente deles...

busca = Request.Form("busca")
'response.write "busca = " & busca
'response.end
If busca = "palavraexata" Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
elseif busca = "qualquerpalavra" then
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
end if

Estão todos desabilitados... não estou querendo debugar mais nada... estou querendo que você teste essa nova forma de condicional que eu fiz pra você e veja se funciona!

Loko da Web · Fevereiro 20, 2009

Bah... nem notei esse detalhe. Sim, Rafael dessa forma esta funcionando que nem antes, 100% !!!!

Rafael Spilki · Fevereiro 20, 2009

;)

Legal... qualquer coisa posta aí!

Loko da Web · Fevereiro 20, 2009

Rafael, agora falta colocar a opção "Todas as categorias", tentei fazer assim:

If busca = "palavraexata" Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
elseif busca = "qualquerpalavra" then
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
elseif filtro = "todos" then
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%'"
end if

Microsoft JET Database Engine error '80040e10' 

No value given for one or more required parameters.

Rafael Spilki · Fevereiro 20, 2009

essa variavel filtro vem do form?

você setou ela como eu fiz com busca?

Não se esqueça dos detalhes!

[]'s Rafael Spilki

Loko da Web · Fevereiro 27, 2009

Bah... não estou conseguindo resolver o problema, estou a dias tentando e nada !!!!!

bareta · Fevereiro 27, 2009

tu já deu response.write na sql e viu o q ela ta escrevendo?

Entrar

Busca com filtro

Pergunta

Link para o comentário

Compartilhar em outros sites

34 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns