Ir para conteúdo
Fórum Script Brasil
  • 0

Error apos deletar um registro


raphpac

Pergunta

Olá,

Gostaria de entender por acontece da esse erro quando deleto um nome da lista. O nome é deletado perfeitamente, mas a página volta com erro.

Erro:

ADODB.Field error '80020009'

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

/extranet/elistavip2.asp, line 0

<!--#include file="conexao.inc.asp"-->
<%
lojadb.execute("delete from listavip where Código like '"&request.QueryString("X")&"'")

Function FormataNome(ByVal Nome)
    Dim arrNome
    Dim Retorno
    Dim Cont
    Dim objER
    Dim Excecoes
    Set objER        = New RegExp
    objER.IgnoreCase= True
    objER.Global    = True
    Excecoes        = "^(da|das|de|do|dos|e)$"
    objER.Pattern    = Excecoes
    Nome = Lcase(Replace(Nome, "  ", " "))
    arrNome = Split(Nome, " ")
    Retorno = ""
    For Cont = 0 To Ubound(arrNome)
        arrNome(Cont) = Trim(arrNome(Cont))    

        If Not objER.Test(arrNome(Cont)) Then
            If Not arrNome(Cont) = "" Then
                arrNome(Cont) = Ucase(Left(arrNome(Cont), 1)) & Right(arrNome(Cont), Len(arrNome(Cont))-1)
            End If
        End If
        Retorno = Retorno & " " & arrNome(Cont)
    Next
    Set objER = Nothing
    FormataNome = Retorno
End Function
Function FormataData(Data)
   If Data <> "" Then FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2)
End Function

%>
<link href="css/estiloadm.css" rel="stylesheet" type="text/css" />
<div id="conteudo">
  <div class="titulo_pag">Excluir nomes</div>

<%
            Set dados = Lojadb.execute("Select * from agenda Where codigo like '"&request.QueryString("lid")&"'")
 %>
<div id="dados">
  <div><span class="negrito">Local:</span> <%=dados("local2")%></div>
  <div><span class="negrito">Evento: </span><%=dados("evento")%></div>
  <div><span class="negrito">Data:</span> <%=FormataData(dados("data"))%></div>
</div>
<%
          Set rs=LojaDB.Execute("SELECT * FROM listavip WHERE cod_ag LIKE '"&request.QueryString("lid")&"' Order by nomevip") 
             %>
    <table width="400" border="0" align="center" class="texto">
            <%
            while not rs.EOF
                If cont=0 Then %> 
                    <tr>
                      <% End If%> 
                     <td>
            <% Response.Write FormataNome(rs("nomevip"))%> <div> <a href="?id=elistavip2&X=<%=rs("Código")%>">Excluir</a> </div>
                
                    <%        
                  Response.Write "</td>"
                     cont=cont+1
                     If cont=2 Then ' Definimos a Quantidade de colunas
                   Response.Write "</tr>"
                     cont=0
                     End If
                     rs.MoveNext
                     Wend
                     rs.Close
                     set rs = Nothing
                      %>  
</table>
</div>

Agradeço qualquer ajuda

Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0

mas veja seu script... na terceira linha você manda deletar e depois no decorrer do script você faz uma consulta que basicamente seleciona as mesmas informações...

O erro não é ao deletar... a mensagem de erro é clara... e é na consulta... a(s) consulta(s) seginte(s) esta retornando vazia porque os registros já foram anteriormente deletados...

sacou?

Da uma revisadinha nas consultas...

Abração

Link para o comentário
Compartilhar em outros sites

  • 0

sim,

mais a função desse script e deletar um nome da lista, apos ser deletado eu queria q ele exibisse a lista novamente.

desculpe, mas no momento estou estudando asp por conta propria e ate o momento desconheço a solução para esse erro :(

Link para o comentário
Compartilhar em outros sites

  • 0

Eu fiz uma agenda para eventos com lista vip. Cada codigo da "agenda" esta ligado a uma tabela "lista Vip".

Quando eu faço essa consulta " rs=LojaDB.Execute("SELECT * FROM listavip WHERE cod_ag LIKE '"&request.QueryString("lid")&"' Order by nomevip") "

ele mostra todos os nomes da "listavip" ligados ao registro da agenda que escolhi.

No painel de Administração eu coloquei para poder excluir os nomes da lista de 1 em 1. So que quando exclui um nome volta essa erro. Ele não esta mostrando a lista novamente com os nomes que sobarao.

Obrigado pela ajuda.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...