1. 程式人生 > 其它 >尋找兩個庫的同名且有差異的儲存過程

尋找兩個庫的同名且有差異的儲存過程

 CREATE FUNCTION DBO.GET_xxx(@S VARCHAR(MAX))

RETURNS VARCHAR(MAX)
AS

BEGIN
DECLARE @SQL VARCHAR(MAX)
SET @SQL=''

DECLARE @len int

set @len=LEN(@S)

set @S=REPLACE(@S, char(9), '')
set @S=REPLACE(@S, char(32), '')
set @S=REPLACE(@S, char(10), '')
set @S=REPLACE(@S, char(13), '')

SELECT @SQL=@SQL+ SUBSTRING(@S,NUMBER,1)
FROM MASTER..SPT_VALUES
WHERE TYPE='P' AND NUMBER<@len+1
AND( SUBSTRING(@S,NUMBER,1) LIKE '[A-Z]'-- OR SUBSTRING(@S,NUMBER,1) LIKE '[0-9]'

)

ORDER BY NUMBER

RETURN @SQL

END

go

 

-- 替換 db1name  db2name

select distinct isnull(a.name,b.name) as 物件名稱 ,upper(DBO.GET_xxx(a.text)),upper(DBO.GET_xxx(b.text))
from(
select a.name,a.xtype,b.colid,b.text
from [db1name]..sysobjects a,[db1name]..syscomments b
where a.id=b.id and a.xtype in('V','P') and a.status>=0
)a join(
select a.name,a.xtype,b.colid,b.text
from [db2name]..sysobjects a,[db2name]..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 LIKE '%td_planin_inter_qry_h%' and HASHBYTES('MD5',upper(DBO.GET_xxx(a.text))) <>HASHBYTES('MD5',upper(DBO.GET_xxx(b.text)))