4 replies to this topic

[lone]

Galera como mostrar uma mensagem de nenhum arquivo encontrado quando não há dados no bd no codigo abaixo, pois simulei o script sem registros no bd e deu erro abaixo, quando há arquivos funciona normalmente

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

<%
dim login
login = request.form("login")
'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> 
<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
%>

[Tarkan]

Basicamente, você teria que agir da seguinte forma:

if RecSet.EOF = True Then
response.write "nada encontrado"
else
do While not RecSet.EOF ...
.... bla bla bla ...
end if

Entendeu?
Espero que tenha ajudado!

Boa sorte e qualquer dúvida, volte a postar!

[Fragnatic]

E o nome da pagina?

[lone]

Basicamente, você teria que agir da seguinte forma:

if RecSet.EOF = True Then
response.write "nada encontrado"
else
do While not RecSet.EOF ...
.... bla bla bla ...
end if

Entendeu?
Espero que tenha ajudado!

Boa sorte e qualquer dúvida, volte a postar!

Cara funcionou perfeitamente, valeu, a força.