delphi中如何获取sqlserver数据库的表结构，包括列名，字段类型，长度等。。

Question

delphi中如何获取sqlserver数据库的表结构，包括列名，字段类型，长度等。。 可以提供代码吗？

Answer 1

select * from 数据库.dbo.syscolumns where object_name(id)='表名'

Answer 2

adoconnection 连接一个数据库后，可以用
gettablenames(list: tstrings; systemtables: boolean = false);函数取得数据库中的所有表。 
adoquery查询一个表后，可以用 procedure getfieldnames(list: tstrings);查到所有的字段名 
用 FieldByName（‘’）可以得到某个字段的具体信息。TField的属性DataType: TFieldType;可以判断
该字段是什么类型的字段，Size可以得到字段的大小，具体的可以看帮助

Answer 3

偶的SQL存储过程
SELECT 
表名=case when a.colorder=1 then d.name else '' end,
表说明=case when a.colorder=1 then isnull(f.value,'') else '' end,
字段序号=a.colorder,
字段名=a.name,
标识=case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else '' end,
主键=case when exists(SELECT 1 FROM sysobjects where xtype='PK' and name in (
SELECT name FROM sysindexes WHERE indid in(
SELECT indid FROM sysindexkeys WHERE id = a.id AND colid=a.colid
))) then '√' else '' end,
类型=b.name,
占用字节数=a.length,
长度=COLUMNPROPERTY(a.id,a.name,'PRECISION'),
小数位数=isnull(COLUMNPROPERTY(a.id,a.name,'Scale'),0),
允许空=case when a.isnullable=1 then '√'else '' end,
默认值=isnull(e.text,''),
字段描述=isnull(g.[value],'')
FROM syscolumns a
left join systypes b on a.xtype=b.xusertype
inner join sysobjects d on a.id=d.id  and d.xtype='U' and  d.name<>'dtproperties'
left join syscomments e on a.cdefault=e.id
left join sysproperties g on a.id=g.id and a.colid=g.smallid  
left join sysproperties f on d.id=f.id and f.smallid=0
order by a.id,a.colorder

Answer 4

我做了个万能查询程序，你可以参看：
   http://www.cnkernel.com/wncx.rar

Answer 5

var
  name: string;
  FieldType: TFieldType;
  i, size: integer;
begin
  for i := 0 to ads.Fields.Count - 1 do
  begin
    name := ads.Fields[i].FieldName;     //列名
    FieldType := ads.Fields[i].DataType; //字段类型
    size := ads.Fields[i].DataSize;      //字段长度
  end;
end;