deletar

[Marc 0]

Fiz o código abaixo, porém não quer excluir, mas tb não dá erro nenhum.

 

<!--#include file=permissao.asp--><!--#include file=cabecalho.asp--><!--#include file=conexao.asp--><table border=o cellspacing=0 cellpadding=2 width="100%">  <tr>     <td valign=top bgcolor="#CDBDA0"> <font face=arial size=2> <% Dim sql,rsabreconexaoif Request("codnoticia")<> "" then 'verifique se vai excluir	sql="SELECT * FROM noticias Where codnoticia=" & Request("codnoticia")	set rs=oConexao.Execute(sql)		if not rs.EOF then  Response.Write "<center><font face=arial size=2 color=#ff0000> Noticia não pode ser excluída </font></center>"	else  sql="DELETE FROM noticias WHERE codnoticia=" & Request("codnoticia")  oConexao.Execute sql	end ifend if		sql="SELECT codnoticia,data,titulo,noticias FROM Noticias ORDER BY data DESC"	set rs=oConexao.execute(sql)%><table border=1 width=80% cellspacing=0 cellpadding=2 align=center>        <tr>           <td align=center><font face=arial size=2>Data</font></td>          <td align=center><font face=arial size=2>Título</font></td>   <td align=center><font face=arial size=2>Notícia </font></td>    <td align=center><font face=arial size=2>Clique para excluir </font></td>          </tr>   <%while not rs.EOF %>	<tr>    <td><font face=arial size=2> <%=rs("data")%></font></td>       <td><font face=arial size=2><a href="noticia.asp?codnoticia=<%=rs("codnoticia")%>"><%=rs("titulo")%></font></td>   <td><font face=arial size=2><%=rs("noticias")%></font></td>   <td><font face=arial size=2><a href="noticias.asp?codnoticia=<%=rs("codnoticia")%>">Excluir</a> </font></td>        </tr> 	 <% rs.movenextwend fechaconexao %></table></font></td></tr></table>

Valeu

[JucaMaster 0]

este request("codnoticia") tá vindo com algum vqalor? talvez estaja vindo vazio por algum motivo e por isso naum exclui

[Marc 0]

Parece que tá vindo com o valor sim.Pq quando eu peço para selecionar ele seleciona.

[ska_ska 0]

serviço de identificação tabajara....

 

depois desse codigo:

sql="DELETE FROM noticias WHERE codnoticia=" & Request("codnoticia") oConexao.Execute sql

coloca isso:

response.write sql

ai você vai ter a resposta.. se naum achar nada, ve se o registro q da pedido pra excluir ta na base.... e qq coisa manda pro povo o resultado,,,,

 

fui

[Marc 0]

Colé SKA.

 

coloquei o código abaixo:

 

Response.Write sql

ele retornou:

 

SELECT * FROM noticias Where codnoticia=94

A porcaria está selecionando ao invés de deletar.

 

salve ae.....

[d.eleete 0]

oConexao.Execute("DELETE * FROM ...")

[Salgado 4]

Vamos analizar sua lógica aqui:

<!--#include file=permissao.asp--> 'Incluindo aquivo Permissao.asp

<!--#include file=cabecalho.asp--> 'Incluindo aquivo cabecalho.asp

<!--#include file=conexao.asp--> 'Incluindo aquivo conexao.asp

 

<table border=o cellspacing=0 cellpadding=2 width="100%">

<tr>

  <td valign=top bgcolor="#CDBDA0"> <font face=arial size=2>

 

<% Dim sql,rs 'Declarando variáveis

 

abreconexao 'Chamando função

 

if Request("codnoticia")<> "" then 'verifique se vai excluir

sql="SELECT * FROM noticias Where codnoticia=" & Request("codnoticia") 'SQL para selecionar a noticia

set rs=oConexao.Execute(sql) 'Executando a seleção

 

if not rs.EOF then 'Verificando se não é o fim do arquivo, verificando se existe codnoticia no BD.

Response.Write "<center><font face=arial size=2 color=#ff0000> Noticia não pode ser excluída </font></center>"

else 'Se for o fim do arquivo, ou seja se não existe codnoticia no BD.

  sql="DELETE FROM noticias WHERE codnoticia=" & Request("codnoticia")

  oConexao.Execute sql

end if

Aqui está seu erro! se existe no BD você deve estar querendo excluir certo?

Então o Delete deve estar logo abaixo desse IF e não no ELSE, que significa que se for o fim do arquivo (não existe o codnoticia no BD) se não oexiste codnoticia como ele irá excluir?

end if

 

sql="SELECT codnoticia,data,titulo,noticias FROM Noticias ORDER BY data DESC"

set rs=oConexao.execute(sql)

 

%>

[Marc 0]

tb não deu certo..... .to ficando maluco com essa parada.. toh em dois foruns e naum resolveu.....

[Marc 0]

VALEU SALGADO... MUITO OBRIGADO...COMO DIZEM É APANHANDO QUE SE APRENDE A BATER......... COM TEMPO VOU APRENDENDO.. VALEU.