[Resolvido] Registro excluido

Gledison · Abril 20, 2010

Senhores estou com um problema onde tenho uma opção para imprimir uma listagem, só que a mesma me retorna com um erro, segue abaixo:

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.

RELATORIA/ListagemKIT.asp

Sou iniciante na area de programação e não sei o que fazer, podem me ajudar?

grato pela atenção.

~Thiago Lara · Abril 20, 2010

Opa, gledison se você puder postar o código pode ajudar...

Mas esse erro está acusando que a sua consulta ao banco de dados não está retornando registros... ou seja o que você está procurando não existe

Gledison · Abril 20, 2010

Opa, gledison se você puder postar o código pode ajudar...

Mas esse erro está acusando que a sua consulta ao banco de dados não está retornando registros... ou seja o que você está procurando não existe

segue abaixo o codigo pedido vê se te ajuda.

segue abaixo.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">

<html dir=ltr>

<head>
<style>
a:link			{font:8pt/11pt verdana; color:FF0000}
a:visited		{font:8pt/11pt verdana; color:#4e4e4e}
</style>

<META NAME="ROBOTS" CONTENT="NOINDEX">

<title>Não é possível exibir a página</title>

<META HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
</head>

<script> 
function Homepage(){
<!--
// in real bits, urls get returned to our script like this:
// res://shdocvw.dll/http_404.htm#http://www.DocURL.com/bar.htm 

	//For testing use DocURL = "res://shdocvw.dll/http_404.htm#https://www.microsoft.com/bar.htm"
	DocURL=document.URL;
	
	//this is where the http or https will be, as found by searching for :// but skipping the res://
	protocolIndex=DocURL.indexOf("://",4);
	
	//this finds the ending slash for the domain server 
	serverIndex=DocURL.indexOf("/",protocolIndex + 3);

	//for the href, we need a valid URL to the domain. We search for the # symbol to find the begining 
	//of the true URL, and add 1 to skip it - this is the BeginURL value. We use serverIndex as the end marker.
	//urlresult=DocURL.substring(protocolIndex - 4,serverIndex);
	BeginURL=DocURL.indexOf("#",1) + 1;
	urlresult=DocURL.substring(BeginURL,serverIndex);
		
	//for display, we need to skip after http://, and go to the next slash
	displayresult=DocURL.substring(protocolIndex + 3 ,serverIndex);
	InsertElementAnchor(urlresult, displayresult);
}

function HtmlEncode(text)
{
    return text.replace(/&/g, '&amp').replace(/'/g, '"').replace(/</g, '<').replace(/>/g, '>');
}

function TagAttrib(name, value)
{
    return ' '+name+'="'+HtmlEncode(value)+'"';
}

function PrintTag(tagName, needCloseTag, attrib, inner){
    document.write( '<' + tagName + attrib + '>' + HtmlEncode(inner) );
    if (needCloseTag) document.write( '</' + tagName +'>' );
}

function URI(href)
{
    IEVer = window.navigator.appVersion;
    IEVer = IEVer.substr( IEVer.indexOf('MSIE') + 5, 3 );

    return (IEVer.charAt(1)=='.' && IEVer >= '5.5') ?
        encodeURI(href) :
        escape(href).replace(/%3A/g, ':').replace(/%3B/g, ';');
}

function InsertElementAnchor(href, text)
{
    PrintTag('A', true, TagAttrib('HREF', URI(href)), text);
}

//-->
</script>

<body bgcolor="FFFFFF">

<table width="410" cellpadding="3" cellspacing="5">

  <tr>    
    <td align="left" valign="middle" width="360">
	<h1 style="COLOR:000000; FONT: 13pt/15pt verdana"><!--Problem-->Não é possível exibir a página</h1>
    </td>
  </tr>
  
  <tr>
    <td width="400" colspan="2">
	<font style="COLOR:000000; FONT: 8pt/11pt verdana">Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la.</font></td>
  </tr>
  
  <tr>
    <td width="400" colspan="2">
	<font style="COLOR:000000; FONT: 8pt/11pt verdana">

	<hr color="#C0C0C0" noshade>
	
    <p>Experimente o seguinte:</p>

	<ul>
      <li id="instructionsText1">Clique no botão 
      <a href="javascript:location.reload()">
      Atualizar</a> ou tente novamente mais tarde.<br>
      </li>
	  
      <li>Abra a 
	  
	  <script>
	  <!--
	  if (!((window.navigator.userAgent.indexOf("MSIE") > 0) && (window.navigator.appVersion.charAt(0) == "2")))
	  {
	  	 Homepage();
	  }
	  //-->
	  </script>

	  home page e procure os links para as informações desejadas. </li>
    </ul>
	
    <h2 style="font:8pt/11pt verdana; color:000000">HTTP 500.100 - Servidor interno
    Erro - erro do ASP<br>
    Internet Information Services</h2>

	<hr color="#C0C0C0" noshade>
	
	<p>Informações técnicas (para a equipe de suporte)</p>

<ul>
<li>Tipo de erro:<br>
ADODB.Field (0x80020009)<br>BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.<br><b>/inap/RELATORIA/ListagemKIT.asp</b><br>
</li>
<p>
<li>Tipo de navegador: <br>
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
</li>
<p>
<li>Página: <br>
GET RELATORIA/ListagemKIT.asp</li>
<p>
<li>Hora: <br>
terça-feira, 20 de abril de 2010, 17:20:29
</li>
</p>
<p>
<li>Mais informações: <br>
 
<a href="http://www.microsoft.com/ContentRedirect.asp?prd=iis&sbp=&pver=5.0&ID=500;100&cat=ADODB%2EField&os=&over=&hrd=&Opt1=&Opt2=%2D2147352567&Opt3=BOF+ou+EOF+s%E3o+verdadeiros%2C+ou+o+registro+atual+foi+exclu%EDdo%2E+A+opera%E7%E3o+solicitada+pelo+aplicativo+requer+um+registro+atual%2E">Suporte da Microsoft</a>
</li>
</p>

    </font></td>
  </tr>
  
</table>
</body>
</html>

~Thiago Lara · Abril 20, 2010

Ei amigo,

eu pedi o codigo nativo da página "ListagemKIT.asp" e seus códigos em ASP! e não o código fonte da mesma falando do erro...

Obs: tenta colocar dentro das tags CODE do fórum, para ajudar na visualização

xanburzum · Abril 20, 2010

como esta sua SQL !!!

dá uma

response.write(sql)
response.end()

verifique se os critérios estão satisfazendo a consulta.

A causa mais provável, é que não há nenhum registro. coloque um

<% 
    set conn = CreateObject("ADODB.Connection") 
    conn.open <connection string> 
    set rs = conn.execute(<sql>) 
    [b]if not rs.eof [/b]then 
        do while not rs.eof 
            ' process 
            rs.movenext 
        loop 
    else 
        response.write "sem dados." 
    end if 
    ' ... 
%>

Se você estiver certo que há resultados, você pode verificar que a versão mais recente do MDAC (que você pode fazer o download do MDAC página de download).

Outra possível razão é que você está usando um procedimento armazenado que opera em uma tabela temporária, ou faz outras linhas que afectem a operação antes de sua instrução select.

Gledison · Abril 23, 2010

<%

Option Explicit

dim sql, i, cod, sql2, sql3

i = 0

%>

<%

set sql = conexao.execute("SELECT * FROM KITtb ORDER BY KIT")

if sql.eof then

session("msg") = "Nenhum resultado encontrado!"

session("erro") = 11

response.redirect("ListaAla.asp")

end if

%>

<html>

<head>

<!--

body {

background-image: url(../caminho/pasta/nome do arquivo.jpg);

background-repeat: no-repeat;

margin-left: 20px;

margin-top: 20px;

margin-right: 20px;

margin-bottom: 20px;

}

.style1 {

font-family: Arial, Helvetica, sans-serif;

font-size: 18px;

}

-->

</style></head>

<body>

<tr>

<td width="550" scope="col"><p align="center"><strong>iniciaisdaempresa</strong> - nomedaempresa<br />

nomedaempresaÇÃnomedaempresa</p> </td>

</tr>

<tr>

<td align="center" scope="col"><p><strong>nome do arquivo

</strong>- <%=date()%></p> </td>

</tr>

</table>

<br />

<tr>

<th width="100" bgcolor="#DDF0FE" scope="col">ENTRADA</th>

<th width="120" bgcolor="#DDF0FE" scope="col">local/local1</th>

</tr>

<%

do while not sql.eof

cod = sql("Codigo")

set sql2 = conexao.execute("SELECT * FROM relacaotb WHERE Codigo = "&cod&"")

set sql3 = conexao.execute("SELECT * FROM localtb WHERE Codigo = "&cod&"")

i = i + 1

%>

<tr>

</div></td>

</tr>

<%

sql.MoveNext

Loop

%>

</table>

</body>

</html>

xanburzum · Abril 23, 2010

ele ainda esta gerndo o erro ???

faça as verificações conforme o post #5

e poste o resultado...

Gledison · Abril 23, 2010

xanburzum como especifiquei no primeiro post, eu não entendo muito de programação, então peço sua ajuda aonde devo colocar o que você pediu pra inseri o comando response.write, tem como me ensinar?

grato

xanburzum · Abril 23, 2010

<%

do while not sql.eof

cod = sql("Codigo")

' call abreconexao

'crio o rs

set rs=Server.CreateObject("ADODB.Recordset")

'crio o SQL

sql2 = conexao.execute("SELECT * FROM relacaotb WHERE Codigo = "&cod&"")

rs.open SQL2,conexao,1,3

response.write(sql2)

response.end()

Gledison · Abril 26, 2010

Fiz o que me pediu e agora esta retornando com o erro abaixo:

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

line 72

segue abaixo o que fiz:

declarei o rs

<%
Option Explicit

dim sql, i, cod, sql2, sql3, rs

i = 0
%>

coloquei o que me pediu:

<%
  do while not sql.eof
  cod = sql("Codigo")
  set rs=Server.CreateObject("ADODB.Recordset")
  set sql2 = conexao.execute("SELECT * FROM relacaotb WHERE Codigo = "&cod&"")
  rs.open SQL2,conexao,1,3
  response.write(sql2)
response.end()
  set sql3 = conexao.execute("SELECT * FROM nome_da_tabela WHERE Codigo = "&cod&"")
  i = i + 1
  %>

e agora?

hargon · Abril 26, 2010

Essa é a linha cod = sql("Codigo") ?

O primeiro erro descrito ocorre por você não está verificando se o recordset está no inicio ou no fim.

Exemplo:

If Not sql.Eof Then
'Continua aqui com o While
Else
'Nenhum registro encontrado
End If

Gledison · Abril 26, 2010

Vou postar o codigo completo da pagina, favor descrever aonde devo colocar as instruções que me indicaram a fazer, e como devo colocar pois não conheço muito essa linguagem ou seja sou novo em programação.

se possivel escrevão detalhada a programação que devo colocar grato.

<%
Option Explicit

dim sql, i, cod, sql2, sql3

i = 0
%>

<!--#include file="../CONEXAO/conectar.asp" -->

<%
set sql = conexao.execute("SELECT * FROM KITtb ORDER BY KIT")

if sql.eof then
	session("msg") = "Nenhum resultado encontrado!"
	session("erro") = 11
	response.redirect("ListaA.asp")
end if


%>


  <%
  do while not sql.eof
  cod = sql("Codigo")
  set sql2 = conexao.execute("SELECT * FROM relacaotb WHERE Codigo = "&cod&"")
  set sql3 = conexao.execute("SELECT * FROM Alojamentotb WHERE Codigo = "&cod&"")
  i = i + 1
  %>
  <tr>
    <td scope="col"><div align="center"><%=i%></div></td>
    <td scope="col"><div align="center"><%=sql2("DiaC")%>/<%=sql2("MesC")%>/<%=sql2("AnoC")%> </div></td>
    <td scope="col"><%=sql2("Nome")%></td>
    <td scope="col"><div align="center">
      <div align="center"><%=sql3("")%> - <%=sql3("")%></div>
    </div></td>
    <td scope="col"><div align="center"><%=sql("KIT")%></div></td>
  </tr>
  <%
  sql.MoveNext
  Loop
  %>
</table>
</body>
</html>

Gledison · Abril 28, 2010

Eu resolvi o problema da seguinte forma:

linha que estava com problema (set sql = conexao.execute("SELECT * FROM KITtb ORDER BY KIT")

linha que corrigir o problema (set sql = conexao.execute("SELECT * FROM KITtb WHERE KIT")

(o erro era ao ivés de estar ORDER BY SUBSTITUI PARA WHERE ORDER BY KIT)

Fim

Arquivado

[Resolvido] Registro excluido

Recommended Posts

Gledison 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

~Thiago Lara 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gledison 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

~Thiago Lara 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gledison 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gledison 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gledison 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gledison 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gledison 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante