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!!!
Explicar Paginaçao
Started By
myaccount2lists
, 30/07/2004, 12:21
5 replies to this topic
#1
Posted 30/07/2004, 12:21
#2
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
espero ter ajudado...
obs.: já está para exibir apenas 3 registros
<html> <head> <title>.:: Sistema desenvolvido por Kauê 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çã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...
Edição feita por: -|- Cold Heart -|-, 30/07/2004, 12:37.
### Fender Vs. Gibson ###
#3
Posted 30/07/2004, 13:23
valeu cara. vou tentar adaptado
abraços []s
abraços []s
#4
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!
<%
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
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
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
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.
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.
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)