用VB 排列 ACC数据库里的数据

来源：百度知道 编辑：UC知道 时间：2024/09/25 00:31:32
我想排列ACC里的数据,不用部件,把数据提取出来后排序,再分配到LABEL的CAPTION里,大概排10位,请各位指导指导!
排序大概如下:
比如有A-Z,26个人的成绩,现在只要前10名由高分至低分排列,只要取他们的姓名\性别和分数放到10组LABLE的CAPTION里就可以了!
请高手指点

能加点注释么?

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
Set conn = OpenConnForSqlServer("XSFHLZH\SQLEXPRESS", "xsfh", "")
'打开连接,OpenConnForSqlServer可以在我的博客里找到
'http://hi.baidu.com/lzh741206/blog/item/890fe44ef4df6bced1c86aaf.html
strSql = "select name,sex,num from acc order by num desc"
Set rs = OpenRecordset(strSql, conn)
'获取acc表的相关数据并降序排列

For i = 1 To 10
If rs.EOF Then
Exit For
Else
MsgBox rs!num
rs.MoveNext
End If
Next i
'历遍选择集

要先引用ado对象,工程---引用,选microsoft activex data object 2.5 library

private sub command1_click()
Dim conn As ADODB.Connection '定义连接对象
Dim rs As ADODB.Recordset '定义数据集对象
Dim