ADOconnection+ADOTable+DBGrid+Excel已经将数据读到DBGrid里去了。想统计共多少条记录:
 while no fromADoTable.Eof do
 begin
  row := row + 1;
 end; ShowMessage(InttoStr(row));好像是个死循环。请各位注意我用的是数据源是Excel。ADOTable有没有函数能统计记录?
谢谢!

解决方案 »

  1.   

    showmessage(adotable1.Recordset.RecordCount);
      

  2.   

    while no fromADoTable.Eof do
     begin
      row := row + 1;
      fromADoTable.Next;
     end;or adotable.recordcount
      

  3.   

    fromADoTable.First;
     while Not fromADoTable.Eof do
     begin
      row := row + 1;
      fromADoTable.Next;   //楼主注意:如果不移动指针,当然是个死循环了
     end;实际上只要一个属性就得到了:
    adotable.recordcount
      

  4.   

    fromADoTable.First;
     while Not fromADoTable.Eof do
     begin
      row := row + 1;
      fromADoTable.Next;
     end;----oradotable.recordcount