Ir para conteúdo
Fórum Script Brasil
  • 0

Busca com filtro


Loko da Web

Pergunta

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 por Loko da Web
Link para o comentário
Compartilhar em outros sites

Posts Recomendados

  • 0

Dei response dessa maneira:

response.write "filtro = " & filtro
response.end
Quando digito uma palavra no campo, e seleciono uma categoria e depois seleciono qualquer palavra, não é passado nenhum valor, a mesma acontece quando seleciono palavra exata... to achando que qualquer palavra e palavra exata estão desativadas ???? Fica assim:
filtro =
Mas, digito um palavra no campo, e seleciono "todas as categorias,... aparece esse erro:
Microsoft JET Database Engine error '80040e10' 

No value given for one or more required parameters

Link para o comentário
Compartilhar em outros sites

  • 0

tenta fazer assim ó:

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

poste o resultado.

Link para o comentário
Compartilhar em outros sites

  • 0
tenta fazer assim ó:

If busca = "palavraexata" Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & ""
end if 
if busca = "qualquerpalavra" then
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & ""
end if
if filtro = "todos" then
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%'"
end if
response.write(sql)
response.end()
poste o resultado.
Tentei dessa forma, quando digito um dado e seleciono "todos", aparece esse erro:
Microsoft JET Database Engine error '80040e10' 

No value given for one or more required parameters.
a linha apontada:
if filtro = "todos" then
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%'"
end if

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...