Manuel sortering af records i en db, hvordan ?

Never mind, Har selv fundet en løsning

Kunne være interessant at se hvad du fandt ud :o)

Nogle tekst-bokse, hvor man angiver rækkefølge (1 - 2 - 3 ....)?

... ORDER by numbers

her er et eksempel:

<%@ language="VBScript" %>
<%
Set objConn = Server.CreateObject ("ADODB.Connection")
Dim strDSN            : strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath( "db.mdb" )
Dim strSelectSQL     : strSelectSQL = "SELECT * FROM menu ORDER BY sortID ASC"
Dim intSortID, intID, intDirection
Dim bFirst : bFirst = true

objConn.Open strDSN

Dim objRS

if( Request( "action" ) = "move" ) then
    intID         = CInt( Request( "id" ) )
    intSortID     = CInt( Request( "sortID" ) )
    intDirection = CInt( Request( "direction" ) )
    Dim strGetSwapSQL : strGetSwapSQL = "SELECT ID FROM menu WHERE sortID = " & ( CInt( intSortID ) + intDirection )
    Set objRS = objConn.Execute( strGetSwapSQL )
    Dim intSwapID : intSwapID = objRS( "ID" )
    Dim strMoveUpSQL : strMoveUpSQL = "UPDATE menu SET sortID = ( sortID + " & intDirection & " ) WHERE ID = " & intID
    objConn.Execute( strMoveUpSQL )
    Dim strMoveDownSQL : strMoveDownSQL = "UPDATE menu SET sortID = ( sortID - " & intDirection & " ) WHERE ID = " & intSwapID
    objConn.Execute( strMoveDownSQL )
end if


Set objRS = objConn.Execute( strSelectSQL )

Response.Write( "<table>" )
while not objRS.EOF
    intID         = objRS( "ID" )
    intSortID     = objRS( "sortID" )
    Response.Write( "<tr><td>" & objRS( "item" ) & "</td>" )
    if( bFirst ) then
        bFirst = false
        Response.Write( "<td>&nbsp;</td>" )
    else
        Response.Write( "<td style=""font-family:webdings""><a href=""?action=move&id=" & intID & "&sortID=" & intSortID & "&direction=-1"">5</a></td>" )
    End if
   
    objRS.MoveNext
    if( objRS.EOF ) then
        Response.write( "<td>&nbsp;</td>" )
    else
        Response.Write( "<td style=""font-family:webdings""><a href=""?action=move&id=" & intID & "&sortID=" & intSortID & "&direction=1"">6</a></td>" )
    end if
    Response.Write ( "</tr>" )
wend
Response.Write( "</table>" )
objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing
%>

databasen ser sådan ud:

ID - autonummer
item - Text
sortID - number

/nute

Fedest, takker nute :o)

anytime, steen :o]

Hey Nute

Dit eksempel er lidt smartere end den jeg selv fik bikset sammen. Jeg får en fejlmeddelse når jeg køre dit eksempel:

Fejltype:
Microsoft JET Database Engine (0x80004005)
Handlingen skal bruge en opdaterbar forespørgsel.
test.asp, line 42

linie 42: objConn.Execute( strGetSwapSQL )

du skal give write permissions på din database.

højreklik på basen > egenskaber > Sikkerhed

Her skal brugeren "everyone" (aner ikke hvad denne hedder på dansk) have skrive rettigheder ...

Jeg kan ikke finde fanebladet/knappen sikkerhed, når jeg højre klikker på min database i wwwroot mappen, eller på filen iis. Kan det gøres på en anden måde. Mappen hvor i databasen ligger skulle have skrive rettigheder

ok .. jeg aner ikke hvad fanebladet hedder på dansk (sidder selv med en engelsk windows) - men du har nok 3 faner ? det er det midterste faneblad.

Jeg har kun to "generelt" og "dokument info". Jeg køre på en xp

hmm ... hvordan kører du normalt dine insert eller update statements ?

Det var dog besynderligt, ingen af SQL insert/update ser ud til at virke. Lige meget hvilken af mine tidligere projekter, ser ud til at virke jeg får følgende fejl.

"Databasen eller objektet er skrivebeskyttet og kan ikke opdateres"

Jeg har forsøgt at genstarte iis men det gør ingen forskel. Det virkede tidligere idag, Har du en ide til hvordan jeg kommer videre eller får nulstillet IIS

mon ikke du kan få noget hjælp her ?

http://www.udvikleren.dk/thread.php?techid=7&f=7&t=167
http://www.kandu.dk/dk/spg/4937
http://www.eksperten.dk/spm/308665

jo mange tak, det var lidt kryptisk det med at man skulle "fjerne flybenet" før fanebladet sikkerhed kom frem.

så det fungerer nu ?

/nute