DECLARE @ObjId int, @Name varchar(50)
DECLARE Table_Cursor CURSOR FOR
SELECT id, name FROM sys.sysobjects where xtype='u';
OPEN Table_Cursor;
FETCH NEXT FROM Table_Cursor
INTO @ObjId, @Name;
WHILE @@FETCH_STATUS = 0
BEGIN
--
INSERT INTO [asysobject]
([表名]
,[表说明]
,[字段序号]
,[字段名]
,[标识]
,[主键]
,[类型]
,[长度]
,[精度]
,[小数位数]
,[允许空]
,[默认值]
,[字段说明]
,[创建时间]
,[更改时间]
,softtype)
SELECT
d.name AS 表名,
isnull(f.value, '') AS 表说明,
a.colorder AS 字段序号, a.name AS 字段名, CASE WHEN COLUMNPROPERTY(a.id,
a.name, 'IsIdentity') = 1 THEN '√' ELSE '' END AS 标识,
CASE WHEN EXISTS
(SELECT 1
FROM dbo.sysindexes si INNER JOIN
dbo.sysindexkeys sik ON si.id = sik.id AND si.indid = sik.indid INNER JOIN
dbo.syscolumns sc ON sc.id = sik.id AND sc.colid = sik.colid INNER JOIN
dbo.sysobjects so ON so.name = si.name AND so.xtype = 'PK'
WHERE sc.id = a.id AND sc.colid = a.colid) THEN '√' ELSE '' END AS 主键,
b.name AS 类型, a.length AS 长度, COLUMNPROPERTY(a.id, a.name, 'PRECISION')
AS 精度, ISNULL(COLUMNPROPERTY(a.id, a.name, 'Scale'), 0) AS 小数位数,
CASE WHEN a.isnullable = 1 THEN '√' ELSE '' END AS 允许空, ISNULL(e.text, '')
AS 默认值, ISNULL(g.[value], '') AS 字段说明, d.crdate AS 创建时间,
CASE WHEN a.colorder = 1 THEN d.refdate ELSE NULL END AS 更改时间,
3
FROM dbo.syscolumns a LEFT OUTER JOIN
dbo.systypes b ON a.xtype = b.xusertype INNER JOIN
dbo.sysobjects d ON a.id = d.id AND d.xtype = 'U' AND
d.status >= 0 LEFT OUTER JOIN
dbo.syscomments e ON a.cdefault = e.id LEFT OUTER JOIN
sys.extended_properties g ON a.id = g.major_id AND a.colid = g.minor_id AND
g.name = 'MS_Description' LEFT OUTER JOIN
sys.extended_properties f ON d.id = f.major_id AND f.minor_id = 0 AND
f.name = 'MS_Description'
WHERE d.id=@ObjId
--
FETCH NEXT FROM Table_Cursor
INTO @ObjId, @Name;
END;
CLOSE Table_Cursor;
DEALLOCATE Table_Cursor;
GO