将所有内容装入一个记录集

Question

本帖最后由 yz686868 于 2011-04-16 22:50:21 编辑

Answer 1

rs已包含所有符合条件的记录了，只是你没有遍历RS读出来。
Dim rs As New Recordset 
sql = "select * from tb Where 姓别='女'"
rs.Open sql, conn, 1, 3
do while not rs.eof
msgbox rs("姓名")
loop

Answer 2

rs已经有全部的纪录了,你用的时候再提取出来.
Dim rs As New Recordset
sql = "select * from tb Where 姓别='女'"
rs.Open sql, conn, 1, 3
debup.print rs.recordcount

Answer 3

For i=1 to rs.recordcount
    msgbox rs("姓名")
    rs.movenext
next i