如何知道一个TADOConnection中有多少Table，并且要知道每个表的名称？

Question

使用ADOX技术。李维 介绍ado/mts的书有一张专门讨论了这个问题。你上书店去看一看吧。
机械工业出版社 作者 李维 adox技术 。

Answer 1

var
  SL: TStrings;
  index: Integer;
begin
  SL := TStringList.Create;
  try
    ADOConnection1.GetTableNames(SL, False);
    for index := 0 to (SL.Count - 1) do begin
      Table1.Insert;
      Table1.FieldByName('Name').AsString := SL[index];
      if ADOTable1.Active then ADOTable1.Close;
      ADOTable1.TableName := SL[index];
      ADOTable1.Open;
      Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount;      Table1.Post;
    end;
  finally
    SL.Free;
    ADOTable1.Close;
  end;
end;

Answer 2

procedure GetTableNames(List: TStrings; SystemTables: Boolean = False);

Answer 3

clacklin(海风)，你贴的好象是Delphi帮助上的吧，我刚看过！