(Resolvido) Problemas com Eof ou Bof - Banco de Dados Vazio

[Rodrigo_Linhas]

Olá galera estou com um problema e não consigo resolver, já pesquisei varios topicos aqui no Forum mas nenhum me ajudou, espero que vocês possam me ajudar!

O problema é que quando o banco de dados esta vazio ele fica me dando aquele erro (ADODB.Field erro '80020009') e já coloquei aqueles codigos de BOF e EOF mas mesmo assim o erro continua!

Segue o codigo abaixo!

<%

cnpath="DBQ=" & Server.MapPath("meu.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 

Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open DataSource

Set rs1 = Server.CreateObject( "ADODB.Recordset" )
rs1.ActiveConnection = conn
rs1.open "SELECT *  FROM ponto where id = '"&Request.querystring("id")&"' order by id desc"

%>



<table border="1" width="100%" id="table" cellspacing="0" cellpadding="3" bordercolor="#000000">

<%
If Not Rs1.Eof Then 
%>

    <tr>
    <td align="center""><%=rs1("data")%></td>
    <td align="center"><%=rs1("manhaentrada")%></td>
    <td align="center"><%=rs1("manhasaida")%></td>
    <td align="center"><%=rs1("tardeentrada")%></td>
    <td align="center"><%=rs1("tardesaida")%></td>
    </tr>

<%
      else
      response.write("registro não encontrado")
      end if
      rs1.close
      set rs1=nothing
%>

Editado Maio 31, 2011 por Rodrigo_Linhas

[bareta]

o campo id da tabela ponto é inteiro ou uma string?

[Rodrigo_Linhas]

É campo inteiro na Tabela!

[bareta]

então não use aspas simples na sql

SELECT *  FROM ponto where id = "&Request.querystring("id")&" order by id desc

[Rodrigo_Linhas]

Se eu tirar as aspas simples ele da erro de parametro!!!! :mellow:

[bareta]

Se eu tirar as aspas simples ele da erro de parametro!!!! :mellow:

se seu campo é numerico a consulta é sem elas. Verifique se esta sendo passado algum valor para a consulta

[Rodrigo_Linhas]

A sim, segue um dos valores da consulta... tipo o link segue cadastrado.asp?id=EV0G8FHT3B

Banco esta assim:

Tabela: Ponto

codigo: autonumeração / chave primaria

id: EV0G8FHT3B

etc.

Tabela: Funcionarios

id:EV0G8FHT3B /sem chave primaria

etc:

e o codigo completo:

<%

cnpath="DBQ=" & Server.MapPath("meu.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open DataSource

Set rs = Server.CreateObject( "ADODB.Recordset" )
rs.ActiveConnection = conn
rs.open "SELECT *  FROM funcionarios where id = '"&Request("id")&"' order by id desc"


Set rs1 = Server.CreateObject( "ADODB.Recordset" )
rs1.ActiveConnection = conn
rs1.open "SELECT *  FROM ponto where id = '"&Request.querystring("id")&"' order by id desc"

%>



<table border="1" width="100%" id="table" cellspacing="0" cellpadding="3" bordercolor="#000000">

<%
If Not Rs1.Eof Then
%>

    <tr>
    <td align="center""><%=rs1("data")%></td>
    <td align="center"><%=rs1("manhaentrada")%></td>
    <td align="center"><%=rs1("manhasaida")%></td>
    <td align="center"><%=rs1("tardeentrada")%></td>
    <td align="center"><%=rs1("tardesaida")%></td>
    </tr>

<%
      else
      response.write("registro não encontrado")
      end if
      rs1.close
      set rs1=nothing
%>

[kuroi]

É campo inteiro na Tabela!

"EV0G8FHT3B" não é inteiro, é string. vai ter q usar aspa sim.

agora, qual o problema exatamente?? ele esta escrevendo "registro não encontrado", ou esta mostrando o erro ADODB.Field erro '80020009'??

se ele estiver dando erro, aponte pra nos em q linha exatamente esta acontecendo.

[Rodrigo_Linhas]

O Banco de dados esta vazio, e preciso que ele avise que não tem nenhum registro encontrado ao invez de aparecer esse erro abaixo!

ADODB.Field erro '80020009'

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

cadastrado.asp.asp, line 0

o id "EV0G8FHT3B" é de um usuario, e preciso dessa id para identificar ele e nas paginas cadastrado.asp?id=EV0G8FHT3B, porque assim, quando tem cadastro no banco a pagina lê normalmente só que quando o usuario é novo aparece esse erro ai!

[Rodrigo_Linhas]

Será se ninguém tem algum código que possa me ajudar???

[bareta]

colocou o tratamento na primeira sql aberta?

<%
cnpath="DBQ=" & Server.MapPath("meu.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DataSource

Set rs = Server.CreateObject( "ADODB.Recordset" )
rs.ActiveConnection = conn
rs.open "SELECT *  FROM funcionarios where id = '"&Request("id")&"' order by id desc"
if rs.eof then
response.write "nada"
else

Set rs1 = Server.CreateObject( "ADODB.Recordset" )
rs1.ActiveConnection = conn
rs1.open "SELECT *  FROM ponto where id = '"&Request.querystring("id")&"' order by id desc"

%>
<table border="1" width="100%" id="table" cellspacing="0" cellpadding="3" bordercolor="#000000">

<%
If Not Rs1.Eof Then
%>

    <tr>
    <td align="center""><%=rs1("data")%></td>
    <td align="center"><%=rs1("manhaentrada")%></td>
    <td align="center"><%=rs1("manhasaida")%></td>
    <td align="center"><%=rs1("tardeentrada")%></td>
    <td align="center"><%=rs1("tardesaida")%></td>
    </tr>

<%
      else
      response.write("registro não encontrado")
      end if
      rs1.close
      set rs1=nothing
end if
rs.close
set rs=nothing

[Rodrigo_Linhas]

Nossa Mais uma vez você conseguiu me ajudar Bareta agradeço de verdade, espero em poder ajudar também, abraços fica com Deus!