如何实现从记录集中查询记录集?

Question

举个例子，功能就象Google中的“在结果中查询"

Answer 1

用循环搜索呀
do until rs.eof
    if rs!id=id then
         ....
         exit do
    end if
    rs.movenext
loop

Answer 2

rs.filter=querystring1 得到第一次查询的记录集
rs.filter=querystring1 & " and " & querystring2 在第一次查询的记录集中得到第二次查询的记录集

Answer 3

dim rs as new adodb.recordset
sqlstring = "select * from table1"
rs.Open sqlstrng, Con, adOpenDynamic, adLockOptimistic

Answer 4

你的问题我理解错了，同意laohui() 的做法。
不知有没有其它的好方法。
up

Answer 5

思路：  在第一记录集中用循环查询，符合条件的加入另一个记录集
do until rs.eof
    if rs!id=id then
    '就是做一个新的记录集。然后将符合条件的记录加入里
    Dim rs1 As New ADODB.Recordset
    rs1.Fields.Append "xxx", adVariant
     ...........
    rs1.Open
    Dim i As Integer
    
    rs1.AddNew
    rs1.Fields(0).Value = rs.Fields(0).Value 
    ..............
    rs1.Update 
    endif
    rs.movenext
loop

Answer 6

dim rs as recordset
set rs=new recordset
rs.open "select * from table1",conn
rs.filter=QryString(筛选条件：比如，"[字段a]=[值]")
经过条件筛选后得到的rs就是新的结果集

Answer 7

我试试，不过hyxyliuyan() 的方法好象有许多限制不知道有没有直接从记录集中查询的方法

Answer 8

我的代码Dim rs1 As New ADODB.Recordset
    rs1.Fields.Append "xxx", adVariant
要提到循环前面

Answer 9

我对这个问题也想了也久，adodb.recordset 对像不提供直接的二次查询，只能用filter进行筛选.所以对于从结果中查询，只能采用变通的办法了。我找遍了所有的recordset的对象和方法,也没有找到直接查询.