Olha gente eu to setando o meu Rs.PageSize = 10 e ele ta colocando todos os itens que tem no bd!!!
Olha so o codigo:
<%
Dim cont_page, pchave, tbusca, tam_page, pag_atual
pchave = request.QueryString("p_chave")
tbusca = request.QueryString("tprocura")
tam_page = request.QueryString("result")' aqui eu to passando como 10 eu tenho certeza absoluta!!!!
pag_atual = request.QueryString("pag_atual")
%>
<html>
<head> <title>Procura por CD...</title> </head>
<body>
<%
'Procurar por CD
'Procurar por CD
'Procurar por CD
'Procurar por CD
Set Conexao = Server.CreateObject("ADODB.Connection")
Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./bds/cds.mdb") & ";Persist Security Info=False"
conexao.CursorLocation = 3 'adUseClient
Conexao.open Caminho
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.PageSize = tam_page 'Define o Tamanha da Page
Rs.CacheSize = tam_page 'Não sei pra que serve, mas me falaram que era bom, ai eu botei.
ComandoSQL = "SELECT * FROM cds1 where nome_cd LIKE '"& pchave & "%'"
Rs.open ComandoSQL, Conexao
cont_page = Rs.PageCount
If Rs.EOF Then
Response.Write("Nenhum dado encontrado no banco de dados"&"<BR>"&"<BR>")
Response.Write("<a href="&"javascript:history.back()"&">voltar</a>")
Response.End()
else
if pag_atual = "" then
pag_atual = 1
end if
if pag_atual < 1 then
pag_atual = 1
end if
end if
Rs.AbsolutePage = pag_atual
controle = 1
%>
<center><font face="Arial" size="4"><b>CDs Encontrados</b>
<H2></H2></center>
<table border="0" width="80%" align="center">
<%
while controle < tam_page and not Rs.EOF
response.write("<tr> <td>"& Rs("nome_cd") &" </td> <td> link excluir </td> <td>link Altera </td> </tr>")
Rs.MoveNext
controle = controle + 1
wend
%>
</table>
<table border ="0" width ="80%" align ="center">
<tr>
<td><%
if pag_atual > 1 then
response.write("<a href=" & "procuracd.asp?Pag_atual=" & (pag_atual - 1) & ">" & "<<< Anterior" & "</a>")
end if
%>
</td>
<td><%
if StrComp(pag_atual,cont_page) <> 0 then
response.write("<a href=" & "procuracd.asp?Pag_atual=" & (pag_atual + 1) & ">" & "Proximo >>>" & "</a>")
end if
%>
</td>
</tr>
<%
Rs.Close
Conexao.Close
Set Rs = Nothing
Set Conexao = Nothing
%>
</table>
</body>
</html>
Pergunta
halakaluf
Olha gente eu to setando o meu Rs.PageSize = 10 e ele ta colocando todos os itens que tem no bd!!!
Olha so o codigo:
<% Dim cont_page, pchave, tbusca, tam_page, pag_atual pchave = request.QueryString("p_chave") tbusca = request.QueryString("tprocura") tam_page = request.QueryString("result")' aqui eu to passando como 10 eu tenho certeza absoluta!!!! pag_atual = request.QueryString("pag_atual") %> <html> <head> <title>Procura por CD...</title> </head> <body> <% 'Procurar por CD 'Procurar por CD 'Procurar por CD 'Procurar por CD Set Conexao = Server.CreateObject("ADODB.Connection") Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./bds/cds.mdb") & ";Persist Security Info=False" conexao.CursorLocation = 3 'adUseClient Conexao.open Caminho Set Rs = Server.CreateObject("ADODB.Recordset") Rs.PageSize = tam_page 'Define o Tamanha da Page Rs.CacheSize = tam_page 'Não sei pra que serve, mas me falaram que era bom, ai eu botei. ComandoSQL = "SELECT * FROM cds1 where nome_cd LIKE '"& pchave & "%'" Rs.open ComandoSQL, Conexao cont_page = Rs.PageCount If Rs.EOF Then Response.Write("Nenhum dado encontrado no banco de dados"&"<BR>"&"<BR>") Response.Write("<a href="&"javascript:history.back()"&">voltar</a>") Response.End() else if pag_atual = "" then pag_atual = 1 end if if pag_atual < 1 then pag_atual = 1 end if end if Rs.AbsolutePage = pag_atual controle = 1 %> <center><font face="Arial" size="4"><b>CDs Encontrados</b> <H2></H2></center> <table border="0" width="80%" align="center"> <% while controle < tam_page and not Rs.EOF response.write("<tr> <td>"& Rs("nome_cd") &" </td> <td> link excluir </td> <td>link Altera </td> </tr>") Rs.MoveNext controle = controle + 1 wend %> </table> <table border ="0" width ="80%" align ="center"> <tr> <td><% if pag_atual > 1 then response.write("<a href=" & "procuracd.asp?Pag_atual=" & (pag_atual - 1) & ">" & "<<< Anterior" & "</a>") end if %> </td> <td><% if StrComp(pag_atual,cont_page) <> 0 then response.write("<a href=" & "procuracd.asp?Pag_atual=" & (pag_atual + 1) & ">" & "Proximo >>>" & "</a>") end if %> </td> </tr> <% Rs.Close Conexao.Close Set Rs = Nothing Set Conexao = Nothing %> </table> </body> </html>Obrigado...
Link para o comentário
Compartilhar em outros sites
3 respostass 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.