利用ADODATASET怎样对DBGRID进行分页?
解决方案 »
- 请教如何利用WebService,WeatherWebService 来获取地方的天气预报
- 问高人,线程或者单元之间传递对象数组,采用全局变量的形式,怎么样才能不需要单元之间互相包含?
- DBgridEh 倒出 TXT 的格式问题
- 拖动Panel改变大小时,当Panel增大到一定程度时就不能再变大了,如何让它可以无限变大?
- MSN Messenger 6左侧的TAB是如何作出来了?
- 控件外画个边框(很高深的不懂就别进来了!)
- 如果进行组合索引(排序)
- delphi
- 哪位大虾能将以下的一段VB代码转换成DELPHI代码???
- 请教数据库高手?
- 谁有SQL SERVER 7.0的下载地址
- BDE的问题!!!!!
要分页只能用stringgrid
begin
adodataset3.Recordset.AbsolutePage:=1;
showdata;
end;procedure TForm1.showdata;
var
i,j:integer;
rs:adoint.recordset;
begin
adodataset1.Close;
adodataset1.Open;
rs:=adodataset3.Recordset;
for i:=1 to rs.PageSize do
begin
adodataset1.append;
for j:=0 to rs.Fields.Count-1 do
adodataset1.FieldByName(adodataset3.Fields[j].fieldName).Value:=rs.Fields.get_item(adodataset3.Fields[j].fieldName).Value;
rs.MoveNext;
if rs.EOF then
break;
end;
adodataset1.First;
end;
adodataset1.Recordset.PageSize //设置页面大小
adodataset1.recordset.PageCount //返回页面数目
adodataset1.recordset.AbsolutePage //指定当前页面位置