rsExcluirReg.LockType

[Penelope 0]

Olá!

O que será que está acontecendo já tentei mudar algumas coisas, mas nunca dá certo... tenho uma página onde é listado os registros do banco de dados e tem um link para editar e um link para excluir um registro. A função excluir está abaixo, ela está sempre dando erro na tag:

rsExcluirReg.LockType = 3

O q está acontecendo?

 

ASP

[*]

 

[*]<% 

 

[*]'Declarando as variáveis

 

[*]Dim adoCon 'Variável de conexão

 

[*]Dim rsExcluirReg 'Variável do rs

 

[*]Dim strSQL 'Variável do sql

 

[*]Dim EscolheReg 'Variável para escolher regisro para ser deletado

 

[*]

 

[*]'Lendo o ID do registro a ser deletado

 

[*]EscolheReg = CLng(Request.QueryString("ID"))

 

[*]

 

[*]'Criando a conexão

 

[*]Set adoCon = Server.CreateObject("ADODB.Connection")

 

[*]

 

[*]'Criando conexão DSN-Less

 

[*]adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banco.mdb")

 

[*]

 

[*]'Criando um rs

 

[*]Set rsEscluirReg = Server.CreateObject("ADODB.Recordset")

 

[*]

 

[*]'Iniciando a strig sql

 

[*]strSQL = "SELECT Atendentes.* FROM Atendentes WHERE ID_no=" & EscolheReg

 

[*]

 

[*]'Arquivos a serem travados pelo ADO

 

[*]rsExcluirReg.LockType = 3

 

[*]

 

[*]'Abrindo o rs com o sql

 

[*]rsExcluirReg.Open strSQL, adoCon

 

[*]

 

[*]'Deletando o registro do banco

 

[*]rsEscluirReg.Delete

 

[*]

 

[*]'Reset server objects

 

[*]rsEcluirReg.Close

 

[*]Set rsExcluirReg = Nothing

 

[*]Set adoCon = Nothing

 

[*]

 

[*]'Retornando para a página atendentes.asp

 

[*]Response.Redirect "atendentes.asp"

 

[*]%> 

 

[*]

[Mário Monteiro 179]

qual o erro??