Sletning af gamle aktiviteter

har prøvet at udskifte "Date" med now skal lige siges =)

Session.LCID = 1033 ' Vælg engelsk format
strDato = CStr(Date)

' Hvis Access så ...
strSQL = "delete from aktivitet where dato<#" & strDato & "#"

' Andre databaser så ...
strSQL = "delete from aktivitet where dato<'" & strDato & "'"

datoen står på denne måde i access: 15-07-2002 Altså på dansk... nogen idé om hvad koden er for dansk så?

Datoformatet i en SQL-sætning skal altid være på engelsk (også selvom du ser det som dansk) - det er defor jeg sætter LCID til 1033

Hvis du ikke vil sætte LCID til 1033 kan du anvende denne linie

strDato = Month(Date) & "-" & Day(Date) & "-" & Year(Date)

Jeg vil gerne have sat det ind i en if sætning da det er en del af en løkke men nu hvor du siger og jeg kan se at den smider det væk med den sætning du har der hvorfor virker denne så ikke:

strDato = CStr(Date)
dato = Record("dato")
if dato < strDato then
Sql2 = "DELETE * FROM aktivitet where id="+id
Con.Execute(Sql2)
end if

Fejltype:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "DELETE * FROM aktivi"]'

Man skal ikke angive * i en delete-sætning

Sql2 = "DELETE * FROM aktivitet where id="+id
Sql2 = "DELETE FROM aktivitet where id="+id

Type mismatch: '[string: "DELETE FROM aktivite"]'


fatter det ikke...

Sådan ser det hele ud:

                          Sql = "SELECT * FROM aktivitet ORDER BY Dato ASC"
              Set Record =  Con.Execute(Sql)
              Do While Not Record.EOF
              Session.LCID = 1033
              strDato = CStr(Date)
              idnr = Record("id")
              datonr = Record("dato")
              if datonr < strDato then
              sql2 = "DELETE FROM aktivitet where id="+idnr
              Con.Execute(sql2)
              end if

Og her komme der så selve udskrivning af løkken..

Hov - du anvender jo + i stedet for &

Sql2 = "DELETE FROM aktivitet where id=" & id

hehe så virker det lidt mere... (har arbejdet en del med ASP/jscript) i stedet =)

Men nu viser den først hele pivetøjet med de tidlige datoer til at starte med... derefter når man opdatérer sletter den hele db'en??????

Jeg byttede strDato = CStr(Date) ud med strDato = now og nu sletter den kun de datoer der er før idag, men først når jeg opdaterer 2 gange... 1. gang kommer alle datoer ud?

Det må ligge i noget andet ... ?

Prøv lige denne:

            Sql = "SELECT * FROM aktivitet ORDER BY Dato ASC"
            Set Record =  Con.Execute(Sql)
            Do While Not Record.EOF
              idnr = Record("id")
              if Record("dato") < Date then ' Interne ASP datoformater
                sql2 = "DELETE FROM aktivitet where id="+idnr
                Con.Execute(sql2)
              end if

Tak for det =)

Den skal bare slette inden den kommer videre