[Resolvido] Erro ao Excluir Registro

fabio Avila · Julho 20, 2009

Ola Galera , beleza..

Mais uma vez recorro aos mestres desse forum que sempre me ajudam .. é o seguinte , preciso colocar a opção de excluir no meu sisteminha aki , mas não consigo , esta dando erro :

Microsoft JET Database Engine (0x80040E14)Erro de sintaxe na seqüência de caracteres na expressão de consulta 'autonum= 361">Deletar Cadastro</a>'./asp/acisc/apaga_main.asp, line 15

mas tentei de varias maneiras e não tive resultado , eu faça a busca do cliente e abro os dados dele , fiz assim coloquei um botao excluir com a seguinte ação : apaga_main.asp?Deletar=cadastro&id=<%=id%>">Deletar Cadastro</a> , e abaixo a pagina apaga_main.asp que faz a exclusão.

<HTML><HEAD> 
<TITLE>excluir_2.asp</TITLE> 
<body bgcolor="aqua"></HEAD> 
<% 
Set Conexao = CreateObject("ADODB.CONNECTION")
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Data Source="&Server.MapPath("bd.mdb")&";Provider=Microsoft.Jet.OLEDB.4.0;"


id= Request.QueryString("id")

sql = "DELETE FROM Juridico WHERE id= "&id&" "

Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs = objCon.Execute(sql)

objCon.close
Set objCon = Nothing

Response.Redirect("apaga_success.asp")
%>
</BODY> 
</HTML

Abraços

Patrique · Julho 20, 2009

Mano tenta assim

<HTML><HEAD>
<TITLE>excluir_2.asp</TITLE>
<body bgcolor="aqua"></HEAD>
<%
Set Conexao = CreateObject("ADODB.CONNECTION")
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Data Source="Server.MapPath("bd.mdb");Provider=Microsoft.Jet.OLEDB.4.0;"

id = Request.QueryString("id")

Conexao.Execute("DELETE DISTINCTROW * FROM Juridico WHERE Id = "& id &" ")
conexao.Close
Set Conexao = Nothing

Response.Redirect("apaga_sucess.asp")
%>
</BODY>
</HTML>

l_nando · Julho 20, 2009

Jow, boa noite.

Tenta desto forma:

<HTML><HEAD> 
<TITLE>excluir_2.asp</TITLE> 
<body bgcolor="aqua"></HEAD> 
<% 
Set Conexao = CreateObject("ADODB.CONNECTION")
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Data Source="&Server.MapPath("bd.mdb")&";Provider=Microsoft.Jet.OLEDB.4.0;"


id= Request.QueryString("id")

sql = "DELETE FROM Juridico WHERE id= "&id

Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs = objCon.Execute(sql)

objCon.close
Set objCon = Nothing

Response.Redirect("apaga_success.asp")
%>
</BODY> 
</HTML>

Valeu!!

[]'s

Patrique · Julho 20, 2009

I nando desta forma esta correta, para que a chamativa Set rs em um code que não tem o intuito de pegar dados do bd mais sim deletar registro, não é necessário utilizar rs, este procedimento não faz sentido e esta incorreto.

Ted k' · Julho 20, 2009

exatamente patrique, nao há necessidade de usar recordset mais o erro que é apontado é o do SQL, pq o banco access nao aceita dessa maneira:

sql = "DELETE FROM Juridico WHERE id= "&id&" "

e sim dessa:

sql = "DELETE FROM Juridico WHERE id= "&id

e friso tbm no que o patrique falou... sem recordset e I_nando, se tirar o recordset seu codigo fica melhor ainda :)/> , uma dica

Patrique · Julho 20, 2009

Muito bem professor Ted, valew pela aula http://forum.imasters.com.br/public/style_emoticons/default/clap.gif/>

l_nando · Julho 21, 2009

Desculpa pela desatenção, valew!

[]'s

Ted k' · Julho 21, 2009

desculpa e que amigo, que nada, nao é falta de atenção nenhuma, hehe, como você fez não está errado e nem certo, só está desnecessário!

xanburzum · Julho 21, 2009

dá uma olhada aki, uma dica de exclusaun num sistema administrativo onde, antes de excluir , você verifica o status do user, tipo, se ele for admin, naun deixa excluir, ou seja,antes de efetuar , verificamos se o user está querendo excluir o “admin”, caso o user seja igual ao admin, ele é redirecionado para a pagina de administração com uma mensagem de erro, é interessante selecionar o suer antes de excluir para ver o k esta sendo excluido e se realmente ker exclui-lo

fabio Avila · Julho 21, 2009

Fala ae Galera , beleza ..

Bom tentei seguir as dicas de vcs , mas esta dando o seguinte erro :

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/asp/acisc/apaga_main.asp, line 5, column 26

objCon.Open "Data Source="Server.MapPath("contato.mdb");Provider=Microsoft.Jet.OLEDB.4.0;"

-------------------------^

O codigo ficou assim, veja aonde errei ..

