Udtræk fra database

Du skal først gruppere i din select sætning:

\'\"SELECT * FROM table_name GROUP BY Transfer ASC\"\'

Derefter laver du din dropdown:

<select name=\"transfer\">
  <option selected value=\"\">Vælg transfer</option>
<%
do until rs.EOF
%>
      <option value=\"<%=rs(\"transfer\")%>\"><%=rs(\"transfer\")%></option>
<%
rs.MoveNext
loop
%>
</select>

<select name=\"Language\" id=\"Language\">
<%While Not Rs.EOF
Rs.Filter = \"Transfer = \'\" & 1 & \"\'\"
Response.Write \"<option value=\"\"\" & Rs.Fields(\"Tranfer\").Value & \"\"\"\"
Response.Write \" selected\"
Response.Write \">\" & Server.HTMLEncode(RsLanguages.Fields(\"NAME\").Value) & \"</option>\"
RsLanguages.MoveNext()
Wend
%>
</select>

Hovsa - din select sætning skal være:

\"SELECT * FROM table_name ORDER BY Transfer ASC\"

Er du sikker på at der er ASC??

Den select sætning jeg har skrevet er ren SQL

ASC = Sorterer stigende (1, 2, 3, 4...)
DESC = Sorterer faldende (4, 3, 2, 1...)

Så ja....hvis du vil har poster med transfer værdi = 1 listet først, så er det ASC (Ascending).

Select-sætninger i SQL fungerer perfekt sammen med alt andet ASP.

