Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas Recordset

rafaeltejeda

Perguntado por rafaeltejeda,

 Share

Pergunta

13 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

sim.. se você apagou todos os registros da tabela, ela esta vazia.. por isso dá erro.

O ideal, é tratar o erro.

você faz um select na tabela.

Depois, faz um if.. e se a tabela estiver vazia, você mostra um erro pro usuario, que esta vazia.

Ex:

If Rs.EOF = true then
response.write "Tabela Vazia"
Else
'seu codigo aqui.. 
end if

Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
rcnery

rcnery

Postado
Postado

Amigo

Eu tive esse mesmo problema quando fazia paginação e a tabela estava vazia, o que estava me causando o erro era essa linha:

RS.AbsolutePage = pg

Foi só eu colocar:

IF not RS.EOF THEN

RS.AbsolutePage = pg

END IF

Para resolver o problema.

Veja s eé esse seu caso.

Abraço

Ricardo Nery

Link para o comentário
Compartilhar em outros sites
  • 0
rafaeltejeda

rafaeltejeda

Postado
  • Autor
Postado

sem sucesso este é o codigo de em uma analizadae me falem 

<%@ language="vbscript"%>
<% Response.Expires = 0 %>
<%
seguro=session("seguro")
if seguro="" then
response.redirect("../login")
end if
%>
<!--#include file="../../data.asp"-->
<!--#include file="../../status.asp"-->
<!--# include File="adovbs.inc"-->
<%
Const NumPerPage = 10
if Request.QueryString("CurPage") = "" then
CurPage = 1
Else
CurPage = Request.QueryString("CurPage")
End if

