Excluir um registro

Como apagar um registro. Scripts de exemplo.

Outra das operações fundamentais que podem ser realizadas sobre uma base de dados é o apagar um registro. Para fazê-lo, SQL nos propõe sentenças do tipo Delete. Vejamos com um exemplo, aplicado a nossa agenda. Primeiro, criaremos um menu desdobrável dinâmico como para o caso das atualizações:

<HTML>
<HEAD>
<TITLE>Apagar1.asp</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Apagar um registro</h1>
<br>
<%
'Instanciamos e abrimos nosso objeto conexao
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Minhabase"
%>

<FORM METHOD="POST" ACTION="apagar2.asp">
Nome<br>
<%
'Criamos a sentença SQL e a executamos
sSQL="Select nome From clientes Order By nome"
set RS = conn.execute(sSQL)
%>
<select name="nome">
<%
'Geramos o menu desdobravel
Do While not RS.eof%>
<option><%=RS("nome")%>
<%RS.movenext
Loop
%>
</select>
<br>
<INPUT TYPE="SUBMIT" value="Apagar">
</FORM>
</div>

</BODY>
</HTML>

O seguinte passo é fazer efetiva a operação a partir da execução da sentença SQL que construímos a partir dos dados do formulário:

<HTML>
<HEAD>
<TITLE>Apagar2.asp</TITLE>
</HEAD>
<BODY>
<%
'Recolhemos os valores do formulario
nome=Request.Form("nome")

'Instanciamos e abrimos nosso objeto conexao
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Minhabase"

'Agora criamos a sentença SQL
sSQL="Delete From Clientes Where nome='" & nome & "'"

'Executamos a ordem
set RS = Conn.Execute(sSQL)
%>

<h1><div align="center">Registro Apagado</div></h1>
<div align="center"><a href="leitura.asp">Visualizar o conteudo da base</a></div>

<%
'Fechamos o sistema de conexao
Conn.Close
%>

</BODY>
</HTML>

Autoria e outras referências sobre este artigo

Manuais relacionados com este artigo

Categorias relacionadas

Através das categorias do nosso diretório podem ser encontrados outros tipos de recursos relacionados com este artigo:

ASP

Comentário sem rever

Acrescentar um comentário do artigo

Entre os comentários não revistos podem ter alguns interessantes que tenham sido enviado recentemente.

Foram econtrados 4 comentários sem rever