Eu fiz o código de paginação, ele esta trazendo os dados corretamente mas quando clico no botão proximo ou anterior ele não muda os conteúdos que estão no banco,
Se vocês poderem da uma olhada no código e agradeço.
Segue abaixo o código.
<%
'Abre a Conexão com o Banco
Dim caminho
Dim conexao
caminho = Server.MapPath("produtos.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"
'Seleciona todos os Produtos da Tabela
Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")
strBuscaProdutos = "SELECT * FROM TProdutos ORDER BY Produto_ID"
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3
'Define o Numero de Paginas com a propriedade "PageSize" do objeto Recordset
rsBuscaProdutos.PageSize = 10
'Cria as Validações
if rsBuscaProdutos.eof then
Mensagem = "Nenhum Registro Encontrado"
Response.End
else
'Define em qual pagina o visitante está
if Request.QueryString("pagina")="" then
intpagina = 1
else
if cint(Request.QueryString("pagina"))<1 then
intpagina = 1
else
if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then
intpagina = rsBuscaProdutos.PageCount
else
intpagina = Request.QueryString("pagina")
end if
end if
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Teste Paginação</title>
<style>
.TProdutos{
border: 1px solid #666666;
margin: 2px 0px 2px 0px;
background: #FFFFFF;
border-collapse:collapse;
width: 800px;
}
.TProdutos td {
border: 0px solid #666666;
border-collapse:collapse;
}
.TProdutos td#Titulo {
border: 0px solid #666666;
font: 7pt Verdana, Arial, Helvetica;
height: 17px;
background: #063d97;
color:#FFFFFF;
}
.TProdutos td#Dados {
border: 1px solid #CCCCCC;
font: 7pt Verdana, Arial, Helvetica;
height: 18px;
background: #EAEFFF;
color: #666666;
}
</style>
</head>
<body>
<table border="0" class="TProdutos">
<tr>
<td width="181" id="Titulo">Produto ID</td>
<td width="208" id="Titulo">Nome</td>
<td width="201" id="Titulo">Tipo</td>
<td width="190" id="Titulo">Categoria</td>
</tr>
<%
'Inicia o Loop
rsBuscaProdutos.AbsolutePage = intpagina
intrec = 0
While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof
%>
<tr>
<td id="Dados"><%=rsBuscaProdutos("Produto_ID")%></td>
<td id="Dados"><%=rsBuscaProdutos("Produro_Nome")%></td>
<td id="Dados"><%=rsBuscaProdutos("Protudo_Tipo")%></td>
<td id="Dados"><%=rsBuscaProdutos("Produto_Categoria")%></td>
</tr>
<%
rsBuscaProdutos.MoveNext
intrec = intrec + 1
if rsBuscaProdutos.eof then
response.write " "
end if
Wend
%>
<tr>
<td colspan="3" id="Dados"></td>
<td id="Dados">
<%
'Cria as Validações para a navegação "Anterior" e "Próximo"
if intpagina>1 then
%>
<a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>
<%
end if
if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then
%>
<a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próximo</a>
<%
end if
rsBuscaProdutos.close
Set rsBuscaProdutos = Nothing
%>
</td>
</tr>
</table>
</body>
</html>
Pergunta
Gilberto Jr
Boa noite pessoal,
Eu fiz o código de paginação, ele esta trazendo os dados corretamente mas quando clico no botão proximo ou anterior ele não muda os conteúdos que estão no banco,
Se vocês poderem da uma olhada no código e agradeço.
Segue abaixo o código.
<% 'Abre a Conexão com o Banco Dim caminho Dim conexao caminho = Server.MapPath("produtos.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Seleciona todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM TProdutos ORDER BY Produto_ID" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Define o Numero de Paginas com a propriedade "PageSize" do objeto Recordset rsBuscaProdutos.PageSize = 10 'Cria as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Define em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>Teste Paginação</title> <style> .TProdutos{ border: 1px solid #666666; margin: 2px 0px 2px 0px; background: #FFFFFF; border-collapse:collapse; width: 800px; } .TProdutos td { border: 0px solid #666666; border-collapse:collapse; } .TProdutos td#Titulo { border: 0px solid #666666; font: 7pt Verdana, Arial, Helvetica; height: 17px; background: #063d97; color:#FFFFFF; } .TProdutos td#Dados { border: 1px solid #CCCCCC; font: 7pt Verdana, Arial, Helvetica; height: 18px; background: #EAEFFF; color: #666666; } </style> </head> <body> <table border="0" class="TProdutos"> <tr> <td width="181" id="Titulo">Produto ID</td> <td width="208" id="Titulo">Nome</td> <td width="201" id="Titulo">Tipo</td> <td width="190" id="Titulo">Categoria</td> </tr> <% 'Inicia o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof %> <tr> <td id="Dados"><%=rsBuscaProdutos("Produto_ID")%></td> <td id="Dados"><%=rsBuscaProdutos("Produro_Nome")%></td> <td id="Dados"><%=rsBuscaProdutos("Protudo_Tipo")%></td> <td id="Dados"><%=rsBuscaProdutos("Produto_Categoria")%></td> </tr> <% rsBuscaProdutos.MoveNext intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> <tr> <td colspan="3" id="Dados"></td> <td id="Dados"> <% 'Cria as Validações para a navegação "Anterior" e "Próximo" if intpagina>1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% end if if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then %> <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próximo</a> <% end if rsBuscaProdutos.close Set rsBuscaProdutos = Nothing %> </td> </tr> </table> </body> </html>Grato
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.