sortera recordset

[caveman]

Är det nån som vet varför det inte går att ortera detta recordset i slutet av funktionen

 

Public Function sortrecordset(rsArray As Variant) As ADODB.Recordset

 

 

Dim rsResultat As ADODB.Recordset

Set rsResultat = New ADODB.Recordset

rsResultat.Fields.Append "ArtikelNr", adChar, 60, adFldMayBeNull

rsResultat.Fields.Append "Benamning", adChar, 35, adFldMayBeNull

rsResultat.Fields.Append "Fabrikat", adChar, 12, adFldMayBeNull

rsResultat.Fields.Append "System", adChar, 12, adFldMayBeNull

rsResultat.Fields.Append "BVArtNr", adChar, 12, adFldMayBeNull

rsResultat.Fields.Append "Lager", adChar, 50, adFldMayBeNull

rsResultat.Fields.Append "Lagerplats", adChar, 50, adFldMayBeNull

rsResultat.Fields.Append "Antal", adDouble, 8, adFldMayBeNull

rsResultat.Open

 

 

For iLoop = LBound(rsArray, 2) To UBound(rsArray, 2)

 

rsResultat.AddNew

rsResultat!ArtikelNr = Trim(rsArray(0, iLoop))

rsResultat!benamning = Trim(rsArray(1, iLoop))

rsResultat!fabrikat = Trim(rsArray(2, iLoop))

rsResultat!System = Trim(rsArray(3, iLoop))

rsResultat!BVArtNr = Trim(rsArray(4, iLoop))

rsResultat!Lager = Trim(rsArray(5, iLoop))

rsResultat!Lagerplats = Trim(rsArray(6, iLoop))

rsResultat!Antal = Trim(rsArray(7, iLoop))

rsResultat.Update

 

Next

 

 

rsResultat.Sort = "Antal asc"

 

Set sortrecordset = rsResultat

End Function

[Olle Nyrén]

Sort är inte ett funktionsanrop utan ett värde du ska sätta innan du öppnar ett dynaset-Recordset som du vill ska sorteras. Se http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/acproSortX.asp för exempelkod.

 

Oftast är det bättre att låta databasen sköta sorterandet med ORDER BY.