BOF ou EOF são verdadeiros, ou o registro atual foi excluído.

[willmadri 0]

Ja visitei varios foruns, ate mesmo o imaster tem um registro tratando deste assunto porem, nao me ajudou.

 

possuo uma pagina que funciona assim:

 

pagina index, exibe meus registros que estao amarrados a um determinado setor. cada registro possui um setor e um setor pode possuir varios registros. O erro esta acontecendo quando clico num determinado setor que nao possui nenhum registro, ja tentei varios ifs e loops. o ultimo que tentei ficou assim:

 

na pagina Setor.asp tem um comando SQL assim:

 

SetorAtual = (Request.QueryString("Setor1"))

strDic = "SELECT * "
strDic = strDic & "FROM TbDicionario "
strDic = strDic & "INNER JOIN TbSetor "
strDic = strDic & "On TbDicionario.IdSetor = TbSetor.IdSetor "
strDic = strDic & "WHERE tbDicionario.IdSetor=" & SetorAtual & " "
strDic = strDic & "Order By TbDicionario.Titulo asc "
SET rsDic = conexaodb.Execute(strDic)

e no corpo da pagina tem:

 

<%if rsDic.eof then%>
	 <td bgcolor="#ffffff" width="10%" align="left">Não possui nenhum registro!</td>
<%
 else
 Do until rsDic.eof 
 TpResp = rsDic.Fields("Solucao")
%>
	 <td bgcolor="#ffffff" width="70%" align="left"><p class="menu"><b><a href="detalhes.asp?detalhe1=<% =	  rsDic.Fields("IdDic") %>" class="menu"><% = rsDic.Fields("Titulo") %></a></b></p></td>
	 <td bgcolor="#ffffff" width="15%" align="left"><p class="menu"><b><a href="detalhes.asp?detalhe1=<% = rsDic.Fields("IdDic") %>" class="menu"><% = rsDic.Fields("Setor") %></a></b></p></td>

<% IF (TpResp ="") then %>
	 <td bgcolor="#ffffff" width="10%" align="left"><p class="ft8"><b><font color="#0033FF">Resp</font></b></p></td>
<% else %>
	 <td bgcolor="#ffffff" width="10%" align="left"><p class="ft8"><b><font color="#FF0000">ok</font></b></p></td>
<% End IF %>
	 <td width="5%" height="20"><a href="inserir.asp?id=<%=RsDic("IDDic")%>"><img src="Altera.gif" border="0" alt="Alterar Registro"></a></font></td>
</tr>
<%
rsDic.movenext
loop
end if
%>

Erro que da e o famoso:

 

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.

/rosa/Setor.asp

[mibnetweb 0]

Olá! você já tentou fazer o if desta maneira?

 

if rsDic.eof = true then

 

Se der certo ( ou não ) avisa ok?

[Prog 183]

Já tentou com DO WHILE invez de DO UNTIL.

 

O comportamento dos 2 loops são distintos.

[DSerma 19]

Coloque um:

If NOT rsDic.eof then

Antes de começar a fazer a manipulação da tabela, logo após a execução da instrução SQL..

 

Abraços...

[Mário Monteiro 179]

é exatamente o que o prog disse

 

o UNTIL vai tentar fazer mais uma vez a iteração e é nesta ultima que vai dar erro

 

use o WHILE ... NEXT