Excluir Dados

[Himura]

olá pessoal é o seguinte:

quero excluir do meu banco de dados registros, tudo via páginas asp...

a minha instrução sql para deletar está assim

"DELETE * from noticias where titulo="& titulo""

é isso mas num tá excluindo... tá aparecendo este erro:

Tipo de erro:

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

Fim da instrução esperado

/adm/excluir.asp, line 19, column 59

excluir.Open "DELETE * from noticias where titulo="& titulo"", meubd

por favor me ajudem!

[fantasma]

se for via link você tem que usar

id=request.querystring("id")

[cyberalexxx]

caso titulo seja campo texto tente assim:

meudb.execute ("DELETE * from noticias where titulo='"& titulo"'")

caso titulo seja campo numérico tente assim:

meudb.execute ("DELETE * from noticias where titulo="& titulo)

[Himura]

titulo=request.querystring("titulo")

seria isso? já tá no código

ou tenho que trabalhar com o id também?

[cyberalexxx]

titulo=request.querystring("titulo")

seria isso? já tá no código

ou tenho que trabalhar com o id também?

não precisa do ID não!! o titulo é suficiente

[Himura]

beleza só que eu to só con o titulo e ta dando aquele erro que postei lá em cima.....

o que é?

[fantasma]

você pode postar o cod inteiro

[Himura]

claro!

aí vai

<%
'Criando variáveis
Dim localbd, meubd, excluir, id, titulo

'Indicando local do Banco de dados
localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd.mdb")

'Setando conexao
set meubd=server.createobject("adodb.connection")
set excluir=server.createobject("adodb.recordset")

titulo=request.querystring("titulo")
'Abrindo conexao
meubd.Open localbd

'Aqui utilizaremos três DELETEs
'Pois queremos apagar tanto a enquete, quando seus votos e seus comentários
'Caso só queira apagar a questão, tire as duas ultimas linhas
excluir.Open "DELETE * from noticias where titulo='"& titulo"'", meudb

'excluir.Open "DELETE * from votos where cod_questao="& cod_questao &"", meubd
'excluir.Open "DELETE * from comentarios where cod_questao="& cod_questao &"", meubd

'Redirecionar para página principal
response.redirect "principal.asp"

%>

[cyberalexxx]

beleza só que eu to só con o titulo e ta dando aquele erro que postei lá em cima.....

o que é?

voce tentou da forma que eu mostrei???

[Himura]

claro mas também num deu certo como o campo é texto eu usei o que você me disse '" & titulo"'

num é assim?

[cyberalexxx]

é o mesmo erro: Fim da instrução esperado ???

poste o código todo

[Himura]

é este erro mesmo: Fim da instrução esperado!!!

o código da página excluir.asp já ta todo aí

[cyberalexxx]

<%

'Criando variáveis

Dim localbd, meubd, excluir, id, titulo

'Indicando local do Banco de dados

localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd.mdb")

'Setando conexao

set meubd=server.createobject("adodb.connection")

set excluir=server.createobject("adodb.recordset")

titulo=request.querystring("titulo")

'Abrindo conexao

meubd.Open localbd

'Aqui utilizaremos três DELETEs

'Pois queremos apagar tanto a enquete, quando seus votos e seus comentários

'Caso só queira apagar a questão, tire as duas ultimas linhas

sql = "Select * from noticias where titulo='" & titulo & "'"

set rs=conexao.execute(sql)

meubd.execute ("DELETE * from noticias where titulo='"& titulo & "'")

meubd.execute ("DELETE * from votos where cod_questao="& Rs("cod_questao"))

meubd.execute ("DELETE * from comentarios where cod_questao="& Rs("cod_questao"))

'Redirecionar para página principal

response.redirect "principal.asp"

%>

[Himura]

ainda num dá certo eu do um click pra excluir, mas agora ele num tá fazendo nada!!!!

o código de novo

<%
Dim localbd, meubd, excluir, id, titulo

localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd.mdb")

set meubd=server.createobject("adodb.connection")
set excluir=server.createobject("adodb.recordset")

titulo=request.querystring("titulo")
meubd.Open localbd

excluir.Open "DELETE * from noticias where titulo="& titulo, meudb

'Redirecionar para página principal
response.redirect "principal.asp"

%>

[Himura]

meu continua dando erro o está errado???

não consigo enxergar o erro!!!!

[cyberalexxx]

<%

Dim localbd, meubd, excluir, id, titulo

localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd.mdb")

set meubd=server.createobject("adodb.connection")

set excluir=server.createobject("adodb.recordset")

titulo=request.querystring("titulo")

meubd.Open localbd

meubd.execute ("DELETE * from noticias where titulo='"& titulo & "'")

'Redirecionar para página principal

response.redirect "principal.asp"

%>

[Himura]

fi num deu certo cara eu já tentei isso duas vezes antes e em vez de dá erro nem sai da página

você num conhece outro jeito de fazer isso?!?!?!?!?!?!

[Himura]

meu é o seguinte eu alterei a instrução para isso:

excluir.open "delete * from noticias where noticias="& noticias &"", meubd

e o erro que deu agora é diferente:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'titulo='.

/nightwish/dados/noticias/adm/excluir.asp, line 12

[cyberalexxx]

não sai da pagina???

sera que ele não esta executando o script e dando o response.redirect para a pagina principal??

Se não esta dando erro, é porque não existe erro de programação, o que pode estar ocorrendo é que não esta sendo encontrada nenhuma informação para ser deletada, tenta isso:

<%
Dim localbd, meubd, excluir, id, titulo

localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd.mdb")

set meubd=server.createobject("adodb.connection")
set excluir=server.createobject("adodb.recordset")

titulo=request.querystring("titulo")
meubd.Open localbd

sql="Select count(titulo) as total from noticias where titulo='" & titulo & "'"
set rs=conexao.execute(sql)
If not rs.eof then
   response.write "foram encontradas " & Rs("total") & " enquetes com o titulo: " & titulo & "<br>"
else
   response.write "Nenhum registro encontrado"
end if

meubd.execute ("DELETE * from noticias where titulo='"& titulo & "'")

'Redirecionar para página principal
Response.write "operação realizada com sucesso"


%>

[Himura]

Tipo de erro:

ADODB.Recordset (0x800A0CC1)

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

/nightwish/dados/noticias/adm/excluir.asp, line 15

agora com a sua instrução rodando dá esse erro!?!?!?!?!?!?!?!?!?

[fantasma]

ve isso se realmente a variavel esta chegando

titulo=request.querystring("titulo")

response.write titulo

[Himura]

cara num esse response.write num mudou nada, continua do mesmo jeito

[cyberalexxx]

no exemplo que eu postei anteriormente eu tinha feito uma alteração no tópico e acho q voce pegou sem alteração, da uma olhada de a linha 15 esta assim:

response.write "foram encontradas " & Rs("total") & " enquetes com o titulo: " & titulo & "<br>"

[Himura]

meu ainda da dando erro

é lá no sql que tá errado