恒上集团IT部

持之以恒,天天向上

表增加字段存储过程


--exec usp_Table_AddField 'a', 'RIGHT2','char(1) default ''''' 
 
/* 
Author: LB, Date : 2005-04-12 
Desc  : 用于增加表字段,包括已复制的表和未复制的表  
*/ 
 
CREATE proc dbo.usp_Table_AddField 
@TableName varchar(50), 
@FieldName varchar(50), 
@FieldAttribute varchar(200) 
as 
set nocount on 
declare @errMsg nvarchar(400) 
set @errMsg = N'表
'+@TableName +N'字段'+@FieldName+N'增加成功!' 
 
if not exists(select name from sysobjects where xtype = 'U' and name = @TableName) 
begin 
    set @errMsg = N'表
'+@TableName+ N'不存在, 请检查!' 
    print @errMsg 
    return 
end 
 
if exists(select l.name from sysobjects l inner join syscolumns r on l.id = r.id and l.name = @TableName and l.xtype ='U' and r.name = @FieldName) 
begin 
    set @errMsg = N'表
'+@TableName+N'中字段'+@FieldName+ N'已存在, 不能增加!' 
    print @errMsg 
    return 
end 
 
if CHARINDEX('CHAR', @FieldAttribute, 1) > 0 
   set @FieldAttribute = substring(@FieldAttribute,1,  CHARINDEX(')',@FieldAttribute, 1)) +'  COLLATE SQL_Latin1_General_CP1_CI_AS ' + 
     substring(@FieldAttribute, CHARINDEX(')',@FieldAttribute,1)+1, len(@FieldAttribute)-CHARINDEX(')',@FieldAttribute,1)) 
 
if exists(select * from sysobjects where xtype='U' and replinfo != 0 and name = @TableName) 
    exec sp_repladdcolumn @TableName, @FieldName, @FieldAttribute 
else 
    exec('alter table
'+@TableName + ' add '+ @FieldName +' '+@FieldAttribute
 
if @@error != 0 
    set @errMsg = N'表
'+@TableName +N'字段'+@FieldName+N'增加失败,请检查!' 
 
print @errMsg 
 
 


GO
 

阅读更多
个人分类: SQL Server
上一篇SQL Server发送邮件
下一篇表修改字段存储过程
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