如何用ADO获取mssql server数据库的所有表名，表中的字段名？

Question

如何用ADO获取mssql server数据库的所有表名，表中的字段名？

Answer 1

select sysobjects.name, syscolumns.name from sysobjects,syscolumns where sysobjects.id = syscolumns.id and sysobjects.xtype = 'U'//取用户表名及其字段名；

Answer 2

list:Tstrings;
ADOConnection1.GetTableNames(list,false);
ADOConnection1.GetfieldNames(tablename,list);

Answer 3

var  list ,,list3,list2:TStrings;
begin
     Form1.ADOConnection1.GetTableNames(list,false);//表名
    Form1.ADOConnection1.GetFieldNames('tablename',list3);字段名end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  ls:tstringlist;
  i:integer;
begin
ls:=tstringlist.Create ;
ADOConnection1.GetTableNames(ls,false);
for i:=0 to ls.Count -1 do
  listbox1.Items.Add(ls.Strings [i])end;
有了表字段就好办了