Paginacao e quantidade de registros em asp

falcolandrao · Novembro 7, 2005

:blink: Pessoal não consigo implementar uma paginacao nesta pagina abaixo tipo: 1 2 3 4 5 6 7 8 9 -> certo desta forma, já usei varios metodos, existe um outro que possa ser implementado nela:<%var1 = Request.Form("txt_evento")var2 = Request.Form("txt_nome")Set conObj = Server.CreateObject("ADODB.Connection")conObj.Open "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("ocorrencias.mdb") & ";"sql = "SELECT * FROM tbl_ocorrencia WHERE evento = '" & var1 & "' or autor = '" & var2 & "' order by evento" Set rs = conObj.Execute(sql)%><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="36%"><span class="textoTitulo">Diário de bordo<br>Relatório de ocorrências (<a href="registrar.asp" class="lk">registrar</a>)<br><p></p> <div align="left"> <% response.write "<font color = 'black' size='-1'>Foram encontrados</font> " & rs.recordcount & "<font color = 'black' size='-1'> ocorrência(s)</font>"%></div><p align="center"><% if rs.EOF then response.write "<br>" response.write "<span class='textoForm'>Nenhuma ocorrência registrada!</span>" response.write "<br>" response.write "<a href= 'busca_avancada.asp' class='link_page1'>Voltar</a>" else while not rs.EOF %> </p> </span></td> <td width="64%" class="textoForm"></td> </tr></table> <p> </p><table bgcolor="#dddddd" width=100%> <tr bgcolor="#EEEEEE" > <td width="15%" class="textoForm">Evento:</td> <td class="textoFormConteudo"> <a href="registrar.asp?cod=<%=rs("codigo")%>" class="link_page1"><%=rs("evento")%></a></td> </tr> <tr bgcolor="#EEEEEE" > <td class="textoForm">Autor:</td> <td class="textoFormConteudo"><%=rs("autor")%></td> </tr> <tr bgcolor="#EEEEEE" > <td class="textoForm">Data:</td> <td class="textoFormConteudo"><%=rs("data")%></td> </tr> <tr bgcolor="#EEEEEE" > <td colspan="2"><table border="0" cellspacing="0" cellpadding="0"> <tr class="textoForm"> <td width="100">Início: <span class="textoFormConteudo"><%=rs("inicio")%></span></td> <td width="100">Término: <span class="textoFormConteudo"><%=rs("termino")%></span></td> <td>Total: <span class="textoFormConteudo"> <% ini = rs("inicio") ter = rs("termino") mtini = split(ini,":") mtter = split(ter,":") iniMin = (cInt(mtini(0))*60) + cInt(mtini(1)) terMin = (cInt(mtter(0))*60) + cInt(mtter(1)) totalmin = terMin - iniMin response.write Int(totalmin/60) &":"& totalmin mod 60 %></span></td> </tr> </table> </td> </tr><tr bgcolor="#EEEEEE" > <td class="textoForm">Clientes afetados: </td> <td class="textoFormConteudo"><%=rs("afetados")%></td> </tr> <tr bgcolor="#EEEEEE" > <td class="textoForm">Área: </td> <td class="textoFormConteudo"><%=rs("area")%></td> </tr> <tr bgcolor="#EEEEEE" > <td colspan=2><span class="textoForm">Obs:<br></span> <span class="textoFormConteudo"><%=rs("obs")%></span></td> </tr></table><% rs.MoveNext Wend Set rs = Nothing end if%> E a quantidade de registros no rs.recordcount esta retornando -1 ocorrencias, seria estranho demais isto, alguem poderia me ajudar nestas tarefas dando algumas dicas, obrigado amigos....

falcolandrao · Novembro 7, 2005