<HTML><HEAD><TITLE>excluir_2.asp</TITLE><body bgcolor="aqua"></HEAD>

<%

Set Conexao = CreateObject("ADODB.CONNECTION")

Set objCon = Server.CreateObject("ADODB.Connection")

objCon.Open "Data Source="Server.MapPath("contato.mdb");Provider=Microsoft.Jet.OLEDB.4.0;"

id = Request.QueryString("id")

sql = "DELETE FROM Juridico WHERE id= "&id

conexao.Close

Set Conexao = Nothing

Response.Redirect("apaga_sucess.asp")

%>

</BODY></HTML>

Abraços

Mário Monteiro · Julho 21, 2009

tem que concatenar o Server.MapPath("contato.mdb")

do jeito que esta ta errado

fabio Avila · Julho 22, 2009

E ae Mário beleza ...

Cara modifiquei meu codigo e agora não esta dando mas também não exlui nada .. lembrando que pego o cliente pelo Codigogo ex: cliente.asp?acao=A&autonum=305 , abaixo o codigo como deixei .. veja se ta correto ;

<HTML><HEAD><TITLE>excluir_2.asp</TITLE><body bgcolor="aqua"></HEAD>
<%
Set Conexao = CreateObject("ADODB.CONNECTION")
Set objCon = Server.CreateObject("ADODB.Connection")

conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("contato.mdb") & ";Persist Security Info=False"

autonum= Request.QueryString("autonum")
sql = "DELETE FROM Juridico WHERE autonum= "&autonum
conexao.Close
Set Conexao = Nothing
%>
 <!-- depois de enviado o email... -->
<script language="JavaScript">alert('Cadastro excluido com sucesso!');
location.href='teste.asp';</script>
            

</BODY></HTML>

Vlw

Mário Monteiro · Julho 22, 2009

você não executou a sql

fabio Avila · Julho 22, 2009

Mario, coloquei o sql mas ta dando erro :

Objeto necessário: ''

/asp/acisc/apaga_main.asp, line 8

<%

Set Conexao = CreateObject("ADODB.CONNECTION")

Set objCon = Server.CreateObject("ADODB.Connection")

conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("contato.mdb") & ";Persist Security Info=False"

autonum= Request.QueryString("autonum")

sql = "DELETE FROM Juridico WHERE autonum= "&autonum

objConn.Execute(sql)

conexao.Close

Set Conexao = Nothing

%>

vlw

/code]

Mário Monteiro · Julho 22, 2009

ta diferente como declarou e como executou falta um N

fabio Avila · Julho 22, 2009

Mario, eu denovo ..rs , achei o erro alterei mas continua com erro :

Operação não permitida quando o objeto está fechado.

/asp/acisc/apaga_main.asp, line 8

Ficou assim:

Set Conexao = CreateObject("ADODB.CONNECTION")
Set objCon = Server.CreateObject("ADODB.Connection")
conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("contato.mdb") & ";Persist Security Info=False"
autonum= Request.QueryString("autonum")
sql = "DELETE FROM Juridico WHERE autonum= "&autonum
objCon.Execute(sql)
conexao.Close
Set Conexao = Nothing
%>

Vlw

Mário Monteiro · Julho 22, 2009

aqui

Set objCon = Server.CreateObject("ADODB.Connection")
conexao.open

mude

Set objCon = Server.CreateObject("ADODB.Connection")
objCon.open

o importante é deixar igual e alterar as outras ocorrências

fabio Avila · Julho 22, 2009

Vamos denovo.rs . mudei de deu erro :

Erro de sintaxe na seqüência de caracteres na expressão de consulta 'autonum= 547">Deletar Cadastro</a>'.

/asp/acisc/apaga_main.asp, line 8

<%
Set Conexao = CreateObject("ADODB.CONNECTION")
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("contato.mdb") & ";Persist Security Info=False"
autonum= Request.QueryString("autonum")
sql = "DELETE FROM Juridico WHERE autonum= "&autonum
objCon.Execute(sql)
conexao.Close
Set Conexao = Nothing
%>

Mário Monteiro · Julho 22, 2009

porque está usando duas conexões?

deixe só uma e apague a outra

especifique qual a linha de código do erro

xanburzum · Julho 22, 2009

olha um exemplo:

autonum= Trim(Request.QueryString("autonum"))
constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
	  'crio o rsdel para excluir o registro
	    set rsdel=server.createobject("ADODB.Recordset")
		SQLdel="DELETE FROM login WHERE codigo="&autonum&""
		rsdel.open SQLdel,conexao,1,3
		response.redirect("administracao.asp?msg=3")
		set rsdel=nothing
	'fecha a conexao

lembrando, k sempre antes de excluir eu exibo os dados para o user e você tb pode implementar mais , nao permitindo excluir alguns dados vitais da tabela...

Arquivado

[Resolvido] Erro ao Excluir Registro

Recommended Posts

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

l_nando 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

l_nando 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169