Paginação...

mkboy · Março 5, 2004

Ola,

Estou fazendo uma paginação, seguindo uns exemplos na net, e não consigo.

Ontem consegui fazer funcionar, peguei os dados do banco e ele paginou certinho.

Só que quando tento fazer o mesmo no meu código principal, não funciona, não consigo.

Gostaria de saber, se posso postar o meu código e o código da paginação separados. Ae vocês me ensinam o que como usar aquela paginação no meu codigo.

Não é comodismo, é que não consigo mesmo, não consigo assimilar muito ASP, to comessando a aprender mais com muito, muito esforço, pois coisas simples para mim são super dificeis.

Então posso postar os dois codigos para voces me ensinarem como junto?

Se sim, vou deixar prontinho e hoje a noite ou domingo a noite posto!

ursolouco · Março 5, 2004

Resultado da Pesquisa!!!

Ou

Paginação sem misterios!!!

Veja se algum pode lhe ajudar!!!

mkboy · Março 5, 2004

beleza.

Mas tipo assim.

Eu consegui fazer uma pagina que lista todo o conteudo do banco e pagina.

Só que não consigo fazer a paginação em meu resultado de busca que ta mais completo, não consigo.

Eu queria posta o meu codigo de paginação que ta funcionado e o minha resposta de busca que tb ta funcionando, e assim vocês me ensinam como eu coloco a minha paginacao em meu codigo.

Posso fazer assim!

Março 6, 2004

<html>

<head><title>EXEMPLO DE PAGINAÇÃO COM ASP</title></head>

<body>

<%

'''''''''''''''''''''''''''''''''''''''''''''''''''''''fazendo a paginação !!!

' número de registros por página.

Const numeroRegistros = 10

' mapeia o caminho

x = Server.MapPath("dados.mdb")

' cria o objeto Conexão

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

' concatena a string do driver com o caminho

liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x

' o cursor do objeto Connection deve residir no cliente.

' Isto equivale a dizer que a propriedade CursorLocation

' do objeto connection é igual a adUseClient, ou se não

' quiser utilizar as constantes do arquivo adovbs.inc,

' use o número 3 ao invés de adUseClient. Na verdade, a

' constante adUseClient tem o valor 3 no arquivo adovbs.inc.

' Logo, tanto faz usar adUseClient ou 3, pois adUseClient = 3

Conexao.CursorLocation = 3

'abre a conexão

Conexao.Open liga

' cria um recordset

Set tabela = Server.CreateObject("ADODB.RECORDSET")

' faz o recordset usar a conexão

Set tabela.ActiveConnection = Conexao

' número de registros por página

tabela.PageSize = numeroRegistros

' tamanho do cache

tabela.CacheSize = numeroRegistros

' carrega a query na string

strSQL = "select * from cadastro ;"

' executa a query

tabela.open strSQL

' testa se é a primeira vez

If (request.ServerVariables("CONTENT_LENGTH") = "123" ) Then

' se for aponta para a primeira página e guarda que a página atual é a primeira

tabela.AbsolutePage = 1

paginaAtual = 1

else

' caso não seja a primeira vez guarda página atual

paginaAtual = Cint(Request.Form("CurrentPage"))

' de acordo com a escolha a página é incrementada ou decrementada

Select Case Request.Form("enviarecordset")

Case "Anterior"

paginaAtual = paginaAtual - 1

tabela.AbsolutePage = paginaAtual

Case "Próxima"

paginaAtual = paginaAtual + 1

tabela.AbsolutePage = paginaAtual

End Select

End If

' imprime os registros na tela

while not tabela.EOF

%>

nome : <%=tabela.Fields("nome")%> <br>

<%

tabela.MoveNext

wend

' total de páginas

totalPaginas = tabela.PageCount

' fecha o recordset

tabela.close

' fecha a conexão

Conexao.close

' destrói os objetos

Set tabela = nothing

Set Conexao = nothing

%>

<br>

Página <%= paginaAtual %> de <%= totalPaginas %>

<%

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

%>

<Form Action="<% Request.ServerVariables("SCRIPT_NAME")%>" method="POST">

<%

If (paginaAtual > 1) Then

%>

<%

End If

If (paginaAtual <> totalPaginas) Then

%>

<%

End If

%>

</form>

</body>

</html>

Entrar

Paginação...

Pergunta

mkboy

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

ursolouco

Link para o comentário

Compartilhar em outros sites

mkboy

Link para o comentário

Compartilhar em outros sites

Guest Marcelo Canevello Ferreira

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades