• 0
Sign in to follow this  
Guest YAKKOO

Deletar (excluir)

Question

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

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

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!

Share this post


Link to post
Share on other sites
  • 0
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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this