ae galera, blz???
preciso fazer uma consulta (nao busca, apenas visualizacao de dados) num banco de dados, onde retornaria uma pagina com 10 registros de cada vez, e no final, os botoes proxima e anterior, para que eu pudesse trocar para a proxima pagina e ver os proximos 10 registros...
até aí eu consegui, mas qnd chega na ultima pagina, onde nao tenho exatamente 10 registros ele estoura a tabela, o EOF fica em modo true e nao tem jeito de eu driblar isso...
me ajudem...
se alguem se interessar, mando o script que estou usando...
desde já obrigado, rafael
Banco De Dados
Started By tibursz, 28/04/2004, 23:09
3 replies to this topic
#2
Generation
-
- Usuários
-
- 1546 posts
Super Veterano
- Sexo:Masculino
- Localidade:Curitiba - PR
Posted 29/04/2004, 00:44
ow Mandae o code, pra gente ver....
flws?
Ate ++
Generation
flws?
Ate ++
Generation
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
#3
.:Matrix:.
-
- Usuários
-
- 123 posts
12 Horas
- Sexo:Não informado
- Localidade:Sampa
- Interesses:Muitos menos Delphi, PHP e Adjacentes hauahaua
Posted 29/04/2004, 09:45
Kra faz uma comparação com o código anexo ai em baixo, peguei por aki e dei uma tratada.
O sistema ta funcionando, se quiser usar manda bala.
Espero ter ajudado.
Abraços
O sistema ta funcionando, se quiser usar manda bala.
Espero ter ajudado.
Abraços
Attached Files
-
paginacao.zip 28.49KB
8 downloads
Edição feita por: .:Matrix:., 29/04/2004, 09:46.
Este post é dedicado a Yasmin minha linda filhinha hauhauahau
-----------------------------------------------------------------------
Visite ::: www.destroyers.com.br (onde sou o Fundador hauahua)
-----------------------------------------------------------------------
Se puder ajudar fico grato se naum puder, fico do mesmo jeito, pelo menos leu neh :-D
-----------------------------------------------------------------------
Visite ::: www.destroyers.com.br (onde sou o Fundador hauahua)
-----------------------------------------------------------------------
Se puder ajudar fico grato se naum puder, fico do mesmo jeito, pelo menos leu neh :-D
#4
ursolouco
-
- Usuários
-
- 92 posts
Normal
- Sexo:Não informado
Posted 29/04/2004, 09:48
Brother!!!
Um pequenino exemplo de paginação, veja se pode lhe ajudar..
Um pequenino exemplo de paginação, veja se pode lhe ajudar..
<!--#include file="conexaoNwind.inc" -->
<!--#include file="adcvbs.inc" -->
<html>
<head>
<title>Paginação - GetRows - Ursolouco</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
font-family: Verdana;
font-size: 10px;
color: #000000;
}
a {
text-decoration: none;
}
a:link {
color: #000099;
}
a:visited {
color: #330099;
}
a:hover {
text-decoration: underline;
}
-->
</style>
</head>
<body>
<p>
<%
Inicio = Request.QueryString("Inicio")
Final = Request.QueryString("Final")
Quantidade = Request.QueryString("Quantidade")
If Not isNumeric(Inicio) or Len(Inicio)=0 Then
Inicio = 0
Else
Inicio = CInt(Request.QueryString("Inicio"))
End If
If Not isNumeric(Final) or Len(Final)=0 Then
Final = 0
Else
Final = CInt(Request.QueryString("Final"))
End If
If Not isNumeric(Quantidade) or Len(Quantidade)=0 Then
Quantidade = 10
Else
Quantidade = Quantidade
End If
If Not isArray(ArrRs) Then
Set Rs = Server.CreateObject("Adodb.recordset")
strSQL = "SELECT * FROM Tabela;"
Set Rs = Conn.Execute(strSQL)
ArrRs = Rs.GetRows
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End If
'ArrRs = Coluna, Linhas na tabela
'Onde: Coluna -> Campo da tabela a ser exibido
'Linha: Registro a ser percorrido de acordo com o Loop
TotalColunas = UBound(ArrRs,1)
TotalRegistros = UBound(ArrRs, 2)+1
If (TotalRegistros - Quantidade) < (Inicio + Quantidade) Then
Quantidade = (TotalRegistros - Inicio)
End If
If Parar > TotalRegistros Then
Parar = TotalRegistros
Else
Parar = Inicio + Quantidade
End If
For I = Inicio To (Parar-1)
For U = 0 To (TotalColunas-6)
Response.Write(ArrRs(U,I) & " " & "-" & " ")
Next
Response.Write("<br>")
Next
response.Write("<br>")
If Inicio > 1 Then
Response.Write("<a href=Pag_GetRows.asp?Inicio=" & (Inicio - Quantidade) & "&" & "Final=" & Parar - Quantidade & "&" & "Quantidade=" & Quantidade & ">")
response.Write("<<<<-- VOLTAR")
Response.Write("</a>")
End If
Response.Write(" " & "<b>" & "|" & "</b>" & " ")
If parar < TotalRegistros Then
Response.Write("<a href=Pag_GetRows.asp?Inicio=" & Inicio + Quantidade & "&" & "Final=" & Parar + Quantidade & "&" & "Quantidade=" & Quantidade & ">")
Response.Write(" AVANÇAR -->>>>")
Response.Write("</a>")
End If
%>
</p>
</body>
</html>
Edição feita por: ursolouco, 29/04/2004, 09:48.
Boa Programação!
-------------------------------------------------------------------------------------
http://www.desenvolvendosites.com
-------------------------------------------------------------------------------------
http://www.desenvolvendosites.com
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
