Question

vb用Ado连接，查询结果在Datagrid中的显示问题

vb用Ado连接access后，如何控制查询结果显示于Datagrid内为1-50条记录？之后按“下一页”按钮显示50-100条，依此类推。

Answer 1

Dim lngPages, lngCurrentPage As Long
Set cn = New ADODB.Connection
...
Set rsX = New ADODB.Recordset
rsX.CursorLocation = adUseClient
rsX.PageSize = 50
rsX.Open "select * from 表1", cn, adOpenKeyset, adLockOptimistic

lngPages = rsX.PageCount
lngCurrentPage = 1 //当前页

//在按钮中更改记录集的当前页:更改lngCurrentPage
rsX.AbsolutePage = lngCurrentPage

此时数据集rsX中的记录数就是页面的所有记录，你再取出逐条显示出来，可以用ListView显示。

参见：
http://www.freevbcode.com/ShowCode.asp?ID=6291
中的Source/DBPageSizeAbsolutePagePageSearch.zip

Answer 2

这个应该没法直接做的吧?除非你数据库是按一定规律排序的.
比如说是自动编号且没有断号,
可以在Where加条件
如: SELECT * FROM 测试记录 Where ID Between " & x*50+1 & " and " & (x +1)* 50 order by ID ASC"
x是数据变量,你点下一页时x=x+1(默认为0)

这只是一种笨方法且有限制,也许有还高人指点.