Auto slet af poster i DB når der er over fx: 50

Hvilken database snakker vi om?

det kan vel gøres sådan her:

DELETE FROM tabel WHERE felt NOT IN (SELECT TOP 50 felt FROM tabel)

Eller nærmere:

Set objRS = objConn.Exdecute(\"SELECT Count(felt) FROM tabel\")
intPoster = objRS(0)
objRS.Close
Set objRS = Nothing

if intPoster > 50 Then
objConn.Execute(\"DELETE FROM tabel WHERE felt NOT IN (SELECT TOP 50 felt FROM tabel) ORDER BY autoidfelt \")
End If

det er en Access2000 db! Jeg tjekker lige dit forslag, vender tilbage en anden dag!

Lad endelig være med det! Der er en fejl, brug istedet dette her:

Set objRS = objConn.Exdecute(\"SELECT Count(felt) FROM tabel\")
intPoster = objRS(0)
objRS.Close
Set objRS = Nothing

if intPoster > 50 Then
objConn.Execute(\"DELETE FROM tabel WHERE felt NOT IN (SELECT TOP 50 felt FROM tabel ORDER BY autoidfelt)\")
End If

moonduck>>Hvorfor vil du kontrolere om der er over 50??? Hvis der er uder 50, så sletter den jo bare ingen.

Du har selvfølgelig ret.. Jeg sidder sku\' med hovedet under armen!

Nu er jeg forvirret! Hvad er det jeg skal teste?

Dette:
<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Connectionstring = \"DINCONNECTIONSTRING\"
objConn.Open

objConn.Execute(\"DELETE FROM tabel WHERE felt NOT IN (SELECT TOP 50 felt FROM tabel) ORDER BY autoidfelt \")

objConn.Close
Set objConn = Nothing
%>

OK, jeg kigger lige på det!

Ok, tak det sre ud til at virke!