Ir para conteúdo

POWERED BY:

Arquivado

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

vivi@ne

Paginação ou filtro,

Recommended Posts

Tirei aquele monte de código que não tava rolando... a parte que tá quase pronta, coloquei mais embaixo. Depois que tiver completo posto o código pra quem quiser usar.Bjs

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá vivi@ne,Ao fazer a paginação o filtro não é feito..e vice - versa.Tentou fazer o filtro em um código separado????Até!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá vivi@ne,Ao fazer a paginação o filtro não é feito..e vice - versa.Tentou fazer o filtro em um código separado????Até!!

Bruno a idéia é ótima, mas como vou conciliar os dois, tenho que colocar um include aí nessa página, mas se eu colocar o mesmo filtro que usava antes vai dar o mesmo problema de conflito... tem uma idéia de como posso fazer?Bjs até mais

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Vivi@ne,Colocando um "include" seu código fica separado e mais fácil de ser visualizado.Tente fazer!! Se der erro, retorne aqui ;)Até!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Vivi@ne,Colocando um "include" seu código fica separado e mais fácil de ser visualizado.Tente fazer!! Se der erro, retorne aqui ;) Até!!

E aí carinha, beleza...Então já fiz com include e não vira nada, continua dando o mesmo erro.O que acontece é o seguinte, uso Case Select pra filtrar as informações, só que tá dando conflito no RecordSet - WebRs.open Sql, BdWeb, 3Quando eu altero o select pra session aí o filtro vai pro saco...A questão é como resolver o conflito sem perder o filtro? Dá uma olhada nos dois códigos onde deixei em vermelho, é lá que tá o problema...agradeço os toques...bjs Vivi

Compartilhar este post


Link para o post
Compartilhar em outros sites

Vivi@ne,Tente usar para abrir o Record Set esse comando "WebRs.Open Sql, BdWeb, 3, 3"Se não rolar a páginação, você já tentou usar ao invés de Select case uns ifs? ^_^ Bjo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Após algumas alterações começou a dar certo, apaginação tá funcionando 100% e o filtro qualse, mas estou com uma dúvida que deve parecer besta mas não enxergo mais o problema...

 

OS IFs... Como eu posso agora fazer com que se eu alterar o tipo de busca ele encontre esse dado que eu quero?

 

A parte do ASP que tá quase certa:

 

<%@LANGUAGE="VBSCRIPT" %>

<%

Option Explicit

 

Dim registros, paginas

registros = 3

pagina = Request.QueryString("pagina")

If pagina = "" Then

pagina = 1

End If

 

Dim Filtro

Filtro = Cstr(Trim((Request.Form("Criterio"))))

 

 

Dim Palavra

Palavra = Request.Form("Palavra")

 

Dim BdWeb

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

BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")

 

Dim Sql

Sql = Session("Sql")

If Sql = "" Then

Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" & Palavra & "%' And NumeroMedauto LIKE '%" & Filtro & "%' Order By Descricao" 'esse tem que ter mais coisa

End If

 

Dim WebRs

Set WebRs = Server.CreateObject("ADODB.Recordset")

WebRs.PageSize = registros

WebRs.Open Sql, BdWeb, 3

 

If WebRs.EOF Then %>...

 

E a parte que busca no html

 

<form action="resultado_busca.asp" method="post" name= "Criterio">

<table width="646" border="1" align="center" bordercolor="#666666">

<tr>

<td width="207"> <span class="style6"> </span><span class="style15">

<label><span class="style16">Palavra / Descrição / Número </span></label>

</span><span class="style13"> </span></td>

<td width="227">

<center class="style6">

<input name="Palavra" type="text" onChange="MM_validateForm(' ','','R');return document.MM_returnValue" size="23" >

</center>

</td>

<td width="190" rowspan="3">

<center>

<span class="style13">Para número Medauto utilize o formato xxxxx-x.<br>

Para número Original, insira conforme código do fabricante</span>

</center>

</td>

</tr>

<tr>

<td> <span class="style13">

<label>Procurar por: </label>

</span> </td>

<td>

<center>

<select class="style13" >

<option value="NumeroMedauto"> Numero Medauto </option>

<option value="NumeroOriginal"> Numero Original </option>

<option value="Descricao">Descrição / Aplicação</option>

</select>...

 

O que tem que mudar nesses IF da pg asp pra buscar nesse form HTML se determinada opção for escolhida?

 

Ah não pode ser Select Case, pois dá conflito...

 

Bjs

