如何给一个表里的所有数据排序

Question

兄弟姐妹们
请教一下如何在VB中添加一个Command键，
让它控制文本文档中的数据是 Access数据库中的一个表中的数据，
数据在文本框中从大到小排列，每行显示五组数据...
数据库放D盘
db1.mdb
表名为tribble
按ttpay字段从大到小排列

Answer 1

晕
怎么到处发这个贴啊
积分蛮多嘛
这个简单我写了个完整的程序
一个form 一个command 一个textDim rs As New ADODB.Recordset
    Dim cn As New ADODB.Connection
    Dim strConn As String
    Dim i As Integer    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;Persist Security Info=False"
    cn.Open
    With rs
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .ActiveConnection = cn
    End With
    rs.Open "select * from tribble order by ttpay desc"
    rs.MoveFirst
    strConn = ""
    i = 1
    Do While Not rs.EOF
    strConn = strConn + CStr(rs("numname").Value)
    strConn = strConn + "  " + CStr(rs("ttpay").Value)
    strConn = strConn + "  " + CStr(rs("chu").Value) + "  "
    rs.MoveNext
    If i / 5 = Int(i / 5) Then
        strConn = strConn + vbCrLf
    End If
    i = i + 1
    Loop
    Text1.Text = strConn
    cn.Close
    Set cn = Nothing
    Set rs = Nothing需要引用ado2.8，另外路径要自己设 data source...