如何实现Collection中的移动和查找？

Question

在VB中连接数据库后RS的类容赋给了Collection对象。然后断开连接。再对Collection进行记录的上下移动和查找。请问如何实现Collection中的移动和查找？谢谢大家帮忙了

Answer 1

Dim cl As New Collection
Private Sub Command1_Click()
Text1 = cl(3)
End SubPrivate Sub Form_Load()cl.Add "hhy", "1"
cl.Add "ecjtu", "2"
cl.Add "hello world", "3"
cl.Add "you are funny", "4"
End Sub

Answer 2

如果加入时没有指定key的话,只能通过循环遍历查找了吧:
Dim c As Collection
Set c = New Collection
Dim v As Variant
For Each v In c
    '访问v
Next
'或者
For v=1 To c.Count
    '访问c.Item(v)
Next

Answer 3

“在VB中连接数据库后RS的类容赋给了Collection对象。然后断开连接。再对Collection进行记录的上下移动和查找。请问如何实现Collection中的移动和查找？谢谢大家帮忙了”你的这个问题是不是想在数据库连接断开之后，仍然可以操作RecordSet啊？哪果是这样的话，大可不必将记录集内容赋给Collection对象，你只需要将 Ado.Recordset或者 Dao.Recordset对象的CursorLocation（可能是这个属性吧，我记不得太准确了）属性设为 Client(客户端）的，然后，你就可以使用这样记录集（当然，可以追加记录，删除记录，前后翻页，查找、过滤记录，因为这个Recordset本身也只是存在于你的内存中的一个记录集的对象变量罢了。）。

Answer 4

就在rs中用 movenext 后移，movepre 前移，
rs.filder ="条件" 来查找