fjern data over 30 dage gamle

Jeg har et postkort, hvor jeg sletter efter 20 dage, her er koden, håber du kan hitte ud af det!! Ellers spørger du bare!

Hilsen Codemiss :-D


Tjek_SQL="Select date, card_code from user"

Set Tjek_oRs=oConn.Execute (Tjek_SQL)

Do while not Tjek_oRs.EoF
dato=cDate(Tjek_oRs.Fields.item("date"))
Delete_card_code=Tjek_oRs.Fields("card_code")
If dato < date()-20 Then
  SQL_Delete="Delete from user Where card_code='"+Delete_card_code+"'"
  Set oRs_Delete=oConn.Execute (SQL_Delete)
End If
Tjek_oRs.MoveNext
Loop

Codemiss>>>>>>> POstkort ?
mener du, lissom, E-Cardz 'n' Stuff ?

<//morpheus\\>

Nemlig, Morpheus! :-)

Sql = "DELETE * FROM tabelnavn WHERE datediff('d', now, oprettelsesdato) > 30"

Jeg mener det virker.

CodeMiss>>>>>> Ehhh.....Ka' jeg rive en mail addy af her og så sender du det ?

<//morpheus\\>

Morpheus:

Hvad mener du?? Du kan skrive på codemiss@codemiss.dk, hvis det var det du ville??!!?

Hej igen.

Ja jeg har lige været væk nogle dage. Se her:
dato = navn på felt i DB.
date() skriver dags dato.
Hvorfor virker det her ikke:
if dato > date() then
bla bla
Den skriver bare True selvom det skulle være false.
P.S: De andre forslag virker heller ikke snøft!.

Brug følgende SQL:

SELECT * FROM user WHERE ( datofelt > DATE() - 30)