Hiv data ud fra de seneste 14 dage fra dags dato

Det ville være meget nemmere hvis du havde valgt een af følgende
1) Formatet YEAR-MM-DD
2) Et datotype felt

Hvis jeg nu får skrevet min kode om til et dato felt, eller med formatet YEAR-MM-DD, hvorledes kunne man så hive data ud?

Det er så ret simpelt, hvad enten du vælger 1) eller 2). I dag er det 5. juli. For fjorten dage siden må det have været d. 21. juni 2007, så:

SELECT * FROM ... WHERE ditdatofelt>'2007-06-21'

Eller ">=" hvis du skal have den dato med.

Ja, ok, det kommer så lidt an på hvilket databasesystem du bruger.

Joo, men datoen skal jo ikke hardcodes i sourcefilen, da det i morgen så bliver > 2007-06-22... Så det må hedde noget med NOW - 14 DD (ved bare ikke hvorledes jeg kan skrive dette).

dato = DateAdd("d",-30,date)
dato = Year(dato) & "-" & Month(dato) & "-" & Day(Dato)

"SELECT * FROM kaldender WHERE CDate(dato) >= #" & dato & "#"

eller

SELECT * FROM kalander WHERE dato >= '" & dato & "'"

Super. Takker for hjælpen. Hvis du lige smider et svar.

hvis det var mig, så er et svar her.

Hmm, kan ikke få det til at virke. Den skriver:

Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03FD)
'Case' var ventet

her:

SELECT * FROM skemaet WHERE dato >= '" & dato & "'"
------^

Her er koden jeg har skrevet:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("vti_log/skemaet.mdb")
Conn.Open DSN
strSQL = "Select * From skemaet"
Set rs = Conn.Execute(strSQL)
dato = DateAdd("d",-30,date)
dato = Year(dato) & "-" & Month(dato) & "-" & Day(dato)
SELECT * FROM skemaet WHERE dato >= '" & dato & "'"
response.write rs(dato)
Conn.Close
Set Conn = Nothing
%>

Kan heller ikke helt forstå det du har skrevet:

Du har jo prøvet på at lave en sql på en forkert måde.

Ved ikke om jeg har ret, men prøv dette:


dato = DateAdd("d",-30,date)
dato = Year(dato) & "-" & Month(dato) & "-" & Day(dato)

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("vti_log/skemaet.mdb")
Conn.Open DSN
strSQL = "Select * From skemaet WHERE dato >= '" & dato & "'""
Set rs = Conn.Execute(strSQL)
response.write rs(dato)
Conn.Close
Set Conn = Nothing

wups, forkert.

dato = DateAdd("d",-30,date)
dato = Year(dato) & "-" & Month(dato) & "-" & Day(dato)

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("vti_log/skemaet.mdb")
Conn.Open DSN
strSQL = "Select * From skemaet WHERE dato >= '" & dato & "'"
Set rs = Conn.Execute(strSQL)
response.write rs(dato)
Conn.Close
Set Conn = Nothing



sådan

ahh, ok. Tester lige når jeg kommer hjem.

Nå, fik testet det nu, men måtte lave det en del om. Men du fik mig ind på rette sport jansangill. Hvis du lige sender et svar.