Jump to content


Photo

Erro Na Paginação Do Ultimo Registro


  • Faça o login para participar
4 replies to this topic

#1 lone

lone

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado

Posted 23/10/2003, 11:40

Caros fiz um sistema de paginação e ele lista normalmente os registros, porem no ultimo e dá a seguinte msg,

Tipo de erro:
ADODB.Field (0x80020009)
BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.
/monitoria/paginacaoteste.asp


chequei o codigo e não localizei o erro


<%
dim login
login = 30141
'Paginação de Registros
n_page=request("n_page")
If n_page="" Then n_page = 1

set db = server.CreateObject("ADODB.Connection")
db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}"

Set RecSet=Server.CreateObject("ADODB.Recordset")
RecSet.Open "monitorias", db, 3,3
RecSet.PageSize = 1 'registros por página
RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página

contador=0
do While not RecSet.EOF AND contador < RecSet.PageSize
   response.write "<font face=verdana size=2><b>"
   response.write RecSet("nome")&"</b><BR>"
   RecSet.MoveNext
   contador=contador+1
%>
<table align="center" cellspacing=4 class="quadro" cellpading=0>
  <tr bgcolor=#EBEBEB> 
    <td><font color="#0000FF">Data <%=RecSet("data")%></font></td>
    <td>&nbsp;</td>
    <td><font size="2">&nbsp;</font></td>
    <td><font size="2">&nbsp;</font></td>
  </tr>
  <tr> 
    <td bgcolor="#EBEBEB"><font color="#009999" size="2">01 - Abertura</font></td>
    <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("abertura")%></font></td>
    <td bgcolor="#EBEBEB"><font color="#009999" size="2">02 - Levantamento das 
      Necessidades</font></td>
    <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("levantamentonecessidades")%></font></td>
  </tr>

<tr bgcolor="#009999"> 
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
    <tr> 
    <td colspan=4 align=center> </td>
  </tr>
</table>
<%
loop 

response.write "<br>"

For navega= 1 to RecSet.PageCount
    If navega = Cint(n_page) Then 
       response.write "<font face=verdana size=2><b>"
    response.write navega
    Else
       response.write "<font face=verdana size=2><b>"
    response.write space(1) & "<a href=paginacaoteste.asp?n_page=" & navega & ">" & navega & "</a>" & space(1)
End If
Next

response.write "<br><br>"

anterior = n_page - 1
proxima  = n_page + 1

If anterior > 0 Then
   response.write "<font face=verdana size=2><b>"
   response.write "<a href=paginacaoteste.asp?n_page="&anterior&">Anterior</a>" 
End If

If proxima < navega Then
   response.write "<font face=verdana size=2><b>"
   response.write space(1) & "<a href=paginacaoteste.asp?n_page="&proxima&">Próxima</a>" 
End If
%>

O homem sabio compartilha o que sabe, o tolo leva o conhecimento para o esquecimento.

#2 Rodrigo

Rodrigo

    oi!

  • Usuários
  • 995 posts
  • Sexo:Não informado
  • Interesses:Diretório de sites - http://www.acheinobrasil.com.br

Posted 23/10/2003, 13:54

ve se agora funciona:

<%
dim login
login = 30141
'Paginação de Registros
n_page=request("n_page")
If n_page="" Then n_page = 1

set db = server.CreateObject("ADODB.Connection")
db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}"

Set RecSet=Server.CreateObject("ADODB.Recordset")
RecSet.Open "monitorias", db, 3,3
RecSet.PageSize = 1 'registros por página
RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página

contador=0
do While not RecSet.EOF AND contador < RecSet.PageSize
response.write "<font face=verdana size=2><b>"
response.write RecSet("nome")&"</b><BR>"
contador=contador+1
%>
<table align="center" cellspacing=4 class="quadro" cellpading=0>
<tr bgcolor=#EBEBEB>
<td><font color="#0000FF">Data <%=RecSet("data")%></font></td>
<td>&nbsp;</td>
<td><font size="2">&nbsp;</font></td>
<td><font size="2">&nbsp;</font></td>
</tr>
<tr>
<td bgcolor="#EBEBEB"><font color="#009999" size="2">01 - Abertura</font></td>
<td bgcolor="#EBEBEB"><font size="2"><%=RecSet("abertura")%></font></td>
<td bgcolor="#EBEBEB"><font color="#009999" size="2">02 - Levantamento das
Necessidades</font></td>
<td bgcolor="#EBEBEB"><font size="2"><%=RecSet("levantamentonecessidades")%></font></td>
</tr>

