Mais uma vez ADODB.Field error '80020009'

Célio-Ctba · 20 de novembro de 2004

Fala Galera!!!

Estou fazendo uma página muito simples, a consulta está fazendo normal, dentro da consulta tem um link pra fazer alterações no ítem selecionado na pesquisa.

Após fazer a consulta, clico neste link que deveria trazer os campos pra fazer a alteração, mas o que dá é o erro: ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/teste/altera_servico.asp, line 0


<body>

    
      <%

      If IsEmpty( Request.Form("submit") ) Then
      ComandoSQL = "SELECT * FROM servicos where desc_serv = '" & request.querystring("desc_serv") &"'"
      Set table = Server.CreateObject("ADODB.Recordset")
      table.Open ComandoSQL, conexao  	
      
      	
  
      %>


      
        <form method=POST action="altera_servico.asp">
  
  Descrição: <input type=text name="desc_serv" value="<%=table("desc_serv")%>" size=10 maxlength=10></br>
  Valor: <input type=text name="preco_serv" value="<%=table("preco_serv")%>" size=50 maxlength=50></br></br>
  <input type=submit name=submit value=Alterar>
  </form>
      <%
      table.close
      Set table = Nothing
      conexao.close
      Set Conexao = Nothing
  
      else
      %>

      

        <%
                
         If Not IsEmpty(Request.Form("submit"))     AND Trim(Request.Form("desc_serv")) <> ""  AND Trim(Request.Form("preco_serv")) <> ""  Then



    
          set table = Server.CreateObject("ADODB.RecordSet")
    	
    	
      	sql = "select * from servicos where desc_serv = '" & Request.FORM("desc_serv") &"'"
      	table.open sql, conexao , 3, 3, 1
      	'response.write sql
          table("desc_serv") = Request.FORM("desc_serv")
          table("preco_serv") = Request.FORM("preco_serv")
          
          table.update

      table.close
      set table = nothing
         conexao.close
      Set Conexao = Nothing

          
    %>
    
            
      
   <font face="Arial" size="2">
   <center>
Os dados foram enviados com sucesso!

   
[url="consulta_cliente.asp"][b]Clique aqui[/b][/url] para continuar</font></center>

      <%
        Else
      %>
      
   <font face="Arial" size="2">
   <center>
Atenção: Alguns dados necessário não foram preenchidos corretamente
   
[url="javascript:history.go(-1)"][b]Clique aqui[/b][/url] para voltar</font></center>


      <%
        End If
        End if
      %>



</body>

Creio q não seja muito complicado, pois tenho outro arquivo q altera clientes q está funcionando, já comparei os dois e está identico, fora o nome dos campos é lógico, mas esse não vai de jeito nenhum, 3º dia sem sucesso.

Abraços!!!

Célio-Ctba · 20 de novembro de 2004

Op´s, acabei de encontrar todo o erro.

Está no 1º SELECT lá no comecinho do código


ComandoSQL = "SELECT * FROM servicos where desc_serv = '" & request.querystring("cod") &"'"

Vejam que antes o querystring estava buscando "desc_serv" no entanto ele tem o nome de "cod" no arquivo de consulta, por isso não encontrava os registros.

muito. Obrigado, abraço a todos!!!