如果比较大小并取值！

huangyz_xy

请问如何才能在众多的值中取出排名前五的值，并分别在五个文本框中显示出来？？？

huangyz_xy

兄弟,你太耿直了!我不好好学习简直就对不起你啊!感谢....

Henry D. Sy

1.     Dim rs As New ADODB.Recordset
   
2.     Dim strSQL As String
   
3.     Dim str As String
   
4. 
   
5.     strSQL = "select top 5 data from table order by id"
   
6.     rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
7.     Do While Not rs.EOF
   
8.         str = str & rs.Fields(0) & ";"
   
9.         rs.MoveNext
   
10.     Loop
    
11.     MsgBox str
    
12.     rs.Close
    
13.     Set rs = Nothing

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-7 22:24 编辑 ]

huangyz_xy

菜鸟，能否帮个忙？详细一点，给个代码！

Henry D. Sy

用ado记录集

huangyz_xy

那应该怎么办呢？

Henry D. Sy

RUNSQL
只能运行操作查询，runsql并不还回记录集。

huangyz_xy

请客没有问题啊,呵呵!可还是存在问题,"RUNSQL操作需要由SQL语句组成的参数",晕!

Henry D. Sy

中了奖，别忘了请客。

Henry D. Sy

select top 5 data from table order by id

[ 本帖最后由 Henry D. Sy 于 2008-12-7 22:24 编辑 ]