按降序对数据库记录进行排序

Question

我对编程比较陌生，VB 需要一些帮助。我试图按照他们的速度（最快的第一）的顺序列出跑步者，数据来自数据库，我能够按升序对数据进行排序但不能按降序排列，有没有办法简单地做到这一点，如果不是，反转列表框的最简单方法是什么。

我目前的代码：

Private Sub RunningRanking()
    Dim DBconn As New ADODB.Connection 'This is a connection string   declaration'
    Dim Record As New ADODB.Recordset ' This is a connection to the record
    DBconn.Open("Provider = Microsoft.Jet.OLEDB.4.0;" & _
               "Data source = '" & Application.StartupPath & "\Users Database.mdb'") 'this is opening the connection between the 
    'system and database
    With Record
        .CursorLocation = ADODB.CursorLocationEnum.adUseClient
        .Open("Trainee", DBconn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        .Sort = "RunningSpeed" 'sorting the database record in ascending order
        Do Until Record.EOF
            LstBoxName.Items.Add(Record.Fields("First Name").Value)
            LstBoxSpeed.Items.Add(Record.Fields("RunningSpeed").Value)
            .MoveNext()
        Loop
    End With
    Record.Close()
    DBconn.Close()
End Sub

Answer 1

您可以使用 desc 关键字对数据进行降序排序：

.Sort = "RunningSpeed desc"

考虑使用 SQL 查询来获取数据，而不是打开 table。数据库对数据进行排序通常比 Recordset 对象快得多。

按降序对数据库记录进行排序

Sorting Database Records in Descending Order

database

vb.net

sorting

listbox

ado