create proc addcolumn

@tablename varchar(30), --表名

@colname varchar(30), --要加的列名

@coltype varchar(100), --要加的列类型

@colid int --加到第几列

as

declare @colid_max int

declare @sql varchar(1000) --动态sql语句

--------------------------------------------------

if not exists(select 1 from sysobjects

where name = @tablename and xtype = 'u')

begin

raiserror 20001 '没有这个表'

return -1

end

--------------------------------------------------

if exists(select 1 from syscolumns

where id = object_id(@tablename) and name = @colname)

begin

raiserror 20002 '这个表已经有这个列了！'

return -1

end

--------------------------------------------------

--保证该表的colid是连续的

select @colid_max = max(colid) from syscolumns where id=object_id(@tablename)

if @colid > @colid_max or @colid < 1

set @colid = @colid + 1

--------------------------------------------------

set @sql = 'alter table '+@tablename+' add '+@colname+' '+@coltype

exec(@sql)

select @colid_max = colid

from syscolumns where id = object_id(@tablename) and name = @colname

if @@rowcount <> 1

begin

raiserror 20003 '加一个新列不成功，请检查你的列类型是否正确'

return -1

end

--------------------------------------------------

--打开修改系统表的开关

EXEC sp_configure 'allow updates',1 RECONFIGURE WITH OVERRIDE

--将新列列号暂置为-1

set @sql = 'update syscolumns

set colid = -1

where id = object_id('''+@tablename+''')

and colid = '+cast(@colid_max as varchar(10))

exec(@sql)

--将其他列的列号加1

set @sql = 'update syscolumns

set colid = colid + 1

where id = object_id('''+@tablename+''')

and colid >= '+cast(@colid as varchar(10))

exec(@sql)

--将新列列号复位

set @sql = 'update syscolumns

set colid = '+cast(@colid as varchar(10))+'

where id = object_id('''+@tablename+''')

and name = '''+@colname +''''

exec(@sql)

--------------------------------------------------

--关闭修改系统表的开关

EXEC sp_configure 'allow updates',0 RECONFIGURE WITH OVERRIDE

go

调用方法：

exec addcolumn '表名','新列名','新列类型',加到第几个位置

如：

exec addcolumn 'test','id2','char(10)',2

表示将id2这个列加到表test的第二个位置，类型是char(10)。