在表中指定位置添加字段

--开启系统表写开关 
  exec   sp_configure   'allow updates',1   reconfigure with override   
go
/*--在指定位置添加字段
  
  添加字段到表中的指定位置 
  注意,字段定义必须符合   alter   table   add   ...的规定
  如果超过这个范围,则在表的尾部添加字段 
  一次只能添加一个字段,和   alter   table   的限制完全一样 
  --使用示例 
  exec   p_addfield   'tb','field1 varchar(20)','field2'
  --*/ 
  CREATE   proc   p_addfield 
  @tbname   sysname,--表名 
  @fd_define   nvarchar(1000), --字段定义(必须是合法的字段定义) 
  @Ins_fd  nvarchar(30) --被插入字段將放在Ins_fd字段前面
  as 
  declare   @s   nvarchar(4000),@colid int
 
  if not Exists(select 1 from sysobjects where name=@tbname and xtype='U')--isnull(objectproperty(object_id(@tbname),'IsUserTable'),0)=0 
  begin 
    print  (@tbname+'表不存在，請核實') 
    return 
  end
 IF not Exists(select 1 from syscolumns where id=object_id(@tbname) and name=@Ins_fd)
   begin
     print (@tbname+'不存在'+@Ins_fd+'字段，請核實')
     return
   End
   --开启系统表写开关 
  exec   sp_configure   'allow updates',1   reconfigure with override
  set xact_abort on 
  begin   tran
  --添加字段 
  select @colid=(select colid from syscolumns where id=object_id(@tbname) and name=@Ins_fd)
  set @s='alter table ['+replace(@tbname,']',']]')+']   add   '+@fd_define 
  Exec (@s)
  
  update syscolumns set colid=colid+1 where id=object_id(@tbname) and colid>=@colid
  
  update syscolumns set colid=@colid where id=object_id(@tbname)
         and colid=(select max(colid) from syscolumns where id=object_id(@tbname))
  commit tran
if @@error=0
   print ('字段插入成功')
Else
   print ('字段插入失敗')
   --开启系统表写开关 
  exec   sp_configure   'allow updates',0   reconfigure with override
go

--开启系统表写开关 
  exec   sp_configure   'allow updates',0   reconfigure with override   
go