Hent fra database hvor dato er senere end idag

Du skal have formateret din ASP dato til det som passer med databasen, eller også skal du bruge en af de interne funktioner. Ser ud til du bruger MySQL...

SQL = "SELECT * FROM arrangement WHERE `dato` > date() ORDER BY `dato` ASC"

Mener du som det her:
dd = DatePart("yyyy",Date()) & "-" & DatePart("m",Date()) &  "-" & DatePart("d",Date())
SQL = "SELECT * FROM arrangement WHERE `dato` > "&dd&" ORDER BY `dato` ASC"

For det virker heller ikke... :-(

har lige et spørgsmål ?..

Der vil  da aldrig komme resultater..

Ingen dage du slår op, er senere end idag.. med mindre du kan noget vi andre ikke kan ..

i dag ville den blive where dato>03.12.2007

Jo, for når jeg indsætter i databasen skal man vælge en dato på hvornår det skal ske... Så der ligger ting i databasen med datoer senere end idag...

Ja (men du mangler også lige ' omkring). Og som en kortere kode:
dd = "'"& year(Date()) & "-" & month(Date()) &  "-" & day(Date()) &"'"
SQL = "SELECT * FROM arrangement WHERE `dato` > "&dd&" ORDER BY `dato` ASC"

Også kan det evt være en god ide at bruge en funktion istedet:
function DBDate(fDate)
  DBDate = "'"& year(fDate) &"-"& right("0"&month(fDate),2) &"-"& right("0"&day(fDate),2)
end function

SQL = "SELECT * FROM arrangement WHERE `dato` > "& DBDate(date()) &" ORDER BY `dato` ASC"

Manglede lige en "'" i funktionen:

function DBDate(fDate)
  DBDate = "'"& year(fDate) &"-"& right("0"&month(fDate),2) &"-"& right("0"&day(fDate),2) &"'"
end function

Microsoft VBScript compilation error '800a03ea'

Syntax error

/arrangement/index.asp, line 3

function DBDate(fDate)
^

Ahh.. Så jeg ikke lige.. Prøver igen.. :-D

Nå, den laver stadig den sammen fejl...

Er dato feltet af datetime data typen, eller er den evt bare et tekstfelt??

Skal du aldrig skifte database kan det anbefales at bruge MySQL's interne date funktion, så du helt undgår at skulle igennem ASP. Du har altså 2 muligheder:

MySQL date funktion:
SQL = "SELECT * FROM arrangement WHERE `dato` > date() ORDER BY `dato` ASC"

Med ASP date formaterings funktion:
function DBDate(fDate)
  DBDate = "'"& year(fDate) &"-"& right("0"&month(fDate),2) &"-"& right("0"&day(fDate),2) &"'"
end function

SQL = "SELECT * FROM arrangement WHERE `dato` > "& DBDate(date()) &" ORDER BY `dato` ASC"

Som du kan se er koden til brug af MySQL's date funktion betydlig mere simpel end brug af ASP. Tilgængæld er man lide mere besværligt, hvis man ikke arbejder med dagsdato.

Vent lige... Den fejl er relateret til funktionen. Burde ikke forkomme for det er skrevet rigtig.

Har du arbejdet med funktioner før?
Hvordan ser din kode ud?

Min datatype til dato feltet er date, men MySQL date funktionen virker ikke...

<%
function DBDate(fDate)
  DBDate = "'"& year(fDate) &"-"& right("0"&month(fDate),2) &"-"& right("0"&day(fDate),2) &"'"
end function

SQL = "SELECT * FROM arrangement WHERE `dato` > "& DBDate(date()) &" ORDER BY `dato` ASC"

Set rs = Conn.Execute(SQL)

nåeh ja. man kan jo hente ting der SKAL ske.. og ik kun ting der er sket.. eheh .sorry .. lige en hjernefis..

og fennec, som svar til dig, nej har ikke arbejdet med functioner før... :-)

A hvad... Virker MySQL date() funktionen heller ikke?? Får du en fejl eller bare ikke noget resultat??

Intet resultat med < og alle kommer frem med >

Nej vent... Der kommer en fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 3.51 Driver][mysqld-5.0.37]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ') ORDER BY `dato` ASC' at line 1

/arrangement/index.asp, line 5

Hus på at bruger du den indbyggede funktion skal der ikke ' omkring. Der bruges kun ' når datoen angives via ASP.

... where `dato` > date() ...

Det er der heller ikke:
<%
SQL = "SELECT * FROM arrangement WHERE `dato` > date() ORDER BY `dato` ASC"

Set rs = Conn.Execute(SQL)

Og den virker ikke??
Så tror jeg problemet ligger i datoerne i databasen, som ikke passer. Er de indsat via ASP kode??

Ja... De er indsat sådan:
strtext = Request.Form("text")
strtext = Replace(strtext, "'", "\'")
strtext = Replace(strtext, vbcrlf,"<br>")
dato = Request.Form("aar")&"-" & Request.Form("man") & "-" & Request.Form("dag")

SQL = "insert into arrangement set dato='" & dato & "', text='" & strtext & "'"

Ok, en blanding af insert og update syntax. Det har jeg ikke set før. Er du sikker på rækkerne i databasen har de rigtige datoer??

Jeps, datoerne er rigtige nok... Ved ikke lige hvad det er der er sket... :-S

Hvis datoerne er rigtige så skal det også virke.

Har du prøvet at køre SQL-sætningen i dit management program? (f.eks phpmyadmin, mysql administrator eller hvad du nu bruger)

Jeps, der skriver den den samme fejl... sikker på den der date() virker?! :-D

Doh...
Det er jo curdate()

SQL = "SELECT * FROM arrangement WHERE `dato` > curdate() ORDER BY `dato` ASC"

WUHUUU! :-D

Send mig et svar...

Og mange tak for hjælpen, selvom det tog lidt tid.. ;-)

.o) <-- One Eyed Jack