Cancellazione dei dati di un database
La cancellazione dei dati da un database è un'operazione piuttosto semplice e, se non per qualche modifica, assomiglia alla lettura dei dati, già affrontata nel capitolo 8 di questa guida.
Riprendiamo il file "leggi.asp" copiandolo e rinominando la copia come "cancella.asp".
(L'articolo continua più sotto...)
Segue il codice modificato ed adattato alla cancellazione dei record dalla tabella "autori":
<%@LANGUAGE = VBScript%>
<%
Dim sc, cn, rs
sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc & Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Dim id
id = Request.QueryString("id")
If id <> "" Then
cn.Execute("DELETE * FROM autori WHERE aut_id = " & id)
End If
%>
<html>
<head>
<title>Cancellazione dei dati</title>
</head>
<body>
<h1>Cancellazione dei dati</h1>
<%
rs.Open "SELECT * FROM autori ORDER BY aut_id ASC", cn, 1
If rs.EOF Then
%>
<p>Nessun record trovato!</p>
<%
Else
While rs.EOF = False
%>
<p>
<a href="cancella.asp?id=<%=rs("aut_id")%>">CANCELLA</a>
(ID: <%=rs("aut_id")%>)
Nome: <%=rs("aut_nome")%>
</p>
<%
rs.MoveNext
Wend
End If
rs.Close
%>
</body>
</html>
<%
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
In fase di lettura dei dati aggiungiamo un link "CANCELLA" al cui click viene eliminato il record di cui all'ID corrispondente.
La cancellazione avviene materialmente in cima al file quando, al recupero dell'ID in querystring, viene eseguito un comando di cancellazione SQL parametrizzato.
Lanciate il file all'indirizzo
http://localhost/test_db/cancella.aspper testare il risultato.
