USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Exemplo simples de paginação com ASP
Postada em 25/6/2003 por cacá            
Esse exemplo mostra como fazer paginação com ASP de uma maneira bem simples!

'Criamos nossos objetos normalmente para fazer acesso ao banco de dados
Dim conn, rsExemplo

Set conn = Server.CreateObject("ADODB.Connection")
Set rsExemplo = Server.CreateObject("ADODB.Recordset")

conn.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source="& Server.MapPath("BD.mdb")

sSQL = "SELECT * FROM Tabela"

'Aqui definimos a quantidade de resultados por página
rsExemplo.PageSize = 30

rsExemplo.Open sSQL, conn, adOpenStatic, adLockReadOnly

'Aqui definimos a página atual
rsExemplo.AbsolutePage = 1

Dim RowCount
RowCount = 0

'Aqui é parte mais importante. Usamos a variável RowCount para impedir que o laço ultrapasse o limite de resultados
While Not rsExemplo.EOF And RowCount < rsExemplo.PageSize

   Response.Write rsExemplo("Campo")    
   RowCount = RowCount + 1
    
rsExemplo.MoveNext
Wend

Para exibir as páginas disponíveis use um laço com For até o PageCount do recordset.

for i = 1 to rsExemplo.PageCount
   Response.Write i
next

Se o recordset retornar a propriedade RecordCount como -1 não esqueça de definir o cursor do lado do cliente.
Para definir o cursor no lado do cliente use:

Const adUseClient = 3
rsExemplo.CursorLocation = adUseClient
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página