Selektere først kommende dato i en access database

Ved ikke om man kan lave noget i stil med dette:
select * from adresser order by Datediff(d, date(), birthdate) asc

Wops. Mit forslag holder vist ikke helt vand.
Hvis metoden Datediff også ser på årstallet, vil det altid være den yngste person som står i database der vil blive vist først, så den holder nok ikke helt

Sådan?
<%
strSQL = "select * from adresser order by Datediff(d, date(), birthdate) asc"
set adresser = Conn.Execute(strSQL)
do while not adresser.eof
    Response.Write adresser("birthdate") & "<br>"
    adresser.MoveNext
loop
%>
Hvordan kan jeg nøjes med at få 1 record ud?

Det kan du gøre ved at lade være med at løbe dit recordset igennem :o)

<%
strSQL = "select * from adresser order by Datediff(d, date(), birthdate) asc"
set adresser = Conn.Execute(strSQL)
Response.Write adresser("birthdate") & "<br>"
%>

men som jeg skriver, jeg tror ikke min løsning er helt holdbar :o(

Ved ikke om det vil fungere med SELECT TOP 1 ... i access det er ved at være længe siden jeg har arbejdet med den

Men hvis det gør vil det hjælpe lidt på performance da recordsettet bliver mindre

Måske sådan her:

SELECT TOP 1 *, DATEDIFF(d, birthdate, Date()) AS daysToNext FROM adresser ORDER BY daysToNext ASC

Glemte lige det vigtigste:

SELECT TOP 1 *, (DATEDIFF(d, birthdate, Date()) MOD 365) AS daysToNext FROM adresser ORDER BY daysToNext ASC

Hvad med denne - kan den bruges i access?
Select Top 1 * From Tabel Where Dato > Date() Order By Dato

MOD skal vist nok heller bruges på denne måde:

SELECT TOP 1 *, MOD(DATEDIFF(d, birthdate, Date()), 365) AS daysToNext FROM adresser ORDER BY daysToNext ASC

Jeg fik denne til at virke - er koden optimal?
<%
strSQL = "select Top 1 * from adresser WHERE birthdatenext > Date() order by birthdatenext"
set adresser = Conn.Execute(strSQL)
Response.Write adresser("birthdatenext") & "<br><br>" & adresser("fornavn") & " " & adresser("efternavn")
%>

Hvordan får du beregnet birthdatenext?

Der har jeg en kolonne hvor alle dato'er er 2005 - kan din kode regne ud fra fødselsdato?

Mener du koden i 15/07-2005 21:23:26? Så skulle svaret gerne være ja.

det ville være top - jeg får desværre denne fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'MOD(DATEDIFF(d, birthdate, Date()), 365)'.

... for:

DATEDIFF(d, birthdate, Date())

- giver antallet af dage mellem selve fødslen og idag.

MOD( DATEDIFF(d, birthdate, Date()), 365 )

- justere denne sådan at antal hele år trækkes fra (vi glemmer alt om skudår).

Hmm... der er en fejl kan jeg se, for dette er jo dagene siden sidste fødselsdag (ikke til den næste):

MOD(DATEDIFF(d, birthdate, Date()), 365) AS daysFromLast

Men så skal vi bare sortere personerne efter hvem som er længst fra deres forrige fødselsdag:

SELECT * FROM adresser ORDER BY MOD(DATEDIFF(d, birthdate, Date()), 365) DESC

- og den første af disse:

SELECT TOP 1 * FROM adresser ORDER BY MOD(DATEDIFF(d, birthdate, Date()), 365) DESC

Der er øjensynligt lidt forskellig syntaks mht. MOD og de forskellige databaser. Måske virker denne bedre:

SELECT TOP 1 *, (DATEDIFF(d, birthdate, Date()) MOD 365) AS daysFromLast FROM adresser ORDER BY daysFromLast DESC

Hmm - fejlen er anderledes:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.

SELECT TOP 1 *, DATEDIFF("d", birthdate, Date()) MOD 365 AS daysFromLast FROM adresser ORDER BY daysFromLast DESC

... dvs. i ASP:

SQL = "SELECT TOP 1 *, DATEDIFF(""d"", birthdate, Date()) MOD 365 AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

Æv, jeg får stadig samme fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.

Prøv lige at poste noget mere af din kode.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DB/database.mdb")
Conn.Open DSN
%>
<%
strSQL = "SELECT TOP 1 *, DATEDIFF(""d"", birthdate, Date()) MOD 365 AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"
set adresser = Conn.Execute(strSQL)
Response.Write adresser("birthdate") & "<br>" & adresser("fornavn")
%>

Får du noget linjenummer på hvor den brokker sig?

Linie 70:
set adresser = Conn.Execute(strSQL)

Måske:

strSQL = "SELECT TOP 1 *, DATEDIFF(""d"", birthdate, GetDate()) MOD 365 AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

... og ellers er jeg ved at være totalt blank på hvad der er galt. :^|

Hmm - stadig samme fejl. Nå, men de har virkelig gjort hvad du kunne for at hjælpe. Poster du et svar?

Jeg er ikke helt parat til at give op. Prøv eventuelt disse forenklinger en efter en og se hvornår det gør godt (i den forstand at der i det mindste ikke er nogen fejl mere):

Original:

strSQL = "SELECT TOP 1 *, DATEDIFF(""d"", birthdate, GetDate()) MOD 365 AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

Uden MOD:

strSQL = "SELECT TOP 1 *, DATEDIFF(""d"", birthdate, GetDate()) AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

Med en hardcodet dato i stedet for GetDate():

strSQL = "SELECT TOP 1 *, DATEDIFF(""d"", birthdate, #2005-07-16#) AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

Uden DateDiff.

strSQL = "SELECT TOP 1 *, birthdate AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

Du er ihærdig :)
Original:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Undefined function 'GetDate' in expression.


Uden MOD:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Undefined function 'GetDate' in expression.


Med en hardcodet dato i stedet for GetDate():

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.


Uden DateDiff.

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

Selvfølgelig, vi skal jo have løst problemet. :^)

Der er et eller andet helt galt hvis ikke engang den sidste virker. Nu kan det bæsten ikke blive simplere:

SELECT TOP 1 FROM adresser ORDER BY birthdate DESC

Den er god nok - hvis jeg sætter et * ind:
strSQL = "SELECT TOP 1 * FROM adresser ORDER BY birthdate DESC"

Så får jeg en med fødselsdag 26-07-2005

Hvad så med:

strSQL = "SELECT TOP 1 birthdate, DATEDIFF(""d"", birthdate, GetDate()) MOD 365 AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

Hmm - denne fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Undefined function 'GetDate' in expression.

Date i stedet for GetDate:

strSQL = "SELECT TOP 1 birthdate, DATEDIFF(""d"", birthdate, Date()) MOD 365 AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

Så får jeg fejlen:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.

Også uden MOD?

strSQL = "SELECT TOP 1 birthdate, DATEDIFF(""d"", birthdate, Date()) AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

Yep
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.

... og ved en hardkodet dato?

strSQL = "SELECT TOP 1 birthdate, DATEDIFF(""d"", birthdate, #2005-07-16#) AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

Samme fejl

Bizart...

strSQL = "SELECT birthdate, DATEDIFF('d', birthdate, #2005-07-16#) FROM adresser"

Item cannot be found in the collection corresponding to the requested name or ordinal.

Det lyder som om at du ikke har nogen søjle som hedder birthdate?

Nej vent, det er nok lidt længere nede i din kode at den brokkers sig...

strSQL = "SELECT birthdate, DATEDIFF('d', birthdate, #2005-07-16#) AS daysFromLast FROM adresser"

Jeg får denne fejl:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.

Det er nok denne her:

Response.Write adresser("birthdate") & "<br>" & adresser("fornavn")

Vi trækker jo ikke "fornavn" ud af databasen. Skulle gerne forsvinde med:

strSQL = "SELECT birthdate, fornavn, DATEDIFF('d', birthdate, #2005-07-16#) AS daysFromLast FROM adresser"

yes Yes :) - Så kom der en værdi frem, selvom det ikke er den rigtige. Valgte en den 12-11-1969, men den skulle tage en den 26-07-1969

Klar, der er jo heller ikke nogen sortering på lige nu:

strSQL = "SELECT birthdate, fornavn, DATEDIFF('d', birthdate, #2005-07-16#) AS daysFromLast FROM adresser ORDER BY daysFromLast"

strSQL = "SELECT birthdate, fornavn, DATEDIFF('d', birthdate, #2005-07-16#) AS daysFromLast FROM adresser ORDER BY daysFromLast DESC"

Den kan den ikke lide:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

Så tager vi da en lidt alternativ rute:

strSQL = "SELECT * FROM (SELECT birthdate, fornavn, DATEDIFF('d', birthdate, #2005-07-16#) AS daysFromLast FROM adresser) ORDER BY daysFromLast DESC"

Der var bid, men det var den ælste i databasen der blev valgt

... og så er jeg lige ved at tro at vi måske er i mål med:

strSQL = "SELECT * FROM (SELECT birthdate, fornavn, DATEDIFF('d', birthdate, Date()) MOD 365 AS daysFromLast FROM adresser) ORDER BY daysFromLast DESC"

... altså med TOP på.

strSQL = "SELECT TOP 1 * FROM (SELECT birthdate, fornavn, DATEDIFF('d', birthdate, Date()) MOD 365 AS daysFromLast FROM adresser) ORDER BY daysFromLast DESC"

yep yep yep :D

STOOOOOOORT glad smil herfra.

Endnu større herfra - fedt du gad tage dig tiden til at hjælpe. Kan jeg forhøje pointene inden jeg lukker?

Svar :^)

Du behøver nu ikke at give flere point. :^)

... men her er metoden:

http://expfaq.1go.dk/?id=33#flere_point_end_lovet

Det har været en stor hjælp - tak endnu engang :D

Takker for point :^)