Jump to content


William M. Rodrigues

Member Since 15/01/2008
Offline Last Active 16/01/2008, 16:48
-----

Topics I've Started

Bof Ou Eof São Verdadeiros, Ou O Registro Atual Foi Excluído

15/01/2008, 15:10

Ja visitei varios foruns, encontrei um registro aqui 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.a

IPB Skin By Virteq