Det er så fordi mit ikke er sql, kan du skrive følgende om:
    <%
  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"databasen.mdb\")
    Set RS = Conn.Execute(\"SELECT * FROM soegkate ORDER BY Transfer ASC\")
    If Not RS.EOF Then
        %>
        <%
        Do While Not RS.EOF
            %>

            <option name=\"kat\" value=\"<%= RS(\"ID\") %>\">
            <%If RS(\"Parent\") > 0 Then%> -    
            <% else %>
            <% end if%>   
            <%= RS(\"Navn\") %></option>
       
                            <%
            If RS(\"Billed\") <> \"\" Then
                %>
                - <%= RS(\"Billed\") %><br>
                <%
            End If
            RS.MoveNext
        Loop
    End If
RS.close
Set RS = nothing
%>

Hvad melder den af fejl???

det er jo fordi jeg ikke køre sql

Det har ikke noget med det at gøre!

SQL er bare en god måde at lave select-sætninger på!

Men prøv at lave din drop-down boks som jeg skrev tidligere!

SQL er en syntaks for databaser. Både MySQL, MS SQL server, Access kan SQL syntaks, Så du har ingen problemer  hvis du kører Access

-Per

Den sortere det bare ikke ordenligt

Sikkert fordi du har defineret transfer som et tekstfelt. Dvs du får 1 10 2 21 osv.
Lav det om til et talfelt så vil det virke

-Per

Den tager nemlig 1 10 2 21 osv.
Men transfer er sat som tal i databasen

Det kan ikke lade sig gøre det må være detineret som tekstfelt, men prøv at sendedatabasen til mig så skal jeg se efter

-Per

Ups. Glemte mail adresse PerLA@mail.tele.dk

så er den sendt

Den sorterer da fint den kolonne du kikker på er ID og den er selvfølgelig sorteret anderledes

-Per

Kan du også få den til at sortere ordenligt på en hjemmeside??

Men du har også en transfer2, skal den ogsså sorteres ? Altså sorterering efter transfer,transfer2 ? Hat du et link eller siden ?

-Per

Det er denne asp kode jeg bruger:
<%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database/databasentildingkee.mdb\")
    strSQL = \"SELECT * FROM soegkate ORDER BY Transfer ASC\"
    set RS = conn.execute( strSQL )
    do while not rs.eof
        Response.write \"<option name=\'kat\' value=\'\" & rs(\"ID\") & \"\'>\"
      If rs(\"Parent\") > 0 Then \'Lad ingen være valgt først
        Response.write \" - \"
      Else
      End If
        Response.write \" \" & rs(\"Navn\") & \"</option>\"
        rs.movenext
    loop
%>

Ja men den sorter jo fint hvis du istedet for vælger feltet transfer, nu bruger du jo id

rs(\"ID\")  -> rs(\"transfer\")

-Per

Eller skal du lave din \"order by transfer\" om til \"order by id\"

-Per

hvor mener du helt præcist???

Du har bedt om at den sorterer efter transfer, men i koden udskriver du ID. Dvs det ser rode ud da ID ikke er sorteret.

-Per

den skal sortere det efter Transfer, Id bruges til at sende vidre og gemme et andet sted i databasen

Prøv den kode istedet

<%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database/databasentildingkee.mdb\")
    strSQL = \"SELECT * FROM soegkate ORDER BY Transfer ASC\"
    set RS = conn.execute( strSQL )
    do while not rs.eof
        Response.write \"<option name=\'kat\' value=\'\" & rs(\"transfer\") & \"\'>\"
      If rs(\"Parent\") > 0 Then \'Lad ingen være valgt først
        Response.write \" - \"
      Else
      End If
        Response.write \" \" & rs(\"Navn\") & \"</option>\"
        rs.movenext
    loop
%>

-Per

hjælper ikke på det

Har lige sendt dig en løsning

-Per

Det du har gjordt per, det er jo at dele dem op i flere dropdownbokse det skal kun være i en.

ok,

<%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")
    strSQL = \"SELECT * FROM soegkate ORDER BY Transfer ASC\"
    set RS = conn.execute( strSQL )
    value=1
    Response.write\"<select name=\'kat\'>\"
    Response.write \"<option selected>-- Ingen --</option>\"
    do while not rs.eof
        \'do while Value = rs(\"transfer\")
          Response.write \"<option>\" & rs(\"Navn\") & \"</option>\"
          Response.write \" \"  & \"\" 
          rs.movenext
        \'loop
    loop
    Response.write \"</select>\"
%>

-Per

Det virker altså stadig ikke, prøv at se her:
http://go4net.adsl.dk/dingkee/set.asp?mode=nylink

Er det du har lavet ikke godt nok, er da lidt i tvivl om hvad det egentlig er du vil have

kan godt lave så den ser ud som din, men det giver da igen mening da du allerede har den, eller hva\' ?

-Per

Prøv at sammenligne dropdownboksen med databasen.
Hardware, spil, grafik, kommer før EDB og Internet

<%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")
    strSQL = \"SELECT * FROM soegkate ORDER BY Transfer ASC, id\"
    set RS = conn.execute( strSQL )
    Value=\"999\"
    Response.write \"<select name=\'kat\'>\"
    Response.write \"<option selected> </option>\"
    do while not rs.eof
      Response.write Value & RS(\"Transfer\")
      if Value=RS(\"transfer\") Then
        Fyld=\"-\"
      Else
        Fyld=\"\"
      End If
      Response.write \"<option>\" & Fyld & rs(\"Navn\") & \"</option>\"
      IF not rs.eof Then Value=Rs(\"transfer\")
      rs.movenext
    loop

%>

-Per

Fedt nu virker det.
Tak

Der er dog fælder hvis du skal oprette nye kategorier. Hovedkategorien skal have lavere id værdi end sine egne underkategorier. Lavede lige om så du også fik værdi på

<%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")
    strSQL = \"SELECT * FROM soegkate ORDER BY Transfer ASC, id\"
    set RS = conn.execute( strSQL )
    Value=\"999\"
    Response.write \"<select name=\'kat\'>\"
    Response.write \"<option selected> </option>\"
    do while not rs.eof
      Response.write Value & RS(\"Transfer\")
      if Value=RS(\"transfer\") Then
        Fyld=\"-\"
      Else
        Fyld=\"\"
      End If
      Response.write \"<option value=\" & RS(\"id\") & \">\" & Fyld & rs(\"Navn\") & \"</option>\"
      Value=Rs(\"transfer\")
      rs.movenext
    loop

%>

-Per