Sql Server 批量更新表字段属性

最近需要批量更新表字段属性（如TBZYBRLCXXBQ201、TBZYBRLCXXBQ202、TBZYBRLCXXBQ203……）
由于表太多，所以需要使用升级脚本来批量更新表字段属性（批量增加表字段同理）

USE YXHIS  //选择使用的数据库
GO
DECLARE CurTable CURSOR  //声明游标
FOR 
SELECT name FROM sysobjects where name like 'TBZYBRLCXXBQ%'  
AND TYPE='U'
OPEN CurTable
DECLARE @TBNAME VARCHAR(20)
FETCH NEXT FROM CurTable INTO @TBNAME
WHILE (@@FETCH_STATUS <> -1)
BEGIN
   if exists (select * from sysobjects where name=@TBNAME)
   begin
     if  exists(select * from syscolumns where name='CHLYS' and id=object_id(@tbname))  //判断是否存在需要更改的列
     begin
       EXEC('alter table '+@TBNAME+' alter column CHLYS varchar(30)')
     end
   end
   FETCH NEXT FROM CurTable INTO @TBNAME
END
CLOSE CurTable
DEALLOCATE CurTable
GO