Deletar (excluir)

[Guest YAKKOO]

oieee...gente to tentando fazer uma pagina onde meu usuario possa excluir um dado...

tem la: EXCLUIR...

queria que quando ele clicasse em "EXCLUIR" o dado fosse excluido do banco .como posso fazer isso.

brigadim

[ViniciusJau]

só usar o DELETE na sua SQL

[DELPHI-Man32]

use sql para deletar o registro!!!

tipo

cria uma arquivo para deletar os registros do banco de dados.

nesse arquivom você pega o id do registro.

o link para exlucir deve ficar assim:

http://www.site.com/deletar.asp?act=<%=RS("id")%>

id = request("id")

monta uma estrutura sql tipo assim!!

sql="delete * from Tabela where id="&id

no fim você redireciona o usuario para outra pagina!

mas antes de fazer isso tudo, você tem que saber, abri uma conexao, mostrar os dados do banco no cliente e outras coisas básicas do ASP.

qualquer coisa posta de novo ai!

[Guest - repolho -]

mais dai precisa de um campo ID no seu banco

[Guest YAKKOO]

XI.....

não to conseguindo...

o resultado é o seguinte:

NOME ESPECIALIDADE CRM

joao cardiologista 123 EXCLUIR

dai quando clicar em excluir exclui...

/**************************************/

olha so o codigo da pagina..

<style type="text/css">

<!--

body {

background-attachment: scroll;

background-image: url(index_branco.jpg);

background-repeat: no-repeat;

background-position: center top;

}

-->

</style>

<TABLE width=767 border=0 align="center" cellPadding=0 cellSpacing=3>

<TBODY>

<TR>

<TD width=223>&nbsp;</TD>

<TD width=518>&nbsp;</TD>

<TD width=14>&nbsp;</TD>

</TR>

<TR>

<TD width=223 height="133">&nbsp;</TD>

<TD width=518><table width="71%" border="0" cellpadding="0">

<tr>

<td width="15%">

<div align="left"> </div>

</td>

<td width="85%"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="250" height="90">

<param name="movie" value="bannerzinho.swf">

<param name="quality" value="high">

<embed src="bannerzinho.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="250" height="90"></embed>

</object>

</td>

</tr>

</table>

</TD>

<TD width=14>&nbsp;</TD>

</TR>

<TR>

<TD><div align="center">

<table width="164" border="0" align="right" cellpadding="0">

<tr>

<td width="160"><div align="center"></div>

<div align="left"><a href="default.asp"><img src="botao_PAGINA_INICIAL.png" width="120" height="34" border="0"></a></div>

</td>

</tr>

</table>

</div>

</TD>

<TD><div align="center">

<table width="80%" border="0" align="left" cellpadding="0">

<tr>

<td width="33%"><a href="http://mail.santacasabh.org.br"><img src="BOTAO_EMAIL.png" width="134" height="34" border="0"></a></td>

<td width="28%"><a href="participe_tb.asp"><img src="BOTAO_PARTICIPETB.png" width="134" height="34" border="0"></a></td>

<td width="39%"><a href="paineldecontrole.asp"><img src="BOTAO_PAINEL.png" width="134" height="34" border="0"></a></td>

</tr>

</table>

</div>

</TD>

<TD>&nbsp;</TD>

</TR>

<TR>

<TD colspan="3">

<div align="left">

<table width="553" border="0" align="center" cellpadding="0">

<tr>

<td width="423">&nbsp;</td>

<td width="12">&nbsp;</td>

</tr>

<tr>

<td> <p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

</font></p>

</td>

<td>&nbsp;</td>

</tr>

<tr>

<td>

<%

'Efetuando a conexão com a base de dados criada -----------------------

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("bdintranet.mdb")

Conn.open

'--------------------------------------------------------------------------

'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,

'pois vamos utilizar algumas funções deste objeto

Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 10 'quantidade de registros por página. Você pode alterar sem conforme precise.

'Vamos fazer a busca na tabela contatos

SQL = "select * from medico order by ID_medico"

RS.Open SQL,Conn,3,3

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor

'que zero, se é maior que o número total de páginas, etc.

IF RS.EOF then

Response.Write "nenhum registro encontrado"

Response.End 'paramos o programa

ELSE

'Definindo em qual pagina o visitante está

IF Request.QueryString("pagina")="" then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))<1 then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))> RS.PageCount then

intpagina=RS.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

END IF

END IF

END IF

'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta

RS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados

intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou

' não for o final do arquivo

While intrec < RS.PageSize and not RS.EOF

%>

<table width="87%" border="0" align="center" cellpadding="0">

<tr>

<td> <table width="463" border="1" align="center" cellspacing="0">

<tr bordercolor="#000000" bgcolor="#CCCCCC">

<td width="176" colspan="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF">

<div align="left"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<%response.write RS("nome_medico")%>

</font> </font></strong></div></td>

<td width="145" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF"><div align="left"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=replace(Rs("especialidade_medico"),chr(13),"<br>")%></font></font></div></td>

<td width="62" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=replace(Rs("crm_medico"),chr(13),"<br>")%></font></font></td>

<td width="62" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>EXCLUIR</strong></font></div></td>

</tr>

</table>

</td>

</tr>

<tr>

<td><div align="center"><a href="Default.asp"> </a></div>

<div align="center">

<%

' response.write RS("titulo_anuncio") & " - " & RS("titulo_anuncio") & " - " & RS("titulo_anuncio") & "<BR>"

'---------------------------------------------------------------------------------------------

RS.MoveNext

' Acrescenta +1 ao contador

intrec=intrec+1

'Se for EOF (fim de arquivo), imprimir branco na tela

IF RS.EOF then

response.write " "

END IF

Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.

IF intpagina > 1 then

%>

<a href="agenda.asp?pagina=<%=intpagina-1%>"><img src="BOTAO_ANTERIOR.png" width="120" height="30" border="0"></a>

<%

END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página

IF strcomp(intpagina,RS.PageCount) <> 0 then

%>

<a href="agenda.asp?pagina=<%=intpagina + 1%>"><img src="BOTAO_PROXIMA.png" width="120" height="30" border="0"></a>

<%

END IF

%>

</div></td>

</tr>

<tr>

<td><div align="center"></div></td>

</tr>

</table></td>

<td>&nbsp;</td>

</tr>

</table>

</div>

</TD>

</TR>

</TBODY>

</TABLE>

BRIGADIM