Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

tvvoce

Sistema de busca...

Por , em ASP Clássico

Recommended Posts

tvvoce    0

tvvoce
Postado

Pessoal tentei localizar em diversos sites asp, um sistema de busca simples e funcional, para colocar no meu site, afim de buscar informações no meu banco de dados e exibí-las, mas não encontrei nenhum, alguém poderia me ajudar???Estou on-line no ICQ.Por favôr, é muito importante criar este sistema...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Bicicleta:

Se possível poste para a comunidade, ou então mande um private para mim hehehe :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Eu sou iniciante kra, comecei a mecher com ASP tem no máximo 4 meses.

Muitas coisas que respondo aprendi por aqui tb.

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

rcdesign    1

rcdesign
Postado

e aí bicicleta.... valeu pela postagem... estava mesmo precisando disso.. só estou com um pequeno probleminha...Fiz algumas alterações para minhas necessidades, é claro. Acontece que a busca está sendo efetuada pelo total dos registros do banco de dados e não pelo parâmetro digitado. Além disso quando clico em próxima página ele volta para a página da consulta ao invés de mostrar os próximos registros...Tô postando o código alterado... você (ou alguém) pode me ajudar?

<% ' Conexão com o banco de dadosSet Conexao = CreateObject("ADODB.CONNECTION")Constr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cadastro.mdb")Conexao.Open ConStr' Aqui pega a palavra a ser pesquisa e a ordem que irá mostrarcidade = Request.QueryString("cidade")%><html><head><title>Galeria do Músico - Pesquisa de Músico</title><style type="text/css">.texto {font-family: Verdana; font-size: 11px;}.caixa {font-family: Verdana; font-size: 11px; font-weight: bolder;}.botao {font-family: Verdana; font-size: 11px;}.link:link {color: #000000; text-decoration: none;}.link:visited {color: #000000; text-decoration: none;}.link:hover {color: #000000; text-decoration: underline;}</style></head><body bgcolor="#EEEEEE"><table width="100%" height="100%" border="1" align="center" cellpadding="6" cellspacing="2" bordercolor="#D4D9DB" bgcolor="#FFFFFF" class="texto"><tr>     <td height="22" align="center" bgcolor="#EEEEEE"><b>Sua Pesquisa retornou       os seguintes resultados</b></td></tr><tr> <td valign="top">       <table width="100%" border="0" cellpadding="0" cellspacing="0" class="texto">        <tr>           <td align="center">            <hr size="1" color="#000000">          </td>        </tr>        <tr>           <td>             <% ' Total de registros por páginaregistros = 5pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End IfSet rs = Server.CreateObject("ADODB.RECORDSET")Set rs.ActiveConnection = Conexaors.CursorType = 3rs.PageSize = registros' Instrução SQL que busca nos campos Nome e Descriçãosql = "SELECT * FROM tbmusicos WHERE cidade LIKE'%"&cidade&"%' "rs.Open sqlIf rs.EOF Then' Se não encontrou nada... %>            <div align="center">Não foi encontrado nenhum resultado para: <b><u><%=cidade%></u></b></div>            <% Else' Se encontrou alguma coisa... %>            Resultados encontrados: <b><%=rs.RecordCount%></b>            <hr size="1" color="#000000">            <br>            <% rs.AbsolutePage = paginaWhile Not rs.EOF AND x < rs.PageSizex = x + 1 %>            <table width="100%" border="1" cellspacing="1" cellpadding="0" bordercolor="#003366">              <tr>                 <td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Nome:</b>                   <%=rs("nome")%></font></td>                <td colspan="-1" width="38%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Data                   de Nascimento: </b><%=rs("dtnasc")%> </font></td>              </tr>              <tr>                 <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>E-mail:                   </b><%=rs("email")%></font></td>              </tr>              <tr>                 <td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Instrumento                   Principal: </b><%=rs("instrumento1")%></font></td>                <td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Outros                   Instrumentos:</b> <%=rs("outrosinstr")%></font></td>              </tr>              <tr>                 <td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Estilo                   Principal:</b> <%=rs("estilo1")%></font></td>                <td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Outros                   Estilos:</b> <%=rs("outrosestilos")%></font></td>              </tr>              <tr>                 <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Formação                   Musical:</b> <%=rs("formacao")%></font></td>              </tr>              <tr>                 <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Experiência                   Musical:</b> <%=rs("experiencia")%></font></td>              </tr>              <tr>                 <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Influências:</b>                   <%=rs("influencias")%></font></td>              </tr>              <tr>                 <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Banda                   Atual: </b><%=rs("banda")%></font></td>              </tr>            </table>            <br>            <br>            <% rs.MoveNextWend %>            <p>             <table width="100%" border="0" cellpadding="0" cellspacing="0" class="texto">              <tr>                 <td align="center">                   <% ' Links de Navegaçãoanterior = pagina - 1proxima = pagina + 1If Anterior <> 0 Then %>                  <a class="link" href="pesquisamus.asp?cidade=<%=cidade%>&pagina=<%=anterior%>"><b>Página                   Anterior</b></a>                      <% End IfIf rs.EOF Then' Num tinha o que colocar se fosse verdadeiro, dae deixei em branco e já pulei pra Else. Tah certo? Se souber mande uma PM pra mim!Else %>                     <a class="link" href="pesquisamus.asp?cidade=<%=cidade%>&pagina=<%=proxima%>"><b>Próxima                   Página</b></a>                   <% End If %>                  <% End If %>                </td>              </tr>            </table>          </td>        </tr>      </table></td></tr></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

rcdesign    1

rcdesign
Postado

bom... fiz mais algumas mudanças e consegui resolver o problema da próxima página e da página anterior...Só falta resolver o problema da pesquisa em si que continua verificando e retornando todos os registros do banco de dados independente do parâmetro digitado no formulário de pesquisa...Alguém aí consegue visualizar o erro???

<% ' Conexão com o banco de dadosSet Conexao = CreateObject("ADODB.CONNECTION")Constr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cadastro.mdb")Conexao.Open ConStrcidade = Request.QueryString("cidade")%><html><head><title>Galeria do Músico - Pesquisa de Músico</title><style type="text/css">.texto {font-family: Verdana; font-size: 11px;}.caixa {font-family: Verdana; font-size: 11px; font-weight: bolder;}.botao {font-family: Verdana; font-size: 11px;}.link:link {color: #000000; text-decoration: none;}.link:visited {color: #000000; text-decoration: none;}.link:hover {color: #000000; text-decoration: underline;}</style></head><body bgcolor="#EEEEEE"><table width="100%" height="100%" border="1" align="center" cellpadding="6" cellspacing="2" bordercolor="#D4D9DB" bgcolor="#FFFFFF" class="texto"><tr>     <td height="22" align="center" bgcolor="#EEEEEE"><b>Sua Pesquisa retornou       os seguintes resultados</b></td></tr><tr> <td valign="top">       <table width="100%" border="0" cellpadding="0" cellspacing="0" class="texto">        <tr>           <td align="center">            <hr size="1" color="#000000">          </td>        </tr>        <tr>           <td>             <% ' Total de registros por páginaregistros = 5pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End IfSet rs = Server.CreateObject("ADODB.RECORDSET")Set rs.ActiveConnection = Conexaors.CursorType = 3rs.PageSize = registros' Instrução SQL que busca nos campos Nome e Descriçãosql = "SELECT * FROM tbmusicos WHERE cidade LIKE'%"&cidade&"%' "rs.Open sqlIf rs.EOF Then' Se não encontrou nada... %>            <div align="center">Não foi encontrado nenhum resultado para: <b><u><%=cidade%></u></b></div>            <% Else' Se encontrou alguma coisa... %>            Resultados encontrados: <b><%=rs.RecordCount%></b>            <hr size="1" color="#000000">            <br>            <% rs.AbsolutePage = paginaWhile Not rs.EOF AND x < rs.PageSizex = x + 1 %>            <table width="100%" border="1" cellspacing="1" cellpadding="0" bordercolor="#003366">              <tr>                 <td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Nome:</b>                   <%=rs("nome")%></font></td>                <td colspan="-1" width="38%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Data                   de Nascimento: </b><%=rs("dtnasc")%> </font></td>              </tr>              <tr>                 <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>E-mail:                   </b><%=rs("email")%></font></td>              </tr>              <tr>                 <td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Instrumento                   Principal: </b><%=rs("instrumento1")%></font></td>                <td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Outros                   Instrumentos:</b> <%=rs("outrosinstr")%></font></td>              </tr>              <tr>                 <td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Estilo                   Principal:</b> <%=rs("estilo1")%></font></td>                <td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Outros                   Estilos:</b> <%=rs("outrosestilos")%></font></td>              </tr>              <tr>                 <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Formação                   Musical:</b> <%=rs("formacao")%></font></td>              </tr>              <tr>                 <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Experiência                   Musical:</b> <%=rs("experiencia")%></font></td>              </tr>              <tr>                 <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Influências:</b>                   <%=rs("influencias")%></font></td>              </tr>              <tr>                 <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Banda                   Atual: </b><%=rs("banda")%></font></td>              </tr>            </table>            <br>            <br>            <% rs.MoveNextWend %>            <p>             <table width="100%" border="0" cellpadding="0" cellspacing="0" class="texto">              <tr>                 <td align="center">                   <% ' Links de Navegaçãoanterior = pagina - 1proxima = pagina + 1If Anterior <> 0 Then %>                  <a href="<%=request.servervariables("pesquisamus.asp")%>?pagina=<%=anterior%>">Página Anterior</a>                       <% End IfIf rs.EOF Then' Num tinha o que colocar se fosse verdadeiro, dae deixei em branco e já pulei pra Else. Tah certo? Se souber mande uma PM pra mim!Else %>                     <a href="<%=request.servervariables("pesquisamus.asp")%>?pagina=<%=proxima%>">Próxima Página</a>                   <% End If %>                  <% End If %>                </td>              </tr>            </table>          </td>        </tr>      </table></td></tr></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

rcdesign    1

rcdesign
Postado

Assim não dá pra ser feliz...Quando acerto uma coisa outra dá errado!!!!!!Alterei a linha:' Instrução SQL que busca nos campos Nome e Descriçãosql = "SELECT * FROM tbmusicos WHERE cidade LIKE'%"&cidade&"%' "rs.Open sqlPara: ' Instrução SQL que busca nos campos Nome e Descriçãosql = "SELECT * FROM tbmusicos WHERE cidade = '" & Request("cidade")&"' "rs.Open sqlAgora o script busca no BD corretamente de acordo com a cidade digitada no form de pesquisa, conta quantos registros tem, informa a quantidade correta (no caso tem 6 registros com a cidade 'Curitiba'), mostra os 5 primeiros e inclui no final da página o link para a Próxima Página... quando clico no link ele retorna a página de resposta que não foi encontrado nenhum resultado.... :D :D ???? HELP ME!!!!!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

silas_i    0

silas_i
Postado

você esqueceu de colocar % TEnta assim sql = "SELECT * FROM tbmusicos WHERE cidade = '%" & Request("cidade")&"%' "

Compartilhar este post

Link para o post
Compartilhar em outros sites

rcdesign    1

rcdesign
Postado

Não é isso não Silas... com o % ele nem acha registro no BD... acho que o problema é na paginação....

Compartilhar este post

Link para o post
Compartilhar em outros sites

rcdesign    1

rcdesign
Postado

Galera.. não sei o que deu nem qual foi o problema, mas depois de tanto fuçar, mexer e começar de novo consegui fazer funcionar direitinho hoje de manhã...Agradeço o pessoal que ajudou

Compartilhar este post

Link para o post
Compartilhar em outros sites

knoxville    0

knoxville
Postado

eu queria aprender a fazer um sys de busca, mas por enquanto sem paginação nem nada, alguem pode me ensinar os principios básicos e talz? nao quero pegar esse ae pronto porque eu iria me perder todo e seria ainda pior! :rolleyes: espero que me ajudem! :) obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito