Jump to content


Photo

Explicar Paginaçao


  • Faça o login para participar
5 replies to this topic

#1 myaccount2lists

myaccount2lists

    Ativo

  • Usuários
  • 347 posts
  • Sexo:Masculino

Posted 30/07/2004, 12:21

Pessoal, estou precisando criar uma paginçao com asp, ja peguei codigos free, mas nao estou sbendo entende-los e adaptalos. Seria melhor eu começar do zero e entender o que cada linha faz.

meu caso:
tenho a pagina Cobertura.asp. Esta pagina visualiza alguns dados que vem do banco de dados. Mas quero limitar, visualizar apenas 3 registros por pagina.

Exemplo:

Resultados:

Adriano
Rua augusta, 678

Jorge
Rua mané, 666

lokin
Rua haha, 90


1 | 2


A tabela do RecorSet é TB_Cidades
O recordSet é RScidades

aluem por favor poderia me explicar, ou passar um codigo que eu entenda para poder adaptalo?

desde ja valeus!!!

#2 -|- Cold Heart -|-

-|- Cold Heart -|-

    *** MaDe In HeLL ***

  • Usuários
  • 260 posts
  • Sexo:Não informado
  • Interesses:Guitarras<br>Músicas<br>Web

Posted 30/07/2004, 12:37

Esse é um sistema que eu fiz e uso, é bem simples, vc só vai ter q mudar as variáveis e acrescentar o q vc quiser, mudar o layout, etc..

obs.: já está para exibir apenas 3 registros

<html>
<head>
<title>.:: Sistema desenvolvido por Kau&ecirc; Porte ::.</title>
<link rel="stylesheet" href="estilos/estilos.css" type="text/css">
</head>

<body bgcolor="#E0E0E0" text="#000000">

<div align="center">

    <table border="0" cellpadding="0" align="center" width="450" bgcolor="#C0C0C0".
bordercolorlight="#999999" bordercolordark="#E0E0E0" cellspacing="0">
      <tr bgcolor="#001888" align="left"> 

        <th bgcolor="#000000">
<div align="center"><font color="#FFFFFF" face="arial" size="2"> Pagina&ccedil;&atilde;o</font></div></th>
          
</tr>
   
<tr bgcolor="#C0C0C0"> 
       
        
      <td align="center">
   
<%
	Set conexao = Server.CreateObject("ADODB.Connection")
    caminho = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("bd/banco.mdb")
    conexao.Open caminho
	
	Set rs = Server.CreateObject("ADODB.RecordSet")
	registros = 3
	
	rs.CacheSize = registros
    rs.PageSize = registros
	
	SQL = " SELECT * FROM usuarios ORDER BY nome ASC "
    rs.Open SQL, conexao, 3, 3

    If rs.EOF Then
	Response.Write (" Nenhum registro encontrado. ")
   
	Else

    If Request.QueryString("page")="" Then
    pagina = 1
    ElseIf Cint(Request.QueryString("page")) < 1 Then
    pagina = 1
    ElseIf Cint(Request.QueryString("page")) > rs.PageCount Then
    pagina = rs.PageCount
    Else 
	pagina = Request.QueryString("page")
    End If
    End If  
	
    rs.AbsolutePage = pagina
    contador = 0
    While contador < registros And Not rs.EOF

%>
	
	
   <br>
        <table width="450" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="225"><div align="center"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome: 
                <%=rs("nome")%></font></div></td>
            <td width="225"><div align="center"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Cidade: 
                <%=rs("cidade")%></font></div></td>
          </tr>
        </table>
        <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> 
  
<%

    rs.MoveNext

    contador = contador + 1

    If rs.EOF then
    Response.Write ("")
    End If

    Wend

    For i = 1 To rs.PageCount

    Response.Write " <a href=default.asp?page="&i&">"&Replace(i,page,"<font color=""#000000"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><b>"&i&"</b>")&"</a> " 
  
	Next    
	
%> 
	
  </b>
  <br>
        <br>
        </font> </td>
      
</tr>
   
</table>
 

</div>

</body>

</html>



espero ter ajudado...
(y)

Edição feita por: -|- Cold Heart -|-, 30/07/2004, 12:37.

### Fender Vs. Gibson ###

#3 myaccount2lists

myaccount2lists

    Ativo

  • Usuários
  • 347 posts
  • Sexo:Masculino

Posted 30/07/2004, 13:23

valeu cara. vou tentar adaptado

abraços []s

#4 myaccount2lists

myaccount2lists

    Ativo

  • Usuários
  • 347 posts
  • Sexo:Masculino

Posted 30/07/2004, 13:43

cara, adaptei mas alguma coisa da errado. Confira. o codigo esta certinho:

<%
IF request.queryString("search") = "uf" Then
strSQLcidades = " SELECT * FROM TB_Cidades WHERE Codigo_Cidades = " & uf & ""
Set RScidades = MyConn.Execute(strSQLcidades)
varRegistros = 3
RScidades.CacheSize = varRegistros
RScidades.PageSize = varRegistros
If Request.QueryString("pag")="" Then
pagina = 1
ElseIf Cint(Request.QueryString("pag")) < 1 Then
pagina = 1
ElseIf Cint(Request.QueryString("pag")) > RScidades.PageCount Then
pagina = RScidades.PageCount
Else
pagina = Request.QueryString("pag")
End If
RScidades.AbsolutePage = pagina
contador = 0
While contador < varRegistros And Not RScidades.EOF
%>


Aqui vem os registros


<%
RScidades.MoveNext
contador = contador + 1
If RScidades.EOF then
Response.Write ("")
End If
Wend
For i = 1 To RScidades.PageCount
Response.Write " <a href=cobertura_view.asp?search=uf&pag="&i&">"&Replace(i,pag,"<font color=""#000000"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><b>"&i&"</b>")&"</a> "
Next
End If%>



OBS: Retorna o seguinte erro:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/folder/cobertura_view.asp, line 94


na linha 94 contem: RScidades.CacheSize = varRegistros

pode me ajudar? abraços!

#5 myaccount2lists

myaccount2lists

    Ativo

  • Usuários
  • 347 posts
  • Sexo:Masculino

Posted 30/07/2004, 14:01

Cara. Consegui solucionar. so que ainda nao acabou os erros. Como eu estou usando um form, LIST/MENUS que seleciona um valor e exibe na pagina cobertura.asp, ao exibir os registros. exibe certo.

na hora que eu clicar na pagina 2 ( 1 | 2 ) volta o erro:

Erro de sintaxe (operador faltando) na expressão de consulta 'Codigo_UF ='.
/folder/cobertura_view.asp, line 67

linha 67: RSuf2.Open strSQLuf2, conexao, 3, 3

(Set RSuf2 = Server.CreateObject("ADODB.RecordSet")
strSQLuf2 = "SELECT * FROM TB_UF WHERE Codigo_UF = " & UF & ""
RSuf2.Open strSQLuf2, conexao, 3, 3
)
acho que vou desistir desta paginaçao.

por eu estar usando um LIST/MENU nao captura o request.Form deste
qdo clico na pagina 2 da paginacao :(

Edição feita por: thalisvalle, 30/07/2004, 14:32.


#6 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 30/07/2004, 14:37

Vc deve passar o parâmetro do codigo_UF na QueryString, e retire o .Form de seu request, faça só Request("Campo").

Teste e retorne se funcionou ou não.
A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq