ado如何读取excel表格的最后一条记录

Question

如题，
请教！

Answer 1

通过ado就是把excel当作一张数据库表来读取
取数据集中的最后一条记录就行了

Answer 2

自己摸索出来了，
查询之后调用如下函数：ADOqry1.FindLast;
edt3.Text:=ADOqry1.FieldByName('code').AsString;

Answer 3

支持！顺便可以看看First、Next

Answer 4

直接读取Excel报表  try
    Self.ExcelApplication1:=TExcelApplication.Create(Self);
    Self.ExcelApplication1.Connect;
  except
    messagebox(application.Handle,'无法生成Excel报表，请确定安装了Excel后重试','信息',mb_ok or mb_iconinformation);
    exit;
  end;
  Self.ExcelApplication1.Visible[0]:=False;
  Self.ExcelApplication1.DisplayAlerts[0]:=False;
  self.ExcelApplication1.Workbooks.Open(filename,EmptyParam,
                                         EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                         EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                         EmptyParam,EmptyParam,EmptyParam,0);
  self.ExcelWorkbook1.ConnectTo(Self.ExcelApplication1.Workbooks[1]);
  self.ExcelWorksheet1:=TExcelWorkSheet.Create(self);
  self.ExcelWorksheet1.ConnectTo(Self.ExcelWorkbook1.Worksheets[1] as _worksheet);
  //*****************************************
  //得出报表中有数据内容的行数和列数
  row:=self.ExcelWorksheet1.UsedRange[0].Rows.Count;
  col:=self.ExcelWorksheet1.UsedRange[0].Columns.Count;
  //最后一行各列数据
  for i:=1 to col do
    s:=Self.ExcelWorksheet1.Cells.Item[row,i]

Answer 5

ADO连接上Excel，然后操作和其他的一样，用ADO数据集.last不就行了。

Answer 6

ADO连接上Excel，然后操作和其他的一样，用ADO数据集.last不就行了。