O que está errado nesse script de exclusão?

[Penelope 0]

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"

 

[*]%> 

 

[*]

 

O que estou fazendo de errado nesse script de exclusão?

O erro retornado diz que é na linha 24:

ASP

[*]

 

[*]rsExcluirReg.LockType = 3

 

[*]

Alguem poderia me explicar melhor a função dessa linha.... to aprendendo ainda....

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[meirelles 0]

ESPERIMENTA RETIRAR ESSA LINHA E VE SE FUNCIONA!EU ACHO Q É O TIPO DO PONTEIRO DO RECORD SET

[Penelope 0]

Já tentei, nao deu certo...

[Penelope 0]

agora deu erro nessarsExcluirReg.Open strSQL, adoCon

[meirelles 0]

SE LIGA , COLOCA UMA

 

& ' "

 

NO FINAL DA VARIAVEL STRSQL VE SE FUNCIONA

ASP

[*]

 

[*]

 

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

 

[*]

[meirelles 0]

POSTA O QUE ACONTECEU NO SEU CÓDIGOvocê INVERTEU A LINHA COMPLETA...SIM OU NÃO

[Penelope 0]

Deu mais um erro nessa parte agorarsExcluirReg.Open strSQL, adoCon

[meirelles 0]

você TROCOU A LINHA COMPLETA SRTSQL, PELA QUE EU POSTEI E DEU ESSE ERRO NOVAMENTE...CASO SIM, NÃO SEI MAS O QUE POSSO TE AJUDAR, POIS TMB SOU INICIANTE.CASO NÃO, ESPERIMENTE TROCAR A LINHA INTEIRA...VALEEEEEEEEW

[Penelope 0]

valew!

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[meirelles 0]

Continua dando erro?

[Mário Monteiro 179]

eh pra excluir???você esta usando um select???strSQL = "SELECT Atendentes.* FROM Atendentes WHERE ID_no=" & EscolheReg

[Salgado 4]

Mário, ela está Deletando usando ADO e não na SQL. Qual a mensagem de erro que é mostrada Penélope?

[Penelope 0]

Depois q eu mudei deu erro aqui:

 

ASP

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

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'CLng'

 

/penelopenaweb/atendimento/excluir_atendente.asp, line 9

[Salgado 4]

Coloca CInt ou CDbl no lugar desse CLng