Erro ao Excluir

[Fabio AVILA]

Ola amigos,

Estou tentando excluir registros no meu bd mas esta dando erro .. abaixo o codigo que uso :

ERRO: Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/asp/acisc/apaga_main.asp, line 15

<%

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;"

autonum= Request.QueryString("autonum")

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

Set rs = Server.CreateObject("ADODB.RecordSet")

Set rs = conObj.Execute(sql)

objCon.close

Set objCon = Nothing

Response.Redirect("apaga_success.asp")

%>

[]ÇOS

[Rafael Spilki]

você abre objCon mas executa conObj!

Basta acertar esse detalhe...

[]'s Rafael Spilki

[victormartins]

Está faltando aspas:

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

[]'s

Edit..

E o detalhe que o Rafael disse..

Editado Janeiro 9, 2009 por victormartins

[Fabio AVILA]

Fiz as alterações como me pediram, e esta dando erro de compilação:

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

Erro de sintaxe

/asp/acisc/apaga_main.asp, line 12, column 53

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

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

<%

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;"

autonum= Request.QueryString("autonum")

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

Set rs = Server.CreateObject("ADODB.RecordSet")

Set rs = objCon.Execute(sql)

objCon.close

Set objCon = Nothing

Response.Redirect("apaga_success.asp")

%>

[]ços

[victormartins]

autonum é numérico?

Se for...

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

[Fabio AVILA]

Vitor ,

O Campo é automérico ... coloquei como passou e ainda continua o mesmo erro :

Constante de seqüência não finalizada

/asp/acisc/apaga_main.asp, line 12, column 58

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

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

[]ços

[victormartins]

Esta faltando mais uma aspa:

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

Agora deve funcionar XD

[Fabio AVILA]

Vitor ,

agora esta com o erro :

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Tipo de dados imcompatível na expressão de critério.

/asp/acisc/apaga_main.asp, line 16

[]co

[jow]

Cara é assim ....

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

[Rafael Spilki]

Exatamente como o jow escreveu... ou ainda assim:

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

Lembrem-se número é com aspas simples e textos são abraçados com ' e datas com #!

[]'s Rafael Spilki