8 replies to this topic

[fabioavila]

Pessoal blz...

Seguinte .. estou tentando colocar no meu sistema uma opção pra exluir os cadastros , ma nao esta funcionando... estou fazendo da seguinte maneira ele busca pela Id do Registro como abaixo:

apaga_main.asp?autonum=<%=autonum%>

Dae ele da o erro abaixo :

Erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: ''
/asp/acisc/apaga_main.asp, line 15

Esse o codigo que uso pra Excluir :

<% 
'Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
'objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
strDBPath = Server.MapPath("contato.mdb")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

autonum= Request.QueryString("autonum")

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

Set rs = conObj.Execute(sql1)

	
conObj.Close
Set conObj = nothing
Response.Redirect("apaga_success.asp")
%>

Alguem póde me dar uma força ..

[]cs

Edição feita por: DarkSign, 22/07/2009, 14:41.
[code] no lugar de [quote]

[DiegoCoruja]

Ola, acho que você esqueceu do recordset adiciona isso la!
[codebox]
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs = conObj.Execute(sql)
[/codebox]

[Renan L. Queiroz]

Cara não é necessário o rs para excluir um registro no banco não!
Não estou dizendo que estão errados, mas que não é necessário!

Além de outra coisa ... de uma procurada por STORED PROCEDURES, esse
é um ótimo recurso para a segurança de seus dados. Tem por ai na net, mas aconselho o w3schools.

Exemplo básico:

Set cmd_excluirDados = Server.CreateObject("ADODB.Command")

	cmd_excluirDados.ActiveConnection = BD_CONN ' String de connexao
	cmd_excluirDados.CommandText = "PRC_DELETAR_REGISTRO"
	cmd_excluirDados.CommandType = 4 ' Tipo SP

	cmd_excluirDados("@autonum") = autonum

	cmd_excluirDados.Execute()

A procedure criada no banco fica dessa forma:

CREATE PROCEDURE PRC_DELETAR_REGISTRO( @autonum int ) AS BEGIN DELETE FROM Juridico WHERE autonum = @autonum END

O código da procedure é oculto para a página, evitando que um SQL INJECTION (forçando erro)
venha a apresentar através de um erro os campo da tabela em questão... ficando assim vunerável.

Me desculpe se fui meio condfuso com as explicações, por via das dúvidas
pesquise sobre SQL INJECTION e STORED PROCEDURE, isso irá lhe ajudar muito!

Edição feita por: Renan L. Queiroz, 22/12/2008, 16:58.

[fabioavila]

Ola Diego , blz...

fiz da forma que passou .mas ainda continua com erro..

[]cos

[WebSan.Com.Br]

*** EDIT ****

Agora tem uma coisa que lendo seu codigo, tem um erro de escrita:
sql = "DELETE FROM Juridico WHERE autonum=" & autonum
Set rs = conObj.Execute(sql1)

Vc fez uma execução inexixtente !!!
Ve tb se corrigindo isso já irá resolver

Pessoal blz...

Seguinte .. estou tentando colocar no meu sistema uma opção pra exluir os cadastros , ma nao esta funcionando... estou fazendo da seguinte maneira ele busca pela Id do Registro como abaixo:

apaga_main.asp?autonum=<%=autonum%>

Sem esqueçer que antes deste link você um:
Set RS = objConn.Execute("SELECT * FROM Juridico WHERE autonum="& Request.QueryString("autonum") &"")
Ou algo do genero, pq não sei se vc está recuperando um resultado do DB ou se está listando todos os cadastros, mas enfim.

Altera esse link para assim:
<a href="apaga_main.asp?Deletar=cadastro&autonum=<%= RS("autonum") %>">Deletar Cadastro</a>

autonum= Request.QueryString("autonum")
sql = "DELETE FROM Juridico WHERE autonum=" & autonum
Set rs = conObj.Execute(sql1)

conObj.Close
Set conObj = nothing
Response.Redirect("apaga_success.asp")

Tente assim:

'1° faz sua conexão com o DB.
If Request.QueryString("Deletar") = "cadastro" Then

autonum = Request.QueryString("autonum")
set rs = objConn.Execute("DELETE FROM Juridico WHERE autonum="& autonum &"")
conObj.Close
Response.Redirect("apaga_success.asp")

Tenta usar estes códigos que citei acima e posta o resultado !

Edição feita por: WebSan.Com.Br, 09/01/2009, 12:02.

[DiegoCoruja]

ops, tira o sql1 deixe sql

[fabioavila]

E ae Blz.....

Fiz as modificações com me passou

1 - Link

apaga_main.asp?Deletar=cadastro&autonum=<%=autonum%>">Deletar Cadastro</a>

2 - Na Pagina

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


If Request.QueryString("Deletar") = "cadastro" Then
autonum = Request.QueryString("autonum")
set rs = objConn.Execute("DELETE FROM Juridico WHERE autonum="& autonum &"")
conObj.Close
Response.Redirect("apaga_success.asp")
%>

Seguinte ele esta no o erro abaixo:

Erro de compilação do Microsoft VBScript (0x800A03F6)
'End' esperado
/asp/acisc/apaga_main.asp, line 14

[]ços

[chocomilki]

E ae meus amigos ...

Será que algeum consege me ajudar a resolver esse erro ... desde já agradeço

ABraços

[Renan L. Queiroz]

Sintax do comando IF !!!

If numero = 1 Then
	response.write "Numero 1"
Else
	response.write "Outro numero!"
End If
%>

Fabioavila, de uma olhadinha e veja o que falta em seu código!