转:邹建--比较两个数据库的表结构差异

转:http://blog.csdn.net/zjcxc/archive/2004/01/04/20088.aspx

转:http://topic.csdn.net/t/20031113/17/2457717.html

 

/**/ /*--比较两个数据库的表结构差异
 
--邹建 2003.9(引用请保留此信息)--*/
/**/ /*--调用示例
 
 exec p_comparestructure 'xzkh_model','xzkh_new'
--*/

if   exists  ( select   *   from  dbo.sysobjects  where  id  =   object_id (N ' [dbo].[p_comparestructure] ' )  and   OBJECTPROPERTY (id, N ' IsProcedure ' )  =   1 )
drop   procedure   [ dbo ] . [ p_comparestructure ]
GO

create   proc  p_comparestructure
@dbname1   varchar ( 250 ),  -- 要比较的数据库名1
@dbname2   varchar ( 250 )  -- 要比较的数据库名2
as
create   table  #tb1(表名1  varchar ( 250 ),字段名  varchar ( 250 ),序号  int ,标识  bit ,主键  bit ,类型  varchar ( 250 ),
 占用字节数  int ,长度  int ,小数位数  int ,允许空  bit ,默认值  varchar ( 500 ),字段说明  varchar ( 500 ))

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

-- 得到数据库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 + ' ..sysobjects where xtype= '' PK ''  and name in (
  SELECT name FROM  ' + @dbname1 + ' ..sysindexes WHERE indid in(
   SELECT indid FROM  ' + @dbname1 + ' ..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 + ' ..syscolumns a
 left join  ' + @dbname1 + ' ..systypes b on a.xtype=b.xusertype
 inner join  ' + @dbname1 + ' ..sysobjects d on a.id=d.id  and d.xtype= '' U ''  and  d.name<> '' dtproperties ''
 left join  ' + @dbname1 + ' ..syscomments e on a.cdefault=e.id
 left join  ' + @dbname1 + ' ..sysproperties g on a.id=g.id and a.colid=g.smallid  
order by a.id,a.colorder ' )

-- 得到数据库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 + ' ..sysobjects where xtype= '' PK ''  and name in (
  SELECT name FROM  ' + @dbname2 + ' ..sysindexes WHERE indid in(
   SELECT indid FROM  ' + @dbname2 + ' ..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 + ' ..syscolumns a
 left join  ' + @dbname2 + ' ..systypes b on a.xtype=b.xusertype
 inner join  ' + @dbname2 + ' ..sysobjects d on a.id=d.id  and d.xtype= '' U ''  and  d.name<> '' dtproperties ''
 left join  ' + @dbname2 + ' ..syscomments e on a.cdefault=e.id
 left join  ' + @dbname2 + ' ..sysproperties g on a.id=g.id and a.colid=g.smallid  
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   ' 库1缺少表： ' + b.表名2
   when  b.表名2  is   null   and  a.序号 = 1   then   ' 库2缺少表: ' + a.表名1
   when  a.字段名  is   null   and   exists ( select   1   from  #tb1  where  表名1 = b.表名2)  then   ' 库1 [ ' + b.表名2 + ' ] 缺少字段： ' + b.字段名
   when  b.字段名  is   null   and   exists ( select   1   from  #tb2  where  表名2 = a.表名1)  then   ' 库2 [ ' + a.表名1 + ' ] 缺少字段： ' + a.字段名
   when  a.标识 <> b.标识  then   ' 标识不同 '
   when  a.主键 <> b.主键  then   ' 主键设置不同 '
   when  a.类型 <> b.类型  then   ' 字段类型不同 '
   when  a.占用字节数 <> b.占用字节数  then   ' 占用字节数 '
   when  a.长度 <> b.长度  then   ' 长度不同 '
   when  a.小数位数 <> b.小数位数  then   ' 小数位数不同 '
   when  a.允许空 <> b.允许空  then   ' 是否允许空不同 '
   when  a.默认值 <> b.默认值  then   ' 默认值不同 '
   when  a.字段说明 <> b.字段说明  then   ' 字段说明不同 '
  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.字段名)
go