Radering av poster

Raderingar är enklast att utföra med "ren" SQL. En enkel DELETE sats gör allt som behövs.

Vi behöver inte ens en Recorsdet utan kan låta Connection direkt köra SQL DELETE satsen

<!-- #include file="connection.asp" -->
<%
' SQL satsen för tabellen.
SQL = "DELETE * FROM TABELLNAMN WHERE ID_FÄLT=VÄRDE"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn
Conn.Execute SQL
Conn.Close
Set Conn = Nothing
%>

Men...

Skall vi kunna radera via internet? Det låter lite farligt!

I de system som jag konstruerat för databashantering via internet så använder jag ALDRIG DELETE. Istället sätter jag in ett extra fält i tabellen med namnet DELETED

För att "radera" sätter jag en etta (1) detta fält. och använder för alla listningar en SQL sats med följande grundkostruktion

<!-- #include file="connection.asp" -->
<%
' SQL satsen för tabellen visning av "oraderade" poster.
SQL = "SELECT * FROM TABELLNAMN WHERE DELETED=0"
' resten av listningkoden %>

Om någonting blivit raderat av misstag kan jag alltid öppna upp själva Access tabellen.

Byter jag ut ettan till en nolla så kommer den raderade posten tillbaka. Jag sover betydligt bättre på nätterna när ingenting NÅGONSIN raderas via intenet.

För att ytterligare minska risken för diskussioner brukar jag oftast utföra "raderingar" på följande sätt

• Sätt in ett DELETED fält av type Number/Byte (Boolean skulle även duga>
• Sätt in ett DELDATE fält av Date/Time typ

Man kan då använda följande kod:

<!-- #include file="connection.asp" -->
<%
' SQL satsen för tabellen. observera att man använder
' Access egen NOW funktion för att säkerställa att det är EXAKT
' den tid då själva "raderingen" sker
SQL = "UPDATE TABELL SET DELETED=1, DELDATE=NOW WHERE ID_FÄLT=VÄRDE"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn
Conn.Execute SQL
Conn.Close
Set Conn = Nothing
%>