Sql Server 数据库表结构，存储过程，视图比较脚本

顶级干货

用来比较两个数据库之间 表结构，存储过程及视图差异的存储过程，直接复制对应的存储过程，无需改动，直接在数据库中执行（传递要比较的数据库参数）即可

1.两个数据库之间存储过程及视图差异比较的存储过程

--测试脚本
--exec [p_compSPAndView] 'FAMS_PrePROD','FAMS_SIT'  

SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE?proc
 [dbo].[p_compSPAndView] 

@db1
 sysname, --第一个库

@db2
 sysname --第二个库

as

exec('

select
 类型=case isnull(a.xtype,b.xtype) when ''V''
 then N''视图''
 else N''存储过程''
 end 

,匹配情况=case

when
 a.name is null then N''库
 ['+@db1+']
 中无''

when
 b.name is null then N''库
 ['+@db2+']
 中无''

else
 N''结构不同''
 end 

,对象名称=isnull(a.name,b.name),a.text
 as atext, b.text as btext

from(

select
 a.name,a.xtype,b.colid,b.text 

from
 ['+@db1+']..sysobjects
 a,['+@db1+']..syscomments
 b 

where
 a.id=b.id and a.xtype in(''V'',''P'')
 and a.status>=0 

)a
 full join( 

select
 a.name,a.xtype,b.colid,b.text 

from
 ['+@db2+']..sysobjects
 a,['+@db2+']..syscomments
 b 

where
 a.id=b.id and a.xtype in(''V'',''P'')
 and a.status>=0 

)b
 on a.name=b.name and a.xtype=b.xtype and a.colid=b.colid 

where
 a.name is null 

or
 b.name is null 

or
 isnull(a.text,'''')
 <>isnull(b.text,'''')
')

--group by a.name,b.name,a.xtype,b.xtype 

--order by 类型,匹配情况,对象名称
GO

效果如下：

2.两个数据库之间表结构差异比较的存储过程

--测试脚本
--exec p_comparestructure 'Inventory_SR08','Inventory_SR08_bk'

-- =============================================
-- Author:
-- Description:    <比较两个数据库的表结构差异并自动生成修改和插入表字段脚本>
--exec p_comparestructure 'Inventory_SR08','Inventory_SR08_bk'
-- =============================================
Create proc [dbo].[p_comparestructure]
@dbname1 varchar(250),--要比较的数据库名1
@dbname2 varchar(250)--要比较的数据库名2
as
set @dbname1='['+@dbname1+']'
set @dbname2='['+@dbname2+']'

create table #tb1(表名1 varchar(250),字段名 varchar(250),序号 int,标识 bit,主键 bit,类型 varchar(250),
占用字节数 int,长度 int,小数位数 int,允许空 bit,默认值 sql_variant,字段说明 sql_variant)

create table #tb2(表名2 varchar(250),字段名 varchar(250),序号 int,标识 bit,主键 bit,类型 varchar(250),
占用字节数 int,长度 int,小数位数 int,允许空 bit,默认值 sql_variant,字段说明 sql_variant)