(espero que uma boa alma venha me ajudar, falta tão pouco...rs)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá vivi@ne,Quantos campos estão disponíveis para filtrar...Tente fazer com um..verifique o funcionamento..Após isso coloque o seu código para te ajudarmos, ok ;) ?Até!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

DEU CERTO!!!!!!!!Tô colocando o código pronto pra quem precisar fazer a busca com LIST/MENU e CAMPO E TEXTO E PAGINAÇÃO se alguém precisar de uma mãozinha chama no msn osasconet@hotmail.com<%@LANGUAGE="VBSCRIPT" %><%Option ExplicitDim registros, paginasregistros = 3pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End IfDim FiltroFiltro = Cstr(Trim((Request.Form("Criterio"))))Dim OpcoesOpcoes = Request("opcoes")IF Opcoes = "" Then Opcoes = 1Dim Palavra Palavra = Request.Form("Palavra") Dim BdWebSet BdWeb = Server.CreateObject("ADODB.Connection")BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb") Dim SqlSql = Session("Sql")If Opcoes = 1 thenSql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" & Palavra & "%' And NumeroMedauto LIKE '%" & Filtro & "%' Order By Descricao"End IfIf Opcoes = 2 thenSql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" & Palavra & "%' And NumeroOriginal LIKE '%" & Filtro & "%' Order By Descricao"End IfIf Opcoes = 3 thenSql = "SELECT * FROM Pesquisa WHERE Descricao LIKE '%" & Palavra & "%' And Descricao LIKE '%" & Filtro & "%' Order By Descricao"End If Dim WebRsSet WebRs = Server.CreateObject("ADODB.Recordset")WebRs.PageSize = registrosWebRs.Open Sql, BdWeb, 3If WebRs.EOF Then %> Nenhuma informação localizada ! <%Else WebRs.MoveFirst WebRs.AbsolutePage = pagina%> <%Do While Not WebRs.EOF AND x < WebRs.PageSizeDim xx = x + 1 %> <div align="center"> <center> <table width="95%" height="78" border="1" style="border-collapse: collapse" bordercolor="#CCCCCC" cellpadding="0" cellspacing="0"> <tr bordercolor="#CCCCCC"> <td width="40%" height="120" rowspan="3" bgcolor="#FFFFFF"> <div align="center"><img src="<%=WebRs.Fields("Imagem")%>" border="no" align="absmiddle"> </div> </td> <td width="2%" rowspan="3"> </td> <td width="58%" height="25" bordercolor="#CCCCCC"><span class="style6"><b>Número Medauto: </b><%=WebRs.Fields("NumeroMedauto")%></span></td> </tr> <tr> <td height="25" bordercolor="#CCCCCC"><span class="style6"><b>Número Original: </b><%=WebRs.Fields("NumeroOriginal")%></span></td> </tr> <tr> <td height="70" bordercolor="#CCCCCC"><span class="style6"><b>Descrição/Aplicação: </b><%=WebRs.Fields("Descricao")%></span></td> </tr> </table> </center> </div> </h2> <span class="style6"> <%WebRs.MoveNextLoopDim anterior, pagina, proxima, ultima, primeira, ultm2anterior = pagina - 1proxima = pagina + 1ultima = WebRs.PageCountprimeira = 1ultm2 = FormatNumber(WebRs.PageCount - 1,0)If pagina <> 1 ThenResponse.Write " <a href=resultado_busca.asp?pagina="&primeira&">Primeira Página</a></b> "End IfIf pagina > 1 AND pagina <> 2 ThenResponse.Write "<a href=resultado_busca.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> "End IfIf pagina > 1 ThenResponse.Write " <a href=resultado_busca.asp?pagina="&anterior&">"&anterior&"</a> "End IfResponse.Write "<b> ["&pagina&"]</b> "If Not WebRs.EOF ThenResponse.Write " <a href=resultado_busca.asp?pagina="&proxima&">"&proxima&"</a> "End IfIf Not WebRs.EOF AND pagina <> ultima AND pagina <> ultm2 ThenResponse.Write " <a href=resultado_busca.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> "End IfIf Not WebRs.EOF ThenResponse.Write "<a href=resultado_busca.asp?pagina="&ultima&">Última Página</a> "End IfEnd If%> </span> <center> <table width="200" border="0" align="center"> <tr> <td> <center> <a href="busca.asp" class="style2">Retorna</a> </center> </td> </tr> </table> </center> <% WebRs.CloseSet WebRs = Nothing BdWeb.CloseSet BdWeb = Nothing%> QQ coisa tamos aí...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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