如何快速定位记录

bbsliu

在rstmp中，知道数据在i 的位置，如何能定位到
rstmp.move(i)
提示BOF或EOF错误。
求解，谢谢。

roych

这个需要先在记录集里确定其位置。
一般建议先移动到最末再移动到开始，这样可以提高读取记录集的效率，免于出错。如下面的代码所示，将按bulk ID进行排序后，移动到第十条（需要提醒的是，MoveFirst已经是第一条了，因此，第十条只需要Move9就可以了），并在立即窗口里显示第一个字段的值。

1. Sub test()
   
2. Dim rst As New ADODB.Recordset
   
3. Dim i As Long
   
4. rst.Open "select * from Main order by [bulk id]", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
5. i = 9
   
6. rst.MoveLast
   
7. rst.MoveFirst
   
8. rst.Move i
   
9. Debug.Print rst(0).Value
   
10. rst.Close
    
11. End Sub

复制代码

事实上，如果绑定窗体的话，可以考虑用FindFirst方法和Bookmark属性来跳转到所需记录。