[ASP] Sorteren op alfabet

[trixx]

Ik heb een dynamisch menu die wordt gemaakt uit dmv een query uit een sql db. Maar de sortering vindt nu plaats op ID. En dat moet eigenlijk op Merknaam. Ik kom er niet uit hopelijk kunnen jullie me een duw in de juiste richting geven.

code:

<%
Dim objDC, objRS
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
objDC.Open "Provider=SQLOLEDB;Data Source=Server1;" _
    & "Initial Catalog=DB1;Connect Timeout=15;" _
    & "Network Library=dbmssocn;", "log", "wacht"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "voorbeeld", objDC, 0, 1
If Not objRS.EOF Then
    objRS.MoveFirst
    %>
    <form action="detail.asp" method="get">
    <select name="id">
        <option></option>
    <%
    Do While Not objRS.EOF
        %>
        <option value="<%= objRS.Fields("id") %>" selected><%= objRS.Fields("Merk")%></option>
        <%
    objRS.MoveNext
    Loop
    %>
    </select>
    <input type="submit" value="Submit" />
    </form>
    <%
End If
objRS.Close
Set objRS =  Nothing
objDC.Close
Set objDC = Nothing
%>

[Verwijderd]

Ik weet niet zoveel van ASP en ADO maar kun je geen sql query meegeven ipv de hele tabel te openen. Dan kun je in de query sorteren.

[Haan]

Ik zat ook al in de code te zoeken naar een query, dan kan je met ORDER BY merknaam de boel sorteren.

[ Voor 4% gewijzigd door Haan op 08-05-2007 14:50 ]

[BtM909]

Kan je niet in je query een order by toevoegen?

[Verwijderd]

Had even niets te doen:

Kijk op http://www.aspnl.com/aspnl/nl/artikelen/pagingspeed.asp

Vervang regel 10 met volgende regels

ASP:

Dim strSQL
strSQL = "Select * from voorbeeld order by Merknaam"
objRS.Open strSQL, objDC, adOpenForwardOnly, adLockReadOnly, adCmdText

Het is overigens beter om geen select * te gebruiken maar de benodigde veldnamen te benoemen, anders worden er geen indexen gebruikt.

[RobIII]

En (effe onder voorbehoud en uit de blote bol) volgens mij kun je een recordset ook nog sorteren nadat je 'm opgehaald hebt (niet zo efficiënt, maar het kan ):

code:

objRS.Open blah
objRS.Sort = "SomeField Asc"

Duik even de documentatie in en dan heb je het zo gevonden. Je moet overigens wel zorgen dat de Cursorlocation op client staat

[ Voor 16% gewijzigd door RobIII op 08-05-2007 15:07 ]

[trixx]

Verwijderd schreef op dinsdag 08 mei 2007 @ 14:59:
Had even niets te doen:

Kijk op http://www.aspnl.com/aspnl/nl/artikelen/pagingspeed.asp

Vervang regel 10 met volgende regels

ASP:

Dim strSQL
strSQL = "Select * from voorbeeld order by Merknaam"
objRS.Open strSQL, objDC, adOpenForwardOnly, adLockReadOnly, adCmdText

Het is overigens beter om geen select * te gebruiken maar de benodigde veldnamen te benoemen, anders worden er geen indexen gebruikt.

Super het werkt.

Heb wel adOpenForwardOnly, adLockReadOnly, adCmdText moeten weglaten. Daardoor kwam de fout "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another."

Nu werkt het verder prima.

[RobIII]

trixx schreef op dinsdag 08 mei 2007 @ 15:08:
Heb wel adOpenForwardOnly, adLockReadOnly, adCmdText moeten weglaten. Daardoor kwam de fout "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another."

Nu werkt het verder prima.

Nogal wiedes; waar heb je die constanten gedefinieerd? Dan zul je ze of ergens in je code moeten declareren, of de 'standaard' adovbs.inc includen.

NOFI; maar het helpt wel als je weet waar je mee bezig bent en niet gewoon blind gaat zitten copy/pasten.

Daarnaast is dit eigenlijk nogal een 'wie fixed mijn code effe' topic en daar doen we hier niet aan. We verwachten toch wel wat meer inzet van jezelf voordat je een topic opent. Zie ook onze Programming Beleid Quickstart

[ Voor 31% gewijzigd door RobIII op 08-05-2007 15:13 ]