如果比较大小并取值！

Henry D. Sy

用ado记录集

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

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