Avatar billede loss Nybegynder
01. november 2001 - 17:08 Der er 4 kommentarer og
2 løsninger

ASP/SQL ORDER BY

Davs.. jeg har en DB hvor jeg vil skrive en masse ud, hvilket virker fint, og jeg får da osse sorteret det efter hvad jeg sætter ORDER BY kommandoen til.

Det der så driller mig er at jeg gerne vil have lavet det sådan at man kan trykke på sort by enten ID, Type, Pris osv, og den så sortere efter det, uden at den linker til en anden url.

Jeg forestiller mig at man skal bruge querystrings på en eller anden måde og så refreshe siden, og hente ned fra querystringen og så \"ORDER BY\" & querystring.. noget i den stil måske, men hvordan bixer jeg lige det sammen
Avatar billede pepsi2 Nybegynder
01. november 2001 - 17:22 #1
Select case Request.Querystring (\"orderby\")
Case \"id\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"data.mdb\")
Conn.Open DSN
strSQL = \"Select * from tabel Order by ID
Set rs = Conn.Execute (strSQL)
Case \"type\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"data.mdb\")
Conn.Open DSN
strSQL = \"Select * from tabel Order by Type
Set rs = Conn.Execute (strSQL)
End Select
Avatar billede eagleeye Praktikant
01. november 2001 - 17:57 #2
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"data.mdb\")
Conn.Open DSN

strSQL = \"SELECT * FROM table\"
Select case Request.Querystring (\"orderby\")
  Case \"id\", \"type\", \"pris\"
    strSQL = strSQL & \" ORDER BY \" & Request.Querystring (\"orderby\")
end select
set RS = conn.execute(strSQL)

udskrive fra rs....
Avatar billede pepsi2 Nybegynder
01. november 2001 - 18:08 #3
ja det var jo nok lidt mere smart
Avatar billede loss Nybegynder
01. november 2001 - 19:35 #4
Jeg fik selv lavet det men i skal have tak for at i gad at bruge jeres tid, på det alligevel, så i kan få lov at dele de 60 point, sådan at der ikke er nogen der bliver sure :)

takker
//loss
http://www.isearch.dk
Avatar billede loss Nybegynder
01. november 2001 - 19:38 #5
Hvis der nu var nogle der ville se koden så smider jeg lige de 3 \"vigtige\" områder ind

dim sortby
sortby = Request.Querystring(\"sortby\")     
if sortby = \"\" then
sortby = \"ID\"
End If

<td><a class=\'speciel\' href=\'showall.asp?sortby=id\'>ID</a></td>

strQuery = \"SELECT * FROM nohome ORDER BY \" & sortby
Set rslink = adoDataConn.Execute(strQuery)
Avatar billede pepsi2 Nybegynder
01. november 2001 - 20:55 #6
takker 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
Kurser inden for grundlæggende programmering

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