如何使一个DBGridEH只显示30条记录?

Question

当单击某个按钮时再显示下面30条?

Answer 1

select top 100 * from 表名 where id not in (select top page_no*100 * from 表名)page_no是程序中的变量
取数据时分页取
上面是每次取100条的。可以看一下

Answer 2

procedure TmainForm.showdata(ipage: integer;aqStore:TADOQuery);
procedure CreadeAdsField;
  var
    i: Integer;
  begin
    adsClone.Close;
    adsClone.FieldDefs.Clear;
    for i := 0 to aqStore.FieldCount - 1 do
    begin
      if i = aqStore.FieldCount then Continue;
      adsClone.FieldDefs.Add(aqStore.Fields[i].FieldName, aqStore.Fields[i].DataType, aqStore.Fields[i].Size);
     end;
    adsClone.CreateDataSet;
  end;
var
  i, j: Integer;
  rs: adoint.RecordSet;
begin
  pCount := aqStore.Recordset.PageCount;   
  If  pCount=0 THEN
  BEGIN
     lblCount.Caption :=' ¸ÃÒ³Î޼Ǽ¡£';
     ds_ReadHistory.DataSet := aqStore;
     for  i:=0 to dbg_ShowInfo.Columns.Count-1 do
       dbg_ShowInfo.Columns[i].Visible:=false;
     dbg_ShowInfo.AutoFitColWidths:=true;
     EXIT;
  END;
  aqStore.Recordset.AbsolutePage := iPage;
  rs := aqStore.Recordset;
  CreadeAdsField;
  adsClone.DisableControls;  for i := 0 to rs.PageSize - 1 do
  begin
    adsClone.append;
    for j :=0 to rs.Fields.Count - 1 do
      adsClone.Fields[j].Value := rs.Fields[j].Value;
    rs.MoveNext;
    if rs.EOF then Break;
  end;
  adsClone.EnableControls;
  adsClone.First;
  ds_ReadHistory.DataSet := adsClone;
  ds_ReadHistory.DataSet.Active:=TRUE;
  lblCount.Caption := 'Ò³´Î£º' + IntToStr(iPage) + '/' + IntToStr(pCount);
 end;

Answer 3

上面是我刚解决的,已经实现了,你试下吧主要思想是建一个临时数据集adsClone,adsClone.CreateDataSet;然后将30条数据写入临时数据集,最后GRIDEH显示的是临时数据集的数据,翻页后又将下30条数据写入临时数据集

Answer 4

我问一下能直接用SQL做分页查询吗？