--得到数据库1的结构
exec('insert into #tb1 SELECT
表名=d.name,字段名=a.name,序号=a.colid,
标识=case when a.status=0x80 then 1 else 0 end,
主键=case when exists(SELECT 1 FROM '+@dbname1+'.dbo.sysobjects where xtype=''PK'' and parent_obj=a.id and name in (
SELECT name FROM '+@dbname1+'.dbo.sysindexes WHERE indid in(
SELECT indid FROM '+@dbname1+'.dbo.sysindexkeys WHERE id = a.id AND colid=a.colid
))) then 1 else 0 end,
类型=b.name,占用字节数=a.length,长度=a.prec,小数位数=a.scale,允许空=a.isnullable,
默认值=isnull(e.text,''''),字段说明=isnull(g.[value],'''')
FROM '+@dbname1+'.dbo.syscolumns a
left join '+@dbname1+'.dbo.systypes b on a.xtype=b.xusertype
inner join '+@dbname1+'.dbo.sysobjects d on a.id=d.id  and d.xtype=''U'' and  d.name<>''dtproperties''
left join '+@dbname1+'.dbo.syscomments e on a.cdefault=e.id
left join '+@dbname1+'.sys.extended_properties g on a.id=g.major_id and a.colid=g.minor_id
order by a.id,a.colorder')
--select * from csdntest.sys.extended_properties
--得到数据库2的结构
exec('insert into #tb2 SELECT
表名=d.name,字段名=a.name,序号=a.colid,
标识=case when a.status=0x80 then 1 else 0 end,
主键=case when exists(SELECT 1 FROM '+@dbname2+'.dbo.sysobjects where xtype=''PK'' and parent_obj=a.id and name in (
SELECT name FROM '+@dbname2+'.dbo.sysindexes WHERE indid in(
SELECT indid FROM '+@dbname2+'.dbo.sysindexkeys WHERE id = a.id AND colid=a.colid
))) then 1 else 0 end,
类型=b.name,占用字节数=a.length,长度=a.prec,小数位数=a.scale,允许空=a.isnullable,
默认值=isnull(e.text,''''),字段说明=isnull(g.[value],'''')
FROM '+@dbname2+'.dbo.syscolumns a
left join '+@dbname2+'.dbo.systypes b on a.xtype=b.xusertype
inner join '+@dbname2+'.dbo.sysobjects d on a.id=d.id  and d.xtype=''U'' and  d.name<>''dtproperties''
left join '+@dbname2+'.dbo.syscomments e on a.cdefault=e.id
left join '+@dbname2+'.sys.extended_properties g on a.id=g.major_id and a.colid=g.minor_id
order by a.id,a.colorder')
--and not exists(select 1 from #tb2 where 表名2=a.表名1)
select 比较结果=case when a.表名1 is null and b.序号=1 then @dbname1+'——缺少表：'+b.表名2
when b.表名2 is null and a.序号=1 then @dbname2+'——缺少表:'+a.表名1
when a.字段名 is null and exists(select 1 from #tb1 where 表名1=b.表名2) then
'/*'+@dbname1+'——['+b.表名2+'] 缺少字段：'+b.字段名+'*/alter table '+b.表名2+' drop column '+b.字段名
when b.字段名 is null and exists(select 1 from #tb2 where 表名2=a.表名1) and a.类型='decimal' then
'/*'+@dbname2+'——['+a.表名1+'] 缺少字段：'+a.字段名+'*/ alter table '+a.表名1+' add '+a.字段名+' '
+a.类型+'('+ltrim(str(a.长度))+','+ltrim(str(isnull(a.小数位数,'')))+')'+(case when a.允许空=0 then ' not null' else ' null' end)
when b.字段名 is null and exists(select 1 from #tb2 where 表名2=a.表名1) and a.类型='nvarchar' then
'/*'+@dbname2+'——['+a.表名1+'] 缺少字段：'+a.字段名+'*/ alter table '+a.表名1+' add '+a.字段名+' '
+a.类型+'('+ltrim(str(a.长度))+')'+(case when a.允许空=0 then ' not null' else ' null' end)
when b.字段名 is null and exists(select 1 from #tb2 where 表名2=a.表名1) and a.类型 not in('nvarchar','decimal') then
'/*'+@dbname2+'——['+a.表名1+'] 缺少字段：'+a.字段名+'*/ alter table '+a.表名1+' add '+a.字段名+' '
+a.类型+(case when a.允许空=0 then ' not null' else ' null' end)
when a.标识<>b.标识 then '--标识不同'
when a.主键<>b.主键 then '--主键设置不同'
when a.类型<>b.类型 and a.类型='decimal' then
'/*字段类型不同*/ alter table '+a.表名1+' alter column '+a.字段名+' '+a.类型+'('+ltrim(str(a.长度))+','+ltrim(str(isnull(a.小数位数,'')))+')'+(case when a.允许空=0 then ' not null' else ' null' end)
when a.类型<>b.类型 and a.类型='nvarchar'  then
'/*字段类型不同*/ alter table '+a.表名1+' alter column '+a.字段名+' '+a.类型+'('+ltrim(str(a.长度))+')'+(case when a.允许空=0 then ' not null' else ' null' end)
when a.类型<>b.类型 and a.类型 not in('nvarchar','decimal')  then
'/*字段类型不同*/ alter table '+a.表名1+' alter column '+a.字段名+' '+a.类型+(case when a.允许空=0 then ' not null' else ' null' end)
when a.占用字节数<>b.占用字节数 then
'/*占用字节数*/ alter table '+a.表名1+' alter column '+a.字段名+' '+a.类型+'('+ltrim(str(a.长度))+')'+(case when a.允许空=0 then ' not null' else ' null' end)
when a.长度<>b.长度 then
'/*长度不同*/ alter table '+a.表名1+' alter column '+a.字段名+' '+a.类型+'('+ltrim(str(a.长度))+')'+(case when a.允许空=0 then ' not null' else ' null' end)
when a.小数位数<>b.小数位数 then
'--小数位数不同*/ alter table '+a.表名1+' alter column '+a.字段名+' '+a.类型+'('+ltrim(str(a.长度))+','+ltrim(str(isnull(a.小数位数,'')))+')'+(case when a.允许空=0 then ' not null' else ' null' end)
when a.允许空<>b.允许空 then '--是否允许空不同'
when a.默认值<>b.默认值 then
'/*默认值不同*/ alter table '+a.表名1+' add default(0) for '+a.字段名+' with values'
--when isnull(a.字段说明,'')<>'' and isnull(b.字段说明,'')='' then
--'EXEC sys.sp_addextendedproperty @name=N'''+'MS_Description'+''', @value=N'''+a.字段说明--+''' , @level0type=N'''+'SCHEMA'+''',@level0name=N'''+'dbo'+''', @level1type=N'''+'TABLE'+''',@level1name=N'''+b.表名2+''', @level2type=N'''+'COLUMN'+''',@level2name=N'''+b.字段名+'''--字段说明不同'
else '' end,
*
from #tb1 a
full join #tb2 b on a.表名1=b.表名2 and a.字段名=b.字段名
where a.表名1 is null or a.字段名 is null or b.表名2 is null or b.字段名 is null
or a.标识<>b.标识 or a.主键<>b.主键 or a.类型<>b.类型
or a.占用字节数<>b.占用字节数 or a.长度<>b.长度 or a.小数位数<>b.小数位数
or a.允许空<>b.允许空 or a.默认值<>b.默认值-- or a.字段说明<>b.字段说明
order by isnull(a.表名1,b.表名2),isnull(a.序号,b.序号),isnull(a.字段名,b.字段名)

效果如下：取第一个为例，表名1（FAMS_PRD_TRUNNK数据库下） 的 AMT_AssetRetirement 表有 HandleOption 字段，而FAMS数据库下的 AMT_AssetRetirement 表不存在 HandleOption 字段