24. januar 2003 - 01:02
Der er
1 kommentar og
1 løsning
Slet efter 10 dage
'Sletter alle indlæg, der er over 10 dage gamle
strSQL = "SELECT Dato FROM News"
RS.Open strSQL, objConn, 2, 2
AutoSlet = DateDiff("d", RS("Dato"), Now)
If AutoSlet < 10 Then
RS.Delete
RS.Update
End if
RS.Close
Hvad er der galt her?
HJAELP ! ! !
24. januar 2003 - 01:34
#1
Tja... Er det kun den første række du vil kontrollere?
Iøvrigt så prøver du at slette indlæg som er MINDRE end 10 dage gamle.
Prøv en:
strSQL = "DELETE FROM News WHERE DateDiff(""d"", Dato, Now()) > 10"
Conn.Execute strSQL
Så er det klaret i et hug