比较两个数据库的存储过程定义是否一致V1.0

本脚本适用于Microsoft SQL Server 2005和Microsoft SQL Server 2008环境。

Use master
Go
if object_ID('[sp_compareobjectdefinition]') is not null
Drop Procedure [sp_compareobjectdefinition]
Go
/*
比较两个数据库的存储过程定义是否一致V1.0 OK_008 2009-5-26
*/
Create Procedure sp_CompareObjectDefinition
(
@DB1 nvarchar(512),
@DB2 nvarchar(512),
@Type char(2)='P',
@ObjectName nvarchar(512)=null
)
As
/*
参数说明

@DB1 数据库名
@DB2 数据库名
@Type 对象类型,参照sys.objects中的type列描述
@ObjectName 对象名称

*/
Set Nocount On

If @DB1=@DB2
Begin
Raiserror 50001 N'@DB1,@DB2设置不能相同。'
Return(1)
End

If db_id(@DB1) Is Null
Begin
Raiserror 50001 N'无效的数据库名,@DB1设置错误。'
Return(1)
End

If db_id(@DB2) Is Null
Begin
Raiserror 50001 N'无效的数据库名,@DB2设置错误。'
Return(1)
End

Set @Type=Isnull(@Type,' P')

Declare @sql nvarchar(4000),
@sql1 nvarchar(1000),
@where nvarchar(1000)

If object_id('tempdb..#ObjectDefinition') Is Not Null
Drop Table #ObjectDefinition

Create Table #ObjectDefinition
(
dbname sysname,
name sysname,
type char(2),
definition nvarchar(max)
)

Set @where=''
If @Type >''
Set @where=' And a.Type='''+@Type+''''

If @ObjectName >''
Set @where=@where+' And a.name='''+@ObjectName+''''

Set @sql=N'
a.name,a.type,b.definition
From sys.objects As a
Inner Join sys.sql_modules As b On b.object_id=a.object_id
Where a.is_ms_shipped=0 '+@where+' And
Not Exists(Select 1 From sys.extended_properties Where major_id=a.object_id And minor_id=0 And class=1 And name = N''microsoft_database_tools_support'')'
Set @sql1='Use '+Quotename(@DB1)+'; Select dbname='''+@DB1+''','

Insert Into #ObjectDefinition Exec(@sql1+@sql)

Set @sql1='Use '+Quotename(@DB2)+'; Select dbname='''+@DB2+''','
Insert Into #ObjectDefinition Exec(@sql1+@sql)

Exec(N'
;With t As
(
Select name,Type From (Select name,Type,Definition From #ObjectDefinition Where dbname='''+@DB1+''' Except Select name,Type,Definition From #ObjectDefinition Where dbname='''+@DB2+''') As a
Union All
Select name,Type From (Select name,Type,Definition From #ObjectDefinition Where dbname='''+@DB2+''' Except Select name,Type,Definition From #ObjectDefinition Where dbname='''+@DB1+''') As b
)
Select Distinct a.Name As ObjectName,a.Type,
Case When b.Name Is Not Null Then 1 Else 0 End As ['+@DB1+'],
Case When c.Name Is Not Null Then 1 Else 0 End As ['+@DB2+']
From t As a
Left Outer Join #ObjectDefinition As b On b.name=a.name And b.DBName='''+@DB1+'''
Left Outer Join #ObjectDefinition As c On c.name=a.name And c.DBName='''+@DB2+'''

Order By a.Type,a.Name
')

Drop Table #ObjectDefinition

Go