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

Sistema De Busca...


X.bArArA.X

Pergunta

O negócio é o seguinte, não estou conseguindo fazer um sistema de busca.

Tipo, tem uma page chamada buscar.asp que só tem um campo e um botaum, cuja action de seu form, leva para a página buscando.asp. Aí qeu está minha dificuldade. Aparentemente, não acontece nenhum erro, mas nada é mostrado na minha tela.

buscar.asp

<table width="100%" border="0" cellspacing="0">
  <tr> 
    <td align="center"><form method="post" action="buscando.asp">
        <input name="buscar" type="text" id="buscar">
        <input type="submit" name="Submit" value="Busca">
      </form></td>
  </tr>
</table>
buscando.asp
<%

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

DB.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dados\banco.mdb"))

executar="Select * from noticias where sessao = '%" & request ("buscar") & "*'" 
set rs = DB.execute(executar)
%>
<html>
<head>
<title></title>
<link rel="stylesheet" href="style.css">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="0">
  <tr> 
    <td align="center"> 
      <%
dim i, cor
i = 0
do while not rs.eof
i=i+1
if i mod 2 = 0 then cor = "#efefef" else cor = ""
%>
      <table width="15%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td align="center">[<a href="apagar.asp?id=<%=rs("id")%>">Apagar</a>] 
            - [<a href="editar.asp?id=<%=rs("id")%>">Editar</a>]</td>
        </tr>
        <tr> 
          <td width="69%" align="center"> <div align="left"> 
              <table width="224" border="0" cellspacing="1">
                <tr bgcolor="<%=cor%>"> 
                  <td width="69" align="center" valign="middle"><a href="ver.asp?id=<%=rs("id")%>"><img src="<%=rs("url")%>" width="65" height="65" border="0"></a></td>
                  <td width="224" valign="top"><p align="justify"><strong><i><%=rs("sessao")%>:</i> 
                      <%=rs("titulo")%></strong><br>
                      <a href="ver.asp?id=<%=rs("id")%>"><%=rs("dia")%>&nbsp-&nbsp<%=rs("descricao")%></a></p></td>
                </tr>
                <tr> 
                  <td height="14" colspan="2"><div align="center"><img src="linha.jpg" width="224" height="8"> 
                    </div>
                    <div align="center"></div></td>
                </tr>
              </table>
            </div></td>
        </tr>
        <%
rs.movenext
loop
%>
      </table></td>
  </tr>
</table>
</font>
</body>
</html>

Tipo, aí só tá pegando dentro do campo sessao. Gostaria que procurasse no banco todo e me desse o resultado.

Valewz...!

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

Acho que voce deveria usar o LIKE... e também não entendi o *.. tente isso aí embaixo...

executar="Select * from noticias where sessao LIKE '%" & request ("buscar") & "%'" 
set rs = DB.execute(executar)
Para verificar em outros campos, use o OR... exemplo...
where sessao LIKE ..... OR campo2 LIKE ...

[]'s

Nelson Soares

http://www.ondagospel.com.br

Link para o comentário
Compartilhar em outros sites

  • 0

Tipo... Fiquei com mais uma duhvida. Este código que eu tenho, ele não mostra uma resposta, ou seja, se ele acha no bd, ele mostra, caso contrahrio, a tela fica limpa. Queria colocah uma mensagem tipo que nada foi encontrado, sabe...

Outra coisa, o negohcio de OR LIKE para colocar mais campos, deu erro aqui. Não funfou. EU coloquei assim:

executar="Select * from noticias where sessao LIKE OR corpo LIKE OR descricao LIKE '%" & request ("buscar") & "%'" 
set rs = DB.execute(executar)

Link para o comentário
Compartilhar em outros sites

  • 0

Mas voce precisa analisar campo por campo...

executar="Select * from noticias where sessao LIKE '%" & request ("buscar") & "%' OR corpo LIKE '%" & request ("buscar") & "%' OR descricao LIKE '%" & request ("buscar") & "%'" 
set rs = DB.execute(executar)
Se não encontrar nada, voce pode dar um aviso, ou redirecionar para outra pagina.
<%
if rs.EOF then
Response.Write ("pagina.asp")
end if

[]'s

Nelson Soares

http://www.ondagospel.com.br

Link para o comentário
Compartilhar em outros sites

  • 0

Vlewzaum, pgmador...! Deu certinho! Uma última dúvida (eu acho), tem como deixar a busca mais exata, ou informar para a pessoa quando a busca é ou não exata. Por ex, digita lá BONÉ. Porém, no banco de dados, consta só BONÉS. Queria indicar para a pessoa que BONÉ não foi encontrado, mas BONÉS sim, e mostrar o resultado.

Acho que é só isso, por enquanto. Obrigado!

Link para o comentário
Compartilhar em outros sites

  • 0

Olha.. eu nunca fiz isso não.. mas tenho uma idéia.. não sei se é o melhor jeito...

Primeiro você busca onde os campos são iguais ao que foi digitado.

executar="Select * from noticias where sessao = '" & request ("buscar") & "' OR corpo='" & request ("buscar") & "' OR descricao='" & request ("buscar") & "'" 
set rs = DB.execute(executar)
<%=rs("campo")%>
Nesta, o que você buscar será o que veio exatamente igual. E para pegar apenas as que contém o que foi digitado, mas não é igual
executar="Select * from noticias where sessao LIKE '%" & request ("buscar") & "%' OR corpo LIKE '%" & request ("buscar") & "%' OR descricao LIKE '%" & request ("buscar") & "%'" AND NOT EXISTS (Select * from noticias where sessao = '" & request ("buscar") & "' OR corpo='" & request ("buscar") & "' OR descricao='" & request ("buscar") & "')
set rs2 = DB.execute(executar)
<%=rs2("campo")%>

Esta é a idéia.. desenvolva em cima disto.

[]'s

Nelson Soares

http://www.ondagospel.com.br

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
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...