vb adodc1分页的问题
用Adodc1连接Access数据库后,一次性读取数据库全部记录,如果不分页,MSHFlexGrid1可直接绑定Adodc1,达到显示Adodc1的目的:Adodc1.C...
用Adodc1连接Access数据库后,一次性读取数据库全部记录,如果不分页,MSHFlexGrid1可直接绑定Adodc1,达到显示Adodc1的目的:
Adodc1.ConnectionString = AdoCn
Adodc1.RecordSource = "select * from aa order by ID"
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1.Recordset
MSHFlexGrid1.Refresh
就以上示例,如果对Adodc1分页后,为了让MSHFlexGrid1显示Adodc1分页后的记录,
Adodc1.Recordset.PageSize = 50 ' 每页显示数据量
PageM = 1 '数据默认定位到第一页Add
Adodc1.Recordset.AbsolutePage = PageM
从网上查找到的方法,一般是通过循环,用MSHFlexGrid1.Add的方法,或MSHFlexGrid1.TextMatrix(.Rows - 1, 1) = rs.Fields("字段")的方法实现。
我的问题是,不用以上方法,直接使用类同于Set MSHFlexGrid1.DataSource = Adodc1.Recordset(PageM=1) 的格式实现,略去循环过程,请问如何编写这样的代码?
当然,Set MSHFlexGrid1.DataSource = Adodc1.Recordset(PageM=1) 的格式是错误的,只想达到这样的效果。
采纳的答案当然送100分以表感谢。
一、二楼是什么题的答案?不解!!! 展开
Adodc1.ConnectionString = AdoCn
Adodc1.RecordSource = "select * from aa order by ID"
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1.Recordset
MSHFlexGrid1.Refresh
就以上示例,如果对Adodc1分页后,为了让MSHFlexGrid1显示Adodc1分页后的记录,
Adodc1.Recordset.PageSize = 50 ' 每页显示数据量
PageM = 1 '数据默认定位到第一页Add
Adodc1.Recordset.AbsolutePage = PageM
从网上查找到的方法,一般是通过循环,用MSHFlexGrid1.Add的方法,或MSHFlexGrid1.TextMatrix(.Rows - 1, 1) = rs.Fields("字段")的方法实现。
我的问题是,不用以上方法,直接使用类同于Set MSHFlexGrid1.DataSource = Adodc1.Recordset(PageM=1) 的格式实现,略去循环过程,请问如何编写这样的代码?
当然,Set MSHFlexGrid1.DataSource = Adodc1.Recordset(PageM=1) 的格式是错误的,只想达到这样的效果。
采纳的答案当然送100分以表感谢。
一、二楼是什么题的答案?不解!!! 展开
1个回答
ZESTRON
2024-09-04 广告
2024-09-04 广告
在Dr. O.K. Wack Chemie GmbH,我们高度重视ZESTRON的表界面分析技术。该技术通过深入研究材料表面与界面的性质,为提升产品质量与可靠性提供了有力支持。ZESTRON的表界面分析不仅涵盖了相变化、化学反应、吸附与解吸...
点击进入详情页
本回答由ZESTRON提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询