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

u011597375 2014-12-21 05:26:34

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：多少积分

...全文

142 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

微信779863998 2014-12-24

打赏
举报

不红意思好像还是不行。。。因为输出的用户名都是同样的，积分也是一样的。。

微信779863998 2014-12-24

打赏
举报

感谢二楼，解决了！！！

微信779863998 2014-12-24

打赏
举报

谢谢真赞，！！！！除了给分还怎么给你好处！！。。。！！！买点零食给你好不好

qq 379666389

Tiger_Zhao 2014-12-24

打赏
举报

Next 前面加句 pm.MoveNext

熊孩子开学喽 2014-12-23

打赏
举报

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

Tiger_Zhao 2014-12-22

打赏
举报

Dim i As Long

Dim s As String



Set 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