导出数据库中的所有表的结构

使用下面的存储过程&＃xff1a;
如果输入表名则取出此表&＃xff0c;如果不输入表名则选出全表结构&＃xff0c;有问题请继续问我。
--此存储过程可以取出所输入表的字段信息&＃xff0c;如果表名为空则列出当前数据库中的所有表的信息&＃xff0c;
--如果&＃64;WITHVIEW参数不为0则列出视图的字段信息&＃xff0c;为0则不列视图信息 CREATE PROCEDURE [dbo].[TABLE_INFO](&＃64;TABLENAME VARCHAR(50),&＃64;WITHVIEW BIT&＃61;0 )
AS
BEGIN if NOT exists (select * from dbo.sysobjects
where id &＃61; object_id(N&＃39;[dbo].[DATADICT]&＃39;) and OBJECTPROPERTY(id, N&＃39;IsUserTable&＃39;)&＃61;1)
BEGIN IF &＃64;TABLENAME IS NULL BEGIN IF &＃64;WITHVIEW&＃61;0 BEGIN SELECT CASE O.TYPE WHEN &＃39;V &＃39; THEN &＃39;视图: &＃39; &＃43; O.NAME ELSE &＃39;表: &＃39; &＃43; O.NAME END AS 表名,C.name AS 列名, T.name AS 类型, C.length AS 长度, C.prec AS 精度, C.scale AS 小数位数, CASE C.ISNULLABLE WHEN 0 THEN &＃39;YES &＃39; ELSE &＃39;NO &＃39; END AS 可否为空FROM sys.syscolumns AS C INNER JOINsys.systypes AS T ON C.xusertype &＃61; T.xusertype INNER JOINsys.sysobjects AS O ON C.id &＃61; O.idWHERE (O.type &＃61; &＃39;U &＃39;) AND (O.name NOT IN (&＃39;SYSCONSTRAINTS &＃39;, &＃39;SYSSEGMENTS &＃39;))ORDER BY O.type, O.name, 列名 END ELSE BEGIN SELECT 表名&＃61; CASE O.TYPE WHEN &＃39;V &＃39; THEN &＃39;视图: &＃39;&＃43; O.NAME ELSE &＃39;表: &＃39;&＃43; O.NAME END ,C.NAME AS 列名,T.NAME AS 类型,C.LENGTH AS 长度,C.PREC 精度,C.SCALE AS 小数位数 , 可否为空&＃61; CASE C.ISNULLABLE WHEN 0 THEN &＃39;YES &＃39; ELSE &＃39;NO &＃39; END FROM SYSCOLUMNS C,SYSOBJECTS O ,SYSTYPES T WHERE T.xUSERTYPE&＃61;C.xUSERTYPE AND O.ID&＃61;C.ID AND (O.TYPE&＃61; &＃39;U &＃39; OR O.TYPE&＃61; &＃39;V &＃39;) AND O.NAME NOT IN ( &＃39;SYSCONSTRAINTS &＃39;, &＃39;SYSSEGMENTS &＃39;) ORDER BY O.TYPE,O.NAME,C.NAME END END ELSE BEGIN SELECT C.name AS 列名, T.name AS 类型, C.length AS 长度, C.prec AS 精度, C.scale AS 小数位数, CASE C.ISNULLABLE WHEN 0 THEN &＃39;YES &＃39; ELSE &＃39;NO &＃39; END AS 可否为空FROM sys.syscolumns AS C INNER JOINsys.systypes AS T ON C.xusertype &＃61; T.xusertype INNER JOINsys.sysobjects AS O ON C.id &＃61; O.idWHERE (O.name &＃61; &＃64;TABLENAME)ORDER BY O.type, O.name, 列名
END
END
ELSE
BEGIN IF NOT &＃64;TABLENAME IS NULL BEGIN SELECT &＃64;TABLENAME AS 表名, A.NAME AS 列名,C.EXPLAIN AS 说明, B.NAME AS 数据类型, A.LENGTH AS 长度,A.XPREC AS 精度,A.XSCALE AS 小数位数 FROM SYSCOLUMNS A join SYSTYPES AS B on B.XTYPE&＃61;A.XTYPE right join DATADICT AS C on C.FIELDS&＃61;A.NAME WHERE ID &＃61; OBJECT_ID(&＃64;TABLENAME) AND C.TABLENAME&＃61;&＃64;TABLENAME ORDER BY A.NAME END ELSE BEGIN SELECT 表名&＃61; CASE O.TYPE WHEN &＃39;V &＃39; THEN &＃39;视图: &＃39;&＃43; O.NAME ELSE &＃39;表: &＃39;&＃43; O.NAME END , A.NAME AS 列名,C.EXPLAIN AS 说明, B.NAME AS 数据类型, A.LENGTH AS 长度,A.XPREC AS 精度,A.XSCALE AS 小数位数 FROM SYSCOLUMNS A join SYSTYPES AS B on B.XUSERTYPE&＃61;A.XUSERTYPE right join DATADICT AS C on C.FIELDS&＃61;A.NAME right join SYSOBJECTS AS O on C.TABLENAME&＃61;O.NAME WHERE A.ID &＃61; O.ID AND (O.TYPE&＃61; &＃39;U &＃39; OR O.TYPE&＃61; &＃39;V &＃39;) AND O.NAME NOT IN ( &＃39;SYSCONSTRAINTS &＃39;, &＃39;SYSSEGMENTS &＃39;) ORDER BY O.TYPE, O.NAME,A.NAME END END END