请问如何将数据库中所有表中的text类型转成varchar500？

转载一下邹老大的代码

SQL code

Code highlighting produced by Actipro CodeHighlighter (freeware)

http://www.CodeHighlighter.com/



CREATE PROC p_ToUnicode

@type tinyint=0  --修改方式，0=仅查询可修改情况,1=仅所有列可修改时才修改,2=修改可修改列，报告不可修改列

AS

SET NOCOUNT ON

--查询非unicode列转换为unicode列的可行性

SELECT TableName=o.name,FieldName=c.name,

    FieldType=t.name N'(' CAST(c.prec as varchar) N')'

         CASE WHEN c.isnullable=1 THEN N'' ELSE N' NOT' END

         N' NULL',

    NoChangeCause=CAST(STUFF(

        CASE WHEN COLUMNPROPERTY(c.id,c.name,N'IsComputed')=1

            THEN N',计算列' ELSE N'' END

         CASE WHEN c.cdefault=0 THEN N'' ELSE N',列具有默认值' END

         CASE WHEN EXISTS(

                SELECT * FROM sysindexkeys idxk,sysindexes idx

                WHERE idxk.id=c.id