用ADO连接数据库怎样取出表的名称和字段名

Question

用ADO连接数据库怎样取出表的名称和字段名

Answer 1

ADOConnection.GetTableNames(List: TStrings; SystemTables: Boolean=False)

Answer 2

Delphi帮助：procedure TForm1.Button1Click(Sender: TObject);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 3

ADOConnection.GetTableNames(List: TStrings;SystemTables: Boolean);

Answer 4

for i:=0 to adoquery1.FieldList.Count do
     adoquery1.FieldList.Fields[i].Name;

Answer 5

ADOConnection.GetTableNames(List: TStrings;SystemTables: Boolean);
--------------------------------------------------------------------
   for i:=0 to adoquery1.FieldList.Count do
     adoquery1.FieldList.Fields[i].Name;

Answer 6

如果你的数据库是Sql Server的话，可以访问sysObject表，利用查询
Select Name from SysObject where Xtype='U' and Status>0来获得