<tr bgcolor="#009999">
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td colspan=4 align=center> </td>
</tr>
</table>
<%
RecSet.MoveNext
loop

response.write "<br>"

For navega= 1 to RecSet.PageCount
If navega = Cint(n_page) Then
response.write "<font face=verdana size=2><b>"
response.write navega
Else
response.write "<font face=verdana size=2><b>"
response.write space(1) & "<a href=paginacaoteste.asp?n_page=" & navega & ">" & navega & "</a>" & space(1)
End If
Next

response.write "<br><br>"

anterior = n_page - 1
proxima = n_page + 1

If anterior > 0 Then
response.write "<font face=verdana size=2><b>"
response.write "<a href=paginacaoteste.asp?n_page="&anterior&">Anterior</a>"
End If

If proxima < navega Then
response.write "<font face=verdana size=2><b>"
response.write space(1) & "<a href=paginacaoteste.asp?n_page="&proxima&">Próxima</a>"
End If
%>

#3 lone

lone

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado

Posted 24/10/2003, 10:46

ve se agora funciona:

<%
dim login
login = 30141
'Paginação de Registros
n_page=request("n_page")
If n_page="" Then n_page = 1

set db = server.CreateObject("ADODB.Connection")
db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}"

Set RecSet=Server.CreateObject("ADODB.Recordset")
RecSet.Open "monitorias", db, 3,3
RecSet.PageSize = 1 'registros por página
RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página

contador=0
do While not RecSet.EOF AND contador < RecSet.PageSize
  response.write "<font face=verdana size=2><b>"
  response.write RecSet("nome")&"</b><BR>"
  contador=contador+1
%>
<table align="center" cellspacing=4 class="quadro" cellpading=0>
<tr bgcolor=#EBEBEB>
  <td><font color="#0000FF">Data <%=RecSet("data")%></font></td>
  <td>&nbsp;</td>
  <td><font size="2">&nbsp;</font></td>
  <td><font size="2">&nbsp;</font></td>
</tr>
<tr>
  <td bgcolor="#EBEBEB"><font color="#009999" size="2">01 - Abertura</font></td>
  <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("abertura")%></font></td>
  <td bgcolor="#EBEBEB"><font color="#009999" size="2">02 - Levantamento das
    Necessidades</font></td>
  <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("levantamentonecessidades")%></font></td>
</tr>

<tr bgcolor="#009999">
  <td>&nbsp;</td>
  <td>&nbsp;</td>
  <td>&nbsp;</td>
  <td>&nbsp;</td>
</tr>
  <tr>
  <td colspan=4 align=center> </td>
</tr>
</table>
<%
  RecSet.MoveNext
loop

response.write "<br>"

For navega= 1 to RecSet.PageCount
  If navega = Cint(n_page) Then
      response.write "<font face=verdana size=2><b>"
  response.write navega
  Else
      response.write "<font face=verdana size=2><b>"
  response.write space(1) & "<a href=paginacaoteste.asp?n_page=" & navega & ">" & navega & "</a>" & space(1)
End If
Next

response.write "<br><br>"

anterior = n_page - 1
proxima  = n_page + 1

If anterior > 0 Then
  response.write "<font face=verdana size=2><b>"
  response.write "<a href=paginacaoteste.asp?n_page="&anterior&">Anterior</a>"
End If

If proxima < navega Then
  response.write "<font face=verdana size=2><b>"
  response.write space(1) & "<a href=paginacaoteste.asp?n_page="&proxima&">Próxima</a>"
End If
%>

Valeu Rodrigo funcionou perfeitamente, agora só me diz uma coisa quando voce tirou o movenext funcionou mas por que? se puder me explique porque ele deu o erro, Abraços Lone
O homem sabio compartilha o que sabe, o tolo leva o conhecimento para o esquecimento.

#4 Rodrigo

Rodrigo

    oi!

  • Usuários
  • 995 posts
  • Sexo:Não informado
  • Interesses:Diretório de sites - http://www.acheinobrasil.com.br

Posted 24/10/2003, 19:06

naum tirei, apenas movi ele para o final do codigo antes do loop.... pq ele dava um movenext , dai ia procurar os dados... se fosse EOF dava o erro... ;)

#5 lone

lone

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado

Posted 24/10/2003, 23:44

Valeu cara era por isso que dava o erro, eu nem me toquei, brigadão. :D
O homem sabio compartilha o que sabe, o tolo leva o conhecimento para o esquecimento.




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq