请问下，vb+mysql 如何使用排名，然后调取所有排名数据？？

Question

Set pm = Conn.execute(" SELECT username, credits FROM pre_common_member order BY credits DESC  ")
text1.text = pm("credits")结果text1里只能显示最大的分数。 
我想让数据能够都显示出来。起码取前五个。
格式如下：
第一名username：多少积分
第二名username：多少积分
第三名username：多少积分
第四名username：多少积分
第五名username：多少积分

Answer 1

Dim i As Long
Dim s As StringSet pm = Conn.execute(" SELECT username, credits FROM pre_common_member order BY credits DESC  ")For i = 1 To 5
    s = s & "第" & Mid$("一二三四五", i, 1) & "名" & pm("username") & "：" & pm("credits") & vbCrLf
Next
text1.Text = s

Answer 2

想把五个人的信息放在同一个text控件输出?  
这样会很难看.  
想弄得整整齐齐也不是不行, 但是得花点心思在字符串长度的拼接上面, 何不直接用表格控件或列表控件呢?

Answer 3

Next 前面加句 pm.MoveNext