• Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   13-02-2016

      Prezados membros do Clube do Hardware,

      Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:
        Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas ao formulário abaixo:    Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
Seguidores 0
Célio-Ctba

Mais uma vez ADODB.Field error '80020009'

3 posts neste tópico

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!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Problema Resolvido!

Caso o autor necessite que o tópico seja reaberto, favor enviar mensagem privada para um dos moderadores dessa área.

Abraços!

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  
Seguidores 0