Ir para conteúdo

POWERED BY:

Arquivado

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

-_KIKO_-

paginação em access

Por , em ASP Clássico

Recommended Posts

Selt    0

Selt
Postado

Bro não dá para fazer páginação no access, somente com os registros que são solicitados dele

 

Esse código não esta mastigado ... já está semi-digerido....

ai vai:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Dim conn,objrs,objstr'ABRE A CONEXÃOSet conn= Server.CreateObject("ADODB.Connection")conn.Open Application("Conn")'CRIA O OBJETOSet objrs = Server.CreateObject("adodb.recordset")'QUANTIDADE REGISTRO POR PÁGINAobjrs.PageSize = 25objstr="SELECT * FROM TABELA"'EXECUTA O SQL  objrs.open objstr,conn,3,3'INICIO DA PÁGINAÇAODim intpagina, intrec'VERIFICA SE EXISTE REGISTROSIF objrs.EOF then    Response.Write "<center>nenhum registro encontrado <br> <a href='javascript:history.go(-1)'>Retornar</a></center>"   Response.End ELSE   IF Request.QueryString("pagina")="" then       intpagina=1    ELSE      IF cint(Request.QueryString("pagina"))<1 then         intpagina=1       ELSE         IF cint(Request.QueryString("pagina"))> objrs.PageCount then             intpagina=objrs.PageCount          ELSE            intpagina=Request.QueryString("pagina")         END IF      END IF   END IFEND IFobjrs.AbsolutePage=intpaginaintrec=0%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><br><tr>  <td align="left" valign="top"><table width="100%" border="0"><% 'IMPRIME NA TELA OS REGISTROSWhile intrec < objrs.PageSize and not objrs.EOF%>      <tr>         <td width="10%" height="50" align="center" valign="middle"> <div align="center"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=objrs("data")%></font></div></td>        <td width="48%"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="avesdetalhe.asp?codigo=<%=objrs("codigo")%>">           <%=objrs("especie")%>  /  <%=objrs("comercial")%> </a> </font></td>        <td width="10%"><div align="center"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=objrs("sexo")%></font></div></td>        <td width="10%"><div align="center"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=objrs("quantidade")%></font></div></td>      </tr><%         objrs.MoveNext    intrec=intrec+1     Wend%>      <tr>         <td></td>        <td colspan="3">              <table width="150" border="0">              <tr>                 <td>                   <%IF intpagina > 1 then%>                  <a href="avesdisp.asp?pagina=<%=intpagina-1%>&ordem=<%=ordem%>">Anterior</a>                      <%END IF%>                  </td>                <td>                   <%IF strcomp(intpagina,objrs.PageCount) <> 0 then %>                     <a href="avesdisp.asp?pagina=<%=intpagina + 1%>&ordem=<%=ordem%>">Próxima</a>                   <%END IF%>                  </td>              </tr>            </table>          </td>      </tr>    </table></body></html>

[]'s

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