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

显示全部楼层 · 2009-4-4 11:33:43

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

千问 · 2009-4-4 11:33:43

Dim lngPages, lngCurrentPage As LongSet cn = New ADODB.Connection...Set rsX = New ADODB.RecordsetrsX.CursorLocation = adUseClientrsX.PageSize = 50rsX.Open "select * from 表1", cn, adOpenKeyset, adLockOptimisticlngPages = rsX.PageCountlngCurrentPage = 1 //当前页//在按钮中更改记录集的当前页:更改lngCurrentPagersX.AbsolutePag...

千问 · 2009-4-4 11:33:43

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