请给我一段语句，把数据库中所有表中的char类型的字段改成varchar类型的字段

Question

declare @name varchar(100)
declare @type varchar(100)
declare @len varchar(100)
declare @table varchar(100)
declare @sql varchar(500)
set @table = 'a1'
while exists (select A.name, C.name, A.length from syscolumns A, sysobjects B, systypes C 
               where A.id = B.id and A.xtype = C.xtype and B.name = @table and C.name = 'char')
begin 
  select top 1 @name = A.name, @type = C.name, @len = A.length 
    from syscolumns A, sysobjects B, systypes C 
     where A.id = B.id and A.xtype = C.xtype and B.name = @table and C.name = 'char'
  set @sql = 'alter table '+@table+' alter column '+@name+' varchar('+@len+')'
  exec (@sql)
end

Answer 1

declare @table_name sysname,@column_name sysname,@column_length sysname
while exists (
select * from INFORMATION_SCHEMA.COLUMNS where DATA_TYPE='char'
)
begin
select top 1 @table_name=TABLE_name,@column_name=column_name,@column_length = CHARACTER_MAXIMUM_LENGTH from INFORMATION_SCHEMA.COLUMNS where DATA_TYPE='char'
exec('alter table ' + @table_name + ' alter column ' + @column_name + ' varchar(' + @column_length + ')')
end

Answer 2

exec sp_configure N'allow updates',1
go
update syscolumns set xusertype=167 where xusertype=175
go
exec sp_configure N'allow updates',0

Answer 3

Declare @TableName VarChar(20),@ColumnName varChar(20),@Length int,@type varChar(10)Declare  Cu_A Cursor for Select TableName=a.Name,ColumnName=b.Name,Type=c.Name,Length=b.length 
     from sysobjects a,syscolumns b,systypes c
         where a.xtype='U' and a.Name<>'dtproperties' 
           and a.id=b.id and b.xtype=c.xtype and c.Name='Char'
Open Cu_A
Fetch Cu_A into @TableName,@ColumnName,@type,@Length
while @@Fetch_Status=0
begin
 Exec('Alter table '+@TableName+' ALTER COLUMN '+@ColumnName+' varChar('+@Length+')')
 Fetch Cu_A into @TableName,@ColumnName,@type,@Length
end
Close Cu_A
Deallocate Cu_A

Answer 4

declare @sql varchar(8000),@tbname varchar(250),@fdname varchar(250),@len varchar(20)declare #tb cursor for select distinct object_name(id) as tablename,name,cast(length as varchar(20)) as length
from syscolumns where xtype=175 and objectproperty(id,'IsUserTable')=1
open #tb--数据修改前开启事务
begin tran
fetch next from #tb into @tbname,@fdname,@len
while @@fetch_status=0
begin
set @sql='alter table ['+@tbname+'] alter column ['+@fdname+'] varchar('+@len+')'
print @sql
exec(@sql)
fetch next from #tb into @tbname,@fdname,@len
end--先执行一次,测试无误后,将下面的回滚事务改为提交事务,以免错误
rollback tranclose #tb
deallocate #tb