[Resolvido] Paginação com pesquisa

Gilberto Jr · Março 9, 2010

Galera! boa tarde, eu tenho uma paginação com 1 registro por pagina! é um cadastro de clientes e ao inves de fazer a listagem em forma de tambela eu usei inputs para mostrar os dados. Logo acima de onde mostra os dados eu coloquei um form method=get para o cara fazer a pesquisa, ele faz a pesquisa certinho. Mas quando o dado procurado não é encontrado ele diz o seguinte:

IF RS.EOF THEN
response.write("nenhum resgistro encontrado")
response.end()

só que ao invés dele mostrar essa mensagem e parar o sistema queria que ele limpasse todos os inputs.

Alguem poderia me da uma luz?

Grato!

Public2004 · Março 9, 2010

Nesta condição você pode setar os campos do form como vazios, ex: value="" - ou limpar os campos com JavaScript...

Att.

Gilberto Jr · Março 9, 2010

Teria como você me da um explicacao melhor.

vou mandar o codigo abaixo pra ve se fica melhor pra endender.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="config.asp" -->
<%
	call connect
%>
<%
dim msg, q, fim
q = request.QueryString("pesquisa")
caminho = "D:\sites\new-site\dados\atec.mdb"
'caminho = server.MapPath("../dados/atec.mdb")
set Conn = server.CreateObject("ADODB.Connection")
		
Conn.connectionstring="driver={Microsoft Access Driver (*.mdb)};Dbq="&caminho
Conn.open

Set RS = Server.CreateObject("adodb.recordset")
RS.pagesize=1
if q="" then
SQL = "SELECT * FROM TB_USUARIO AS USUARIOS INNER JOIN TB_ACESSOS AS ACESSOS ON USUARIOS.LOGIN=ACESSOS.USUARIO WHERE  USUARIOS.LOGIN=ACESSOS.USUARIO"
else
SQL = "SELECT * FROM TB_USUARIO AS USUARIOS INNER JOIN TB_ACESSOS AS ACESSOS ON USUARIOS.LOGIN=ACESSOS.USUARIO WHERE  USUARIOS.NOME LIKE '%"&q&"%'"
end if

RS.Open SQL,Conn,3,3
total  = RS.PageCount
primeira = total-total
IF RS.EOF then
  response.Write("Nenhum registro encontrado!")
  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"))> RS.PageCount then
            intpagina=RS.PageCount
         ELSE
            intpagina=Request.QueryString("pagina")
         END IF
      END IF
   END IF
END IF
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>..::Gerenciamento de Conteudos | Atec Engenharia::..</title>
<link href="../css_js/estilo_adm.css" rel="stylesheet" type="text/css" />
<style type="text/css">
#anti_menu
{
width:898px;
height:30px;
border-left:1px solid #cccccc;
border-right:1px solid #cccccc;
border-bottom:1px solid #cccccc;
font-family:"Segoe UI";
font-size:12px;
font-weight:bold;
}
#anti_menu a
{
text-decoration:none;
color:#000000;
}
#anti_menu a:hover
{
text-decoration:underline;
color:#0000CC;
}
#rodape
{
margin:auto;
height:30px;
width:900px;
background-image:url(../img/rodape.png);
font-family:"Segoe UI";
font-size:12px;
color:#FFFFFF;
text-align:center;
}
.link_menu_adm a
{
font-family:"Segoe UI";
font-size:14px;
font-weight:bold;
color:#000099;
text-decoration:none;
}
.link_menu_adm a:hover
{
font-family:"Segoe UI";
font-size:14px;
font-weight:bold;
color:#0066FF;
text-decoration:underline;
}
</style>
</head>
<body >
<div id="conteudo_index_adm">
		<div id="index">
		<img src="../img/topo2.jpg" />
		</div>
		<div id="anti_menu">
		  <table border="0" align="right" class="menu_saida">
                  <tr align="center">
                    <td>Usuário: <img src="../img/onlinenow.gif" /> <%=session("nome")%></td>
                    <td><img src="../img/back.gif" /><a href="index.asp"> Menu Principal</a></td>
                    <td><img src="../img/sair.gif" /> <a href="sair.asp">Desconectar</a></td>
                  </tr>
          </table>
		</div>
  <div id="conteudo">
  <table border="0" class="tabela_cliente">
  <tr>
  <form action="users.asp" method="get" name="formPesquisa">
    <td colspan="4" style="border-bottom:1px solid #cccccc;"><label>Pesquisa:
		<input  class="btn" name="pesquisa" type="text" size="40" />
        <input name="pesquisar" type="submit" id="pesquisar" value="Pesquisar" />
    </label></td>
	</form>
  </tr>
  <tr>
    <td colspan="4" style="border-bottom:1px solid #cccccc;"><a href="#">Alterar</a> | <a href="#">Exluir</a> | <a href="#">Novo </a>|<strong> Total Registro: <%=total%></strong></td>
    </tr>
  <tr>
    <td>Nome: </td>
    <td colspan="3"><label>
      <input class="btn"  readonly="" name="nome" type="text" size="50" value="<%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta

RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
response.write RS("NOME")
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>" />
    </label></td>
    </tr>
  <tr>
    <td>Login:</td>
    <td><label>
      <input name="login"  readonly="" type="text" class="btn" size="20" value="<%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
response.write RS("LOGIN")
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>" />
    </label></td>
    <td>Senha: </td>
    <td><label>
      <input name="senha"  readonly="" type="password" class="btn" size="20" value="<%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
response.write RS("SENHA")
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>"/>
    </label></td>
  </tr>
  <tr>
    <td>Email: </td>
    <td colspan="3"><label>
      <input class="btn"  readonly="" name="email" type="text" size="50" value="<%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
response.write RS("EMAIL")
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>" />
    </label></td>
    </tr>
  <tr>
    <td>Nome Exibição: </td>
    <td colspan="3"><label>
      <input class="btn" readonly="" name="exibicao" type="text" size="50" value="<%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
response.write RS("NOME_EXIBICAO")
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>" />
    </label></td>
    </tr>
  <tr>
    <td colspan="4" style="border-top:1px solid #cccccc;">
Permissões de Modulos:<br>
<input name="" disabled="disabled"  type="checkbox" class="btn" value="" 
<%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
IF RS("SERVICOS")=1 THEN
response.write ("checked='checked'")
else
response.Write("")
end if
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>
/>
Serviços 
<input name="" disabled="disabled" type="checkbox" value=""
<%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
IF RS("EMPRESA")=1 THEN
response.write ("checked='checked'")
else
response.Write("")
end if
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>
 />Empresa 
 <input name="" disabled="disabled" type="checkbox" value=""
 <%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
IF RS("CERTIFICACOES")=1 THEN
response.write ("checked='checked'")
else
response.Write("")
end if
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>

  />Certificações
   <input name="" disabled="disabled" type="checkbox" value=""
   <%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
IF RS("NOTICIAS")=1 THEN
response.write ("checked='checked'")
else
response.Write("")
end if
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>

    />Notícias 
	<input name="" disabled="disabled" type="checkbox" value=""
	<%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
IF RS("CLIENTES")=1 THEN
response.write ("checked='checked'")
else
response.Write("")
end if
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>

	 />Clientes<br><input name=""  disabled="disabled" type="checkbox" value=""
	 <%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.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
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
IF RS("USUARIOS")=1 THEN
response.write ("checked='checked'")
else
response.Write("")
end if
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>

	  />Usuários	</td>
  </tr>
  <tr>
    <td colspan="4" align="center" style="border-top:1px solid #cccccc;"><br><%
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
   <a href="users.asp?pagina=<%=primeira%>">Primeira </a> | 
<%
else
response.Write("Primeira | ")
END IF
%>
<%
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
   <a href="users.asp?pagina=<%=intpagina - 1%>">Anterior </a> | 
<%
else
response.Write("Anterior | ")
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
   <a href="users.asp?pagina=<%=intpagina + 1%>" class="btn_next">Próxima </a>
<%
else
response.Write("Próxima")
END IF
%>
<%
	IF strcomp(intpagina,RS.PageCount)<>0 then
%>
<a href="users.asp?pagina=<%=total%>"> | Última</a>
<%
	else
	response.Write(" | Última")
	end if
%></td>
    </tr>
</form>
</table>

  </div>
		<div id="rodape">
		<br>
			Atec Engenharia - Todos Direitos  Reservados -2009|2010 - Desenvolvido por TecnoGalli
		</div>
</div>
</body>
</html>
<%
	call disconnect
%>

Grato!

Gilberto Jr · Março 9, 2010

Galera, consegui resolver..

fiz da seguinte forma... como é uma tela de pesquisa o campos onde vao ser preenchidos abre com valor em branco.

dai eu fiz;

if q="" then

mostra o formulario vazio sem as tags asp.

else

mostra mostra o fumulario com as tags asp.

end if

la em cima no codigo onde eu mencionei

IF RS.EOF THEN
response.write("nenhum registro encontrado")
response.end()

eu mudei para

IF RS.EOF then
response.write ("<script>alert('Nenhum resgistro encontrado com o nome ("&q&")!');location='users.asp';</script>")
Response.End() 'paramos o programa

valeu galera, moderadores podem colocar como resolvido! eu sei que deve ter outras formas de fazer isso, mas por enquanto vai me atender.

Entrar

Arquivado

[Resolvido] Paginação com pesquisa

Recommended Posts

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

Public2004 79

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante