Paginação com GetRows

[DackAle 0]

Hoje como não fui trabalhar por estar doente, resolvi tentar fazer uma paginação com getrows sozinho e ae está =)

 

Qualquer duvida fiquem a vontade para perguntar =)

 

ASP [/tr][tr]<%

pagina = request("pagina")

if pagina = "" then

pagina = 1

else

pagina = cint(pagina)

end if

 

SQL="SELECT * FROM nomes ORDER by nome ASC"

SET RS = Server.CreateObject("Adodb.recordset")

RS.Open SQL,Conexao,3,3

if not rs.eof then

nomes = rs.getrows()

end if

rs.close

set rs = nothing

 

total = ubound(nomes,2)

registros = 10

paginas = total / 10

 

if cint(paginas) * registros < total then

paginas = cint(paginas) + 1

end if

 

if pagina = 1 then

inicio = 0

else

inicio = cint(registros) * (pagina) - 10

end if

 

fim = cint(inicio) + 9

if cint(fim) > cint(total) then

fim = cint(total)

end if

%>

[/tr]

 

Abaixo é aonde mostra os dados

 

ASP [/tr][tr]<%

FOR I=inicio TO fim

response.write nomes(1,i) & "<br>"

next

%>

[/tr]

 

e aqui cria a navegação, que inclusive mostra diferente o link se voc~e estiver em tal pagina

 

ASP [/tr][tr]<%

FOR I = 1 TO cint(paginas)

if cint(pagina) = i then

mostra = "[" & i & ]"

else

mostra = i

end if

response.write "<a href=index.asp?pagina=" & I & ">" & mostra & "</a> "

next

%>

[/tr]

 

Espero que sirva para alguem =)

 

Abraços

[DackAle 0]

boa DackAle.mais kara, será q vale a pena usar ? pq imagina uma tabela com 10 mil registros, com 5 campos que serão mostrados...você terá um vetor de 0 a 9999, de 0 a 4 posições cada um...mais o código tá show, só analisar se compensa mesmo!!! ;-)[]s

é bicicleta, esse é um GRANDE problema se for uma grande aplicação em outro forum estavamos discutindo no mysql e no sql server tem como você arrumar isso facilmente, mas no access infelizmente não da =/mas valeu pelo elogio... futuramente posso tentar arrumar isso tanto pra access quanto pra sql server (que vou começar a trabalhar daki pra frente)

[DackAle 0]

vo fazer um pequeno teste de performace amanhã, que tal algo tipo 10000 registros ? rsVo testar velocidade aqui com get e com o select e movenext comum... mas sera que local vai ter muito diferença ?mas se alguem tiver alguma ideia de como posso fazer um teste eficiente eu faço aqui =)Abraços

[Haberbeck 0]

Galera,Fiz paginação em 15 minutos.... e a performance está boa, minha consulta tem no total em édia um milhão de registros.Obrigado a todos!

[silderado 0]

Só para constar galeria, estou fazendo uso dessa páginação... está bem legal..[]s

[webfuture 0]

Olá pessoal, uma dúvida, se eu quero mostrar um dado que esta na quarta coluna da tabela não seria:<%Response.Write nomes(3,i)%>Aqui esta dando o erro:Subscrito fora do intervalo: '[number: 3]'WebFuture