Set conexao = server.createobject("ADODB.connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath("../../dados/banco_dados")

Set rs = Server.CreateObject("ADODB.recordset")
rs.CursorLocation = 3
rs.CacheSize = NumPerPage
strSQL = "SELECT * from noticias order by id desc"
rs.Open strSQL, conexao
rs.MoveFirst
rs.PageSize = NumPerPAge
TotalPages = rs.PageCount
rs.AbsolutePage = CurPage

%>
<head>
<title>Grupo de Oração Jesus Fonte de Água Viva</title>
</head>

<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" link="#000000" vlink="#000000" alink="#000000">

<div align="center">
	<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0px" width="780" align="left" bordercolor="#000000">
  <tr>
  	<td style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium">
  	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="780" height="138" id="titulo_sitercc" align>
    <param name="movie" value="../titulo_portal.swf">
    <param name="menu" value="0">
    <param name="quality" value="High">
    <param name="bgcolor" value="FFFFFF">
              <param name="_cx" value="20638">
              <param name="_cy" value="3651">
              <param name="FlashVars" value>
              <param name="Src" value="../titulo_portal.swf">
              <param name="WMode" value="Window">
              <param name="Play" value="0">
              <param name="Loop" value="-1">
              <param name="SAlign" value>
              <param name="Base" value>
              <param name="AllowScriptAccess" value="always">
              <param name="Scale" value="ShowAll">
              <param name="DeviceFont" value="0">
              <param name="EmbedMovie" value="0">
              <param name="SWRemote" value>
              <param name="MovieData" value>
              <param name="SeamlessTabbing" value="1">
              <embed src="../titulo_portal.swf" menu="false" quality="Best" bgcolor="#ffffff" width="780" height="138" name="titulo_sitercc" align type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer">                    </embed></object>
  	</td>
  </tr>
  <tr>
  	<td style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">
  	<div align="center">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px" width="100%" align="left" bordercolor="#000000">
    	<tr>
      <td style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: solid; border-bottom-width: 1px" height="22" width="705">&nbsp;<font size="2" face="Tahoma">Taquaritinga,
      <% response.write diaformatado%> </font></td>
      <td style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: solid; border-bottom-width: 1px" height="22" valign="middle">
      <img border="0" src="../../imagens/setaVol.gif" width="19" 
                        height="21" align="center">
      <u><font size="2" face="Tahoma">
      <a href="principal.asp">VOLTAR</a></font></u></td>
    	</tr>
    </table>
  	</div>
  	</td>
  </tr>
  <tr>
  	<td style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style: none; border-bottom-width: medium" width="98%">
  	<form method="POST" action="grava_noticia.asp">
              <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber1" height="172">
                <tr>
                  <td width="100%" style="border-style: none; border-width: medium" height="170" valign="top">
                  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber2">
                    <tr>
                      <td width="100%" style="border-style: none; border-width: medium">
                      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber3">
                        <tr>
                          <td width="100%" style="border-style: none; border-width: medium" valign="bottom">
                          <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber4">
                            <tr>
                              <td width="100%" style="border-style: none; border-width: medium">
                              <p align="center">
                              <img border="0" src="../../imagens/tit_noticias.png"></td>
                            </tr>
                            <tr>
                              <td width="100%" style="border-style: none; border-width: medium">&nbsp;</td>
                            </tr>
                            <tr>
                              <td width="100%" style="border-style: none; border-width: medium">
                              <%if rs.eof then
                                response.write " Não há notícias para serem exibidos nesta página "
                                response.write aspSQL &"<br> Não retorna informação alguma... Clique em Anterior!"
                              end if%>
                              <%
                                Count = 0
                                Do While Not rs.EOF or Count < rs.PageSize
                              %>
                              <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber5">
                                <tr>
                                  <td width="3%" style="border-style: none; border-width: medium">
                                  <img border="0" src="../../imagens/tarracha_azul.gif"></td>
                                  <td width="65%" style="border-style: none; border-width: medium">
                                  <font size="2" face="Tahoma">&nbsp;Titulo: <%=rs("titulo")%></font></td>
                                  <td width="25%" style="border-style: none; border-width: medium">
                                  <font size="2" face="Tahoma">| adicionado: <%=rs("data")%></font></td>
                                  <td width="7%" style="border-style: none; border-width: medium">
                                        <a href="deletar_noticias.asp?id=<%=rs("id")%>">
                                        <img border="0" src="../../imagens/apagar.gif" alt="para deletar a noticia clique aqui "></a></td>
                                </tr>
                                <tr>
                                  <td width="3%" style="border-style: none; border-width: medium"></td>
                                  <td width="65%" style="border-style: none; border-width: medium"></td>
                                  <td width="25%" style="border-style: none; border-width: medium"></td>
                                  <td width="7%" style="border-style: none; border-width: medium"></td>
                                </tr>
                                </table>
                                <%
                                Count = Count +1
                                rs.MoveNext
                                Loop
                                %>
                                <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber6">
                                <tr>
                                  <td width="100%" style="border-style: none; border-width: medium">
                                  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber7">
                                    <tr>
                                      <td width="100%" style="border-style: none; border-width: medium" colspan="5">&nbsp;</td>
                                    </tr>
                                    <tr>
                                      <td width="100%" style="border-style: none; border-width: medium" colspan="5">
                                       <%
                                         Response.write("<b><p align=""right""><font color=""#000000"" size=""2"" face=""tahoma"">Página " &CurPAge& " de " &TotalPAges& "</font></b></p><br><br>")
                                       %> &nbsp;</td>
                                    </tr>
                                    <tr>
                                      <td width="100%" style="border-style: none; border-width: medium" colspan="5">
                              

                                      </td>
                                    </tr>
                                    <tr>
                                      <td width="35%" style="border-style: none; border-width: medium">&nbsp;</td>
                                      <td width="12%" style="border-style: none; border-width: medium">
                                       <%
                                         if CurPage > 1 then 
                                         Response.write("<a href=apagar_noticia.asp?curpage="&curpage-1&">")
                                         Response.write("[Anterior]")
                                         End if
                                       %>&nbsp;</td>
                                      <td width="2%" style="border-style: none; border-width: medium">&nbsp;</td>
                                      <td width="11%" style="border-style: none; border-width: medium">
                                       <%
                                         if CInt(CurPage) <> CInt(TotalPage) then 
                                         Response.write("<a href=apagar_noticia.asp?curpage="&curpage + 1&">")
                                         Response.write("[Próximo]")
                                         End if
                                       %>&nbsp;</td>
                                      <td width="40%" style="border-style: none; border-width: medium">&nbsp;</td>
                                    </tr>
                                    <tr>
                                      <td width="35%" style="border-style: none; border-width: medium">&nbsp;</td>
                                      <td width="12%" style="border-style: none; border-width: medium">&nbsp;</td>
                                      <td width="2%" style="border-style: none; border-width: medium">&nbsp;</td>
                                      <td width="11%" style="border-style: none; border-width: medium">&nbsp;</td>
                                      <td width="40%" style="border-style: none; border-width: medium">&nbsp;</td>
                                    </tr>
                                    <tr>
                                      <td width="35%" style="border-style: none; border-width: medium">&nbsp;</td>
                                      <td width="12%" style="border-style: none; border-width: medium">&nbsp;</td>
                                      <td width="2%" style="border-style: none; border-width: medium">&nbsp;</td>
                                      <td width="11%" style="border-style: none; border-width: medium">&nbsp;</td>
                                      <td width="40%" style="border-style: none; border-width: medium">&nbsp;</td>
                                    </tr>
                                  </table>
                                  </td>
                                </tr>
                              </table>
                              </td>
                            </tr>
                          </table>
                          </td>
                        </tr>
                      </table>
                      </td>
                    </tr>
                    </table>
                  </td>
                </tr>
              </table>
            </form>
            </td>
  </tr>
  <tr>
  	<td style="border-style: none; border-width: medium" bgcolor="#000000" height="22">
  	<p align="center"><font size="2" face="Tahoma" color="#C0C0C0">Todos 
  	os Direitos Reservados - 2004<sup>®</sup> - NETS Art<sup>®</sup></font></p>
  	</td>
  </tr>
	</table>
</div>

</body>

</html>

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

bem.. seu codigo ta enorme.. então vou postar um pedaço dele pra você ver, onde éra pra colocar o codigo que eu mostrei:

<%@ language="vbscript"%>

<% Response.Expires = 0 %>

<%

seguro=session("seguro")

if seguro="" then

response.redirect("../login")

end if

%>

<!--#include file="../../data.asp"-->

<!--#include file="../../status.asp"-->

<!--# include File="adovbs.inc"-->

<%

Const NumPerPage = 10

if Request.QueryString("CurPage") = "" then

CurPage = 1

Else

CurPage = Request.QueryString("CurPage")

End if

Set conexao = server.createobject("ADODB.connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath("../../dados/banco_dados")

Set rs = Server.CreateObject("ADODB.recordset")

rs.CursorLocation = 3

rs.CacheSize = NumPerPage

strSQL = "SELECT * from noticias order by id desc"

rs.Open strSQL, conexao

'abaixo do sql, você faz o codigo que eu falei..

If rs.EOF = true then

response.write "Tabela Vazia"

response.end

end if

rs.MoveFirst

rs.PageSize = NumPerPAge

TotalPages = rs.PageCount

rs.AbsolutePage = CurPage

%>

Bem, seu codigo continua exatamente igual.

Mas, eu adicionei a parte em vermelho abaixo do SQL. Para testar se a tabela esta vazia.

Eu não coloquei o restante do codigo, porque é enorme!

Teste aí..

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

por causa do RESPONSE.END

apague ele então

O response.end faz com que nada mais seja executado no restante do codigo!

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Olha, eu não sei o que seu codigo faz.

Se ele não retorna registros, o que deve ser mostrado na tela?

Qual parte do codigo deve aparecer, caso a tabela esteja vazia?

porque, é simples.

No lugar do END IF, você coloca ELSE.

E coloca o END IF antes da parte que você quer que apareça, caso a tabela esteja vazia.

Apenas fazendo isso, deve funcionar.

Como não sei qual sua logica, e o que seu codigo faz, não tenho como te ajudar em 100% de certeza

Entendes?

PS: Não fique dando UP no seu tópico.. não fique postando mensagens sem sentido, e repetidas. Isso é considerado FLOOD. E não é permitido.

Caso continue, terei de comunicar à administração..

Abraços

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...