Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

paulo_roll

paginação com filtro

Por , em ASP Clássico

Recommended Posts

paulo_roll    0

paulo_roll
Postado

:) Boa tarde,Estou querendo fazer paginação dos dados do banco access, com um filtro estabelecido no formulário. o que está acontecendo é conflitos de Record set. alguém poderia mandar um codigo fonte pronto usando somente um campo para ser mais rápido, e utilizando esses dois recursos utilizando a mesma conexão. agradeço desde já.

Compartilhar este post

Link para o post
Compartilhar em outros sites

rubenssoto2005    0

rubenssoto2005
Postado

aproveitando o topico vcs podiam me ajudartipo essa paginação aki<%StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("clientes.mdb")Set Conexao = Server.CreateObject("AdoDb.Connection")Conexao.Open StringDeConexaoSet RS = Server.CreateObject("AdoDb.RecordSet")nomepagina = "default2.asp" 'IMPOTANTE:Coloque aqui o nome desta página.registros = 4RS.CacheSize = registrosRS.PageSize = registrosSQL = "Select * from contatos"RS.Open SQl,Conexao,3,3If RS.Eof thenResponse.Write("Nenhum registro encontrado.")elseif Request.QueryString("pagina")="" thenpagina = 1elseif cint(Request.QueryString("pagina"))<1 thenpagina = 1elseif cint(Request.QueryString("pagina"))>RS.PageCount thenpagina = RS.PageCountelse pagina=Request.QueryString("pagina")end ifend ifRS.AbsolutePage = paginacontador = 0While contador<registros and not RS.eofresponse.Write(RS("nome")&"-"&RS("telefone")&"-"&RS("email")&"<p>")RS.MoveNextcontador = contador + 1If RS.eof thenResponse.Write("")end ifWendfor i=1 to RS.PageCountresponse.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a> ")Next%>no caso ela vai listar tudo direitin e tal ai eu qria usar isso pra listar os usuarios e vai ter um botao de excluir do lado se eu quiser excluir o usuario eu aperto mas como vou fazer isso?

Compartilhar este post

Link para o post
Compartilhar em outros sites

paulo_roll    0

paulo_roll
Postado

eu já fiz isso no meu site.

onde você está usando o RS dos campos que vai buscar o dados no banco, voce cria em baixo um form. exemplo.

 

<form method=post action=delete.asp>

<input type="hidden" value=<%response.write "& RS("email")&"%>><input type=submit>

</form>

 

depois voce cria uma pagina chamada delete.asp, faz as conexões normalmente e na hora do comando sql, use DELETE no lugar de SELECT. então fica

 

sql = delete * from contatos where email like '%"& email &"%'

 

boa programação. qualquer dúvida estamos aí. vou estar lendo esse tópico até resolver o problema de paginação com filtro. manda uma resposta dessa dica. valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

paulo_roll    0

paulo_roll
Postado

to mandando o código. desculpe mandar tudo. é porque estou numa lan house.

erro não aparece. mas o sistema de paginação não roda. qual seria a sintaxe para melhorar o código.

o código de paginação é cabeludo, mas o de filtro é tranquilo. o que quero é que os dois rodem juntos.

. antes de mais nada obrigado pelo esforço. então prossegue.

 

<%@LANGUAGE=VBSCRIPT%>

<html>

<head>

<title>HABITAR IMOBILIÁRIA</title>

<link rel="stylesheet" type="text/css" href="style/style.css">

</head>

 

<body>

<%

tipo = Request.QueryString("tipo")

categoria = request.querystring("categoria")

transacoes = request.querystring("transacoes")

preco = request.querystring("preco")

if tipo <> "" then

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("info.mdb")

set objConexao = Server.CreateObject("ADODB.Connection")

objConexao.Open stringConexao

Set objRS = Server.Createobject("ADODB.Recordset")

objRS.PageSize = 4

strSQL = "SELECT * FROM imoveis WHERE tipo LIKE '%"& tipo &"%' and categoria LIKE '%"& categoria &"%' and transacoes LIKE '%"& transacoes &"%' and preco < '"& preco &"' + 1 "

objRS.Open strSQL,objConexao,3,3

%>

 

 

<%

'paginação

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc.

IF objRS.EOF then

response.write "<p> </p><p> </p><p> </p><p> </p>"

response.write "<font face=verdana size=2><b>"

Response.Write "<center>nenhum registro encontrado</center></font></b>"

Response.End 'paramos o programa

ELSE 'Definindo 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"))> objRS.PageCount then

intpagina=objRS.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

END IF

END IF

END IF

'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta

objRS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados

intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou

' não for o final do arquivo

%><table width="615" border="0" align="center" cellpadding="0" cellspacing="0">

<%While intrec < objRS.PageSize and not objRS.EOF %>

<tr>

<td width="140"><div align="center"> <img src=<%response.write "" & objRS("imagem") &""%>><br>

<font color="#0066FF"><strong><%response.write ""& objRS("transacoes") &""%></strong></font><br>

<strong><font color="#993300"><%response.write "R$"& objRS("preco") &",00"%></font></strong></div></td>

<td valign="top" class="ofertas1"><%response.write ""& objRS("descricao") &""%><br>

<br> <a href="<%response.write ""& objRS("fotoslink") &""%>" target="corpo">+ fotos</a></td>

</tr>

[b]<%objRS.MoveNext%>

<tr><td>

<%

' Acrescenta +1 ao contador intrec=intrec+1

'Se for EOF (fim de arquivo), imprimir branco na tela

IF objRS.EOF then

response.write " "

END IF

wend

'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.

IF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>

<% END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página

IF strcomp(intpagina,objRS.PageCount) <> 0 then %>

<a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a>

<% END IF%>

<%end if%></td></tr>

</table>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito