以下是第一篇: /*--比较两个数据库的表结构差异 --*/ /*--调用示例 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 以下是第二篇: SET QUOTED_IDENTIFIER ON GO SET ANSI_NULLS ON GO create PROCEDURE r_pro_xx @oldserver varchar(50), @olddb varchar(50), @olduser varchar(15), @oldpw varchar(20), @newserver varchar(50), @newdb varchar(50), @newuser varchar(15), @newpw varchar(20), @comtype char(2) as /* 比较两数据库的结构; 参数如下: exec r_pro_xx @oldserver='ma',--老的数据库的连接信息 @olddb ='olddb', @olduser='sa', @oldpw='a', @newserver ='ma',--新的 @newdb='newdb', @newuser='sa', @newpw ='a', @comtype ='p'--‘p’是比较的存储过程,‘u’是比较的表 注意:现在仅对表和存储过程进行比较,而且存储过程的比较还有缺陷, 缺陷如下: 如果两表中的同一存储过程,仅仅是空格或开始位置不一样,它也认为是不一样的..如何处理? 嘿嘿. 如果哪位有兴趣,帮改改哈.改完后联系我. 玉儿 QQ:49550145 */ declare @sql varchar(8000) declare @old varchar(8000),@new varchar(8000) declare @i int, @j int ,@k int ,@leno int ,@lenn int set @sql='' create table #t_pro(name sysname null,bz varchar(50) null,old varchar(20),new varchar(20),lx varchar(10) null) if @comtype ='p' or @comtype='tr' or @comtype='pk' begin create table #t_oldpro(name varchar(50) null,colid smallint not null ,text nvarchar(4000) null ) create table #t_newpro(name varchar(50) null,colid smallint not null ,text nvarchar(4000) null ) --存储过程 set @sql='insert into #t_oldpro select * from OPENROWSET(''SQLOLEDB'','''+@oldserver+''';'''+@olduser+''';'''+@oldpw+''', '' select name, b.colid,b.text from '+@olddb+'.dbo.sysobjects as a ,'+@olddb+'.dbo.syscomments as b where A.category<>''''2'''' and a.xtype=''''p'''' and A.id=b.id '') ' exec(@sql) set @sql='insert into #t_newpro select * from OPENROWSET(''SQLOLEDB'','''+@newserver+''';'''+@newuser+''';'''+@newpw+''', '' select name, b.colid,b.text from '+@newdb+'.dbo.sysobjects as a ,'+@newdb+'.dbo.syscomments as b where A.category<>''''2'''' and a.xtype=''''p'''' and A.id=b.id '') ' exec(@sql) set @sql='insert into #t_pro(name,bz,lx) select distinct name,''增加'',''存储过程'' from #t_newpro where name not in (select distinct name from #t_oldpro) ' exec(@sql) delete from #t_newpro where name in ( select name from #t_pro where bz='增加') set @sql='insert into #t_pro(name,bz,lx) select distinct name,''减少'',''存储过程'' from #t_oldpro where name not in (select distinct name from #t_newpro ) ' exec(@sql) delete from #t_oldpro where name in ( select name from #t_pro where bz='减少') --去掉增加减少的。只保留两个都有的。 -- for i=1 to -- oobj.colid=nobj.colid and oobj.text<>nobj.text set @sql='insert into #t_pro(name,bz,lx) select distinct nobj.name,''改动'',''存储过程'' from #t_oldpro oobj,#t_newpro nobj where oobj.name=nobj.name and oobj.colid=nobj.colid and oobj.text<>nobj.text' exec (@sql) --触发器 p存储过程,,tr触发器,pk主键约束,f,u表,d索引 v ,s 系统表, drop table #t_oldpro drop table #t_newpro end if @comtype ='u' begin create table #t_oldtab(tab sysname not null,name varchar(50) null,colid smallint not null ,domain int not null,type tinyint null,length smallint not null, prec smallint null,scale int null,isnullable int null) create table #t_newtab(tab sysname not null,name varchar(50) null,colid smallint not null ,domain int not null,type tinyint null,length smallint not null, prec smallint null,scale int null,isnullable int null) set @sql='insert into #t_oldtab select * from OPENROWSET(''SQLOLEDB'','''+@oldserver+''';'''+@olduser+''';'''+@oldpw+''', '' select a.name, b.name,b.colid,b.domain,b.type,b.length,b.prec,b.scale,b.isnullable from '+@olddb+'.dbo.sysobjects as a ,'+@olddb+'.dbo.syscolumns as b where a.xtype=''''u'''' and A.id=b.id '') ' exec(@sql) set @sql='insert into #t_newtab select * from OPENROWSET(''SQLOLEDB'','''+@newserver+''';'''+@newuser+''';'''+@newpw+''', '' select a.name ,b.name,b.colid,b.domain,b.type,b.length,b.prec,b.scale,b.isnullable from '+@newdb+'.dbo.sysobjects as a ,'+@newdb+'.dbo.syscolumns as b where a.xtype=''''u'''' and A.id=b.id '') ' exec(@sql) insert into #t_pro(name,bz,lx) select distinct tab,'减少表'+tab,'表' from #t_oldtab where tab not in (select distinct tab from #t_newtab) insert into #t_pro(name,bz,lx) select distinct tab,'增加表'+tab,'表' from #t_newtab where tab not in (select distinct tab from #t_oldtab ) delete from #t_oldtab where tab in (select name from #t_pro where bz like '减少表%' ) delete from #t_newtab where tab in (select name from #t_pro where bz like '增加表%' ) insert into #t_pro(name,bz,lx) select new.name,new.tab+'增加列','表' from #t_newtab NEW where NEW.tab+NEW.name not in (select tab+name from #t_oldtab ) insert into #t_pro(name,bz,lx) select old.name,old.tab+'减少列','表' from #t_oldtab old where old.tab+old.name not in (select tab+name from #t_newtab ) insert into #t_pro(name,bz,old,new,lx) select distinct nobj.name,'是否主键'+oobj.tab,cast(oobj.domain as char(10)),cast(nobj.domain as char(10)),'表' from #t_oldtab oobj,#t_newtab nobj where oobj.tab=nobj.tab and oobj.name=nobj.name and oobj.domain<>nobj.domain union select distinct nobj.name,'数据类型'+oobj.tab,cast(oobj.type as char(10)),cast(nobj.type as char(10)),'表' from #t_oldtab oobj,#t_newtab nobj where oobj.tab=nobj.tab and oobj.name=nobj.name and oobj.type<>nobj.type union select distinct nobj.name,'长度'+oobj.tab,cast(oobj.length as char(10)),cast(nobj.length as char(10)),'表' from #t_oldtab oobj,#t_newtab nobj where oobj.tab=nobj.tab and oobj.name=nobj.name and oobj.length<>nobj.length union select distinct nobj.name,'精度'+oobj.tab,cast(oobj.prec as char(10)),cast(nobj.prec as char(10)),'表' from #t_oldtab oobj,#t_newtab nobj where oobj.tab=nobj.tab and oobj.name=nobj.name and oobj.prec<>nobj.prec union select distinct nobj.name,'小数点位数'+oobj.tab,cast(oobj.scale as char(10)),cast(nobj.scale as char(10)),'表' from #t_oldtab oobj,#t_newtab nobj where oobj.tab=nobj.tab and oobj.name=nobj.name and oobj.scale<>nobj.scale union select distinct nobj.name,'是否为空'+oobj.tab,cast(oobj.isnullable as char(10)),cast(nobj.isnullable as char(10)),'表' from #t_oldtab oobj,#t_newtab nobj where oobj.tab=nobj.tab and oobj.name=nobj.name and oobj.isnullable<>nobj.isnullable drop table #t_oldtab drop table #t_newtab end select * from #t_pro drop table #t_pro GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO