SET QUOTED_IDENTIFIER ON
SET ANSI_NULLS ON
GO
create proc spDropColumn
@tbname sysname, --要處理的表名
@fdname sysname, --要處理的字段名
@delfield bit=1 --0只刪除關系,1同時刪除字段
as
SET ANSI_WARNINGS OFF
declare @t table (sql nvarchar(2000))
insert into @t
--默認值約束
select sql=‘alter table [‘+b.name+‘] drop constraint [‘+d.name+‘]‘
from syscolumns a
join sysobjects b on a.id=b.id and [email protected] and [email protected]
join syscomments c on a.cdefault=c.id
join sysobjects d on c.id=d.id
union --外鍵引用
select s=‘alter table [‘+c.name+‘] drop constraint [‘+b.name+‘]‘
from sysforeignkeys a
join sysobjects b on b.id=a.constid
join sysobjects c on c.id=a.fkeyid
join syscolumns d on d.id=c.id and a.fkey=d.colid and [email protected]
join sysobjects e on [email protected]
--join syscolumns f on f.id=e.id and a.rkey=f.colid
union --主鍵/唯一鍵/索引
select case when e.xtype in(‘PK‘,‘UQ‘) then ‘alter table [‘+c.name+‘] drop constraint [‘+e.name+‘]‘
else ‘if exists(select * from sysindexes where ID=object_id(‘‘‘+c.name+‘‘‘) and Name=N‘‘‘+a.name+‘‘‘ and root <>0) drop index [‘+c.name+‘].[‘+a.name+‘]‘ end
from sysindexes a
join sysindexkeys b on a.id=b.id and a.indid=b.indid
join sysobjects c on b.id=c.id and c.xtype=‘U‘ and [email protected]
join syscolumns d on b.id=d.id and b.colid=d.colid and [email protected]
left join sysobjects e on e.id=object_id(a.name)
where a.indid not in(0,255)
declare @sql nvarchar(2000)
declare p cursor for select sql from @t
open p
fetch next from p into @sql
while (@@fetch_status = 0)
begin
execute (@sql)
fetch next from p into @sql
end
close p
deallocate p
if @delfield=1
if exists(select * from syscolumns where id in (select id from sysobjects where [email protected]) and [email protected])
exec(‘alter table [‘[email protected]+‘] drop column [‘[email protected]+‘]‘)
SET ANSI_WARNINGS ON
GO

刪除sql數據庫列存儲過程包括關系