Pessoal consegui inserir uma paginacao, mas quando clico no proximo ele mostra um registro da tabela ao inves de mostrar a prox. pagina, vejam abaixo como deixei agora:<%var1 = Request.Form("txt_evento")var2 = Request.Form("txt_nome")Set conObj = Server.CreateObject("ADODB.Connection")conObj.Open "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("ocorrencias.mdb") & ";"Set RS = Server.CreateObject("adodb.recordset")RS.PageSize = 10sql = "SELECT * FROM tbl_ocorrencia WHERE evento = '" & var1 & "' or autor = '" & var2 & "' order by evento" RS.Open sql, conObj, 3%><html><head><title>Ocorrências</title><style type="text/css"></style></head><body><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="36%"><span class="textoTitulo">Diário de bordo<br>Relatório de ocorrências (<a href="registrar.asp" class="lk">registrar</a>)<br><p></p> <div align="left"> <% response.write "<font color = 'black' size='-1'>Foram encontrados</font> " & rs.recordcount & "<font color = 'black' size='-1'> ocorrência(s)</font>"%></div><p align="center"><% if rs.EOF then response.write "<br>" response.write "<span class='textoForm'>Nenhuma ocorrência registrada!</span>" response.write "<br>" response.write "<a href= 'busca_avancada.asp' class='link_page1'>Voltar</a>" else if Request.QueryString("pagina") = "" then intpagina = 1 else if cint(Request.QueryString("pagina")) < 1 then intpagina = 1 else if cint(Request.QueryString("pagina")) > RS.PageCount then intpagina = RS.PageCount else intpagina = Request.QueryString("pagina") end if end if end if'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina intrec=0 while intrec < RS.PageSize and not rs.EOF%></p> </span></td> <td width="64%" class="textoForm"></td> </tr></table> <p> </p><table bgcolor="#dddddd" width=100%> <tr bgcolor="#EEEEEE" > <td width="15%" class="textoForm">Evento:</td> <td class="textoFormConteudo"> <a href="registrar.asp?cod=<%=rs("codigo")%>" class="link_page1"><%=rs("evento")%></a></td> </tr> <tr bgcolor="#EEEEEE" > <td class="textoForm">Autor:</td> <td class="textoFormConteudo"><%=rs("autor")%></td> </tr> <tr bgcolor="#EEEEEE" > <td class="textoForm">Data:</td> <td class="textoFormConteudo"><%=rs("data")%></td> </tr> <tr bgcolor="#EEEEEE" > <td colspan="2"><table border="0" cellspacing="0" cellpadding="0"> <tr class="textoForm"> <td width="100">Início: <span class="textoFormConteudo"><%=rs("inicio")%></span></td> <td width="100">Término: <span class="textoFormConteudo"><%=rs("termino")%></span></td> <td>Total: <span class="textoFormConteudo"> <% ini = rs("inicio") ter = rs("termino") mtini = split(ini,":") mtter = split(ter,":") iniMin = (cInt(mtini(0))*60) + cInt(mtini(1)) terMin = (cInt(mtter(0))*60) + cInt(mtter(1)) totalmin = terMin - iniMin response.write Int(totalmin/60) &":"& totalmin mod 60 %></span></td> </tr> </table> </td> </tr><tr bgcolor="#EEEEEE" > <td class="textoForm">Clientes afetados: </td> <td class="textoFormConteudo"><%=rs("afetados")%></td> </tr> <tr bgcolor="#EEEEEE" > <td class="textoForm">Área: </td> <td class="textoFormConteudo"><%=rs("area")%></td> </tr> <tr bgcolor="#EEEEEE" > <td colspan=2><span class="textoForm">Obs:<br></span> <span class="textoFormConteudo"><%=rs("obs")%></span></td> </tr></table><% rs.MoveNext intrec=intrec+1 IF RS.EOF then response.write " " END IF Wend end if IF intpagina > 1 then %> </body></html><a href="resultado.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="resultado.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF%><%Set rs = Nothing%>

Mário Monteiro · Novembro 7, 2005

tente tirar as formatações de tabelas pra voce entender melhor o que ta acontecendoquando tiver tudo certo voce coloca de volta...outra coisa sempre uso assim esta linhaintpagina = CINT(Request.QueryString("pagina"))ja tive problemas com isso

Entrar

Arquivado

Paginacao e quantidade de registros em asp

Recommended Posts

falcolandrao 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

falcolandrao 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante