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

[yz686868]

表如下

单号   姓别   姓名
001     女    李小姐
002     女    张小姐
003     女    隐小姐
004     女    女小姐
005     女    发小姐

Dim rs As New Recordset 
sql = "select * from tb Where 姓别='女'"
rs.Open sql, conn, 1, 3

这样rs只有一条记录

如何将所有记录装入rs

[碧海情天-赵亮]

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

[lxq19851204]

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

[yz686868]

[Quote=引用 1 楼 theforever 的回复:]
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
[/Quote]

不能用DO

[lxq19851204]

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