Avatar billede goose Nybegynder
22. februar 2007 - 20:59 Der er 9 kommentarer og
1 løsning

udtræk sortertet efter årstal

Har en tabel i databasen der består af

id (autonummer)
dato (dato & klokkeslet)
tekst (notat)

Nu vil jeg gerne have udtrækket delt op i årstal og så de indlæg der er i det pågældende årstal. Derefter næste årstal.

2007
indlæg
indlæg
indlæg

2005
indlæg
indlæg

2004
indlæg
indlæg

o.s.v.

/Goose
Avatar billede kalp Novice
22. februar 2007 - 21:11 #1
SELECT * FROM dinTabel ORDER BY dato ASC
Avatar billede kalp Novice
22. februar 2007 - 21:12 #2
ahh okay.. det er for nemt:)
det er koden som er dit problem? :)
jeg laver et eksempel til dig.
Avatar billede kalp Novice
22. februar 2007 - 21:17 #3
jeg går ud fra dato'erne ikke kun er skrevet som 2007, 2006
men har måned og dag også eller?
Avatar billede goose Nybegynder
22. februar 2007 - 21:29 #4
datoerne står som f.eks. i dag: 22-02-2007

/Goose
Avatar billede goose Nybegynder
22. februar 2007 - 21:44 #5
en psydokode må være:

SQL = "select distinc årstal from tabel order by årstal DESC"
set rs = conn.execute(SQL)
do while not rs.eof

response.write rs("årstal")

SQL2 = "select * from tabel where årstal=" & årstal &" order by dato DESC"
set rs2 = conn.execute(SQL2)
do while not rs2.eof

respose.write rs2("dato") & "<BR>" & rs2("tekst") & "<BR>"

rs2.movenext
loop
rs2.close
set rs2 = nothing

rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing

Men hvordan ser SQL'en ud?

/Goose
Avatar billede kalp Novice
22. februar 2007 - 21:49 #6
jeg skal lige uploade det til dig.. giv mig lige 5 min..
har lavet et eksempel:)
Avatar billede kalp Novice
22. februar 2007 - 21:56 #7
Avatar billede kalp Novice
22. februar 2007 - 21:59 #8
meget skræmmende kode du kom med:P

min kode blev

            <%
strSQL = "SELECT * FROM Trade Order by dato desc"

dim sidsteArstal
sidsteArstal = CDate("22/1/2000")

Do While Not rs.EOF
if year(sidsteArstal)  <> year(rs("dato")) then
response.Write(year(rs("dato")))
response.Write("<br />")
end if
response.Write(rs("overskrift"))
response.Write("<br />")
sidsteArstal = rs("dato")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

%>
Avatar billede goose Nybegynder
22. februar 2007 - 22:17 #9
Ved ikke om den var skræmmende, det var jo psydo :o)

Din kode virker fint og det var, for mig, en anderledes måde at tænke på ;o)

/Goose
Avatar billede kalp Novice
22. februar 2007 - 22:22 #10
ja men.. det er heller ikke sikkert man ville gøre sådan normalt:)
bare min viden som måske ikke er bred nok:)
men det virker da og er overskueligt:)

tak for point:)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester