1 svar · 152 visningar · startad av Jörgen HP
Hej!
Sitter här mitt i natten och är allämt trött. Om datumfältet i databasen är mer än 20 minuter gammalt så ska en delete ske,
dim strTime
strTime = time() -20
strSQL = "DELETE FROM Active WHERE ActiveDate < '" & strTime & "'"
objDB.Execute strSQL,,128
skriver jag ut SQL-frågan får jag:
DELETE FROM Active WHERE ActiveDate < '12/11/99 10:14:14 PM'
Problemet är att den raderar rubbet oavsett tid. Använder MySQL.
Mvh Jörgen :)
Hej!
Återigen slår det in, så fort man postat en fråga här kommer man på hur man gör ;)
dim strTime
strTime = time()
strTime = DateAdd("n",-20,strTime)
strSQL = "DELETE FROM Active WHERE ActiveDate < '" & strTime & "'"
objDB.Execute strSQL,,128
mvh Jörgen :)