sql2005 怎么比较新旧两个数据库表结构差异

SQL复制表结构的通用存储过程  -- Transfer对象的重要属性-- 1. 属性 属性名                            类型                描述--------------------------------- ------------------- --------------------CopyAllDefaults                Boolean    所有默认值CopyAllObjects                 Boolean    所有对象CopyAllRules                   Boolean    所有规则CopyAllStoredProcedures        Boolean    所有存储过程CopyAllTables                  Boolean    所有表CopyAllTriggers                Boolean    所有触发器CopyAllUserDefinedDatatypes    Boolean    所有用户自定义类型CopyAllViews                   Boolean    所有视图CopyData                       Boolean    所有数据DestDatabase                   String     目标对象数据库DestLogin                      String     目标数据库登陆用户名DestPassword                   String     目标数据库登陆密码DestServer                     String     目标服务器DestUseTrustedConnection       Boolean    用户信任连接DropDestObjectsFirst           Boolean    是否先删除目标对象IncludeDependencies            Boolean    是否包含依靠对象ScriptType                     Boolean    脚本类型 -- 2. 重要方法:  方法名称                    功能描述--------------------------- --------------------------AddObject                   增加对象AddObjectByName             通过对象名称增加对象 if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_CopyDB]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)drop procedure [dbo].[P_CopyDB]GO/*-- 在 SQLServer 中使用SQLDMO.Transfer 实现数据迁移    存储过程实现源数据库到目标数据库的对象和数据的复制    要求源数据库和目标数据库在同一服务器    如果是要实现不同服务器之间的复制，则需要增加验证信息--邹建 2005.07(引用请保留此信息)--*//*--调用示例    CREATE DATABASE test    EXEC P_CopyDB @Source_DB='northwind',@Des_DB='test'    DROP DATABASE test--*/CREATE PROCEDURE P_CopyDB     @Des_DB      sysname,           --目标数据库@Obj_Type    nvarchar(4000)=N'',--复制的对象类型，可以是下列字符串列表：                                -- O 所有对象，D 默认值，R 规则，P 存储过程                                -- T 表，TR 触发器，DT 用户定义数据类型                                -- V 视图，DATA 数据，DEL 删除目标对象@Source_DB   sysname=N'',       --源数据库@ServerName  sysname=N'',       --服务器名@UserName    sysname=N'',       --用户名，不指定则表示使用 Windows 身份登录@pwd         sysname=N''        --密码 ASSET NOCOUNT ONDECLARE @srvid int,@Dbid int,@S_dbid int,@D_dbid int,@TransferID int,    @err int,@src varchar(255), @desc varchar(255)IF ISNULL(@ServerName,N'')=N'' SET @ServerName=@@SERVERNAMEIF ISNULL(@Source_DB,N'')=N'' SET @Source_DB=DB_NAME() --创建sqldmo对象·EXEC @err=sp_oacreate 'sqldmo.sqlserver',@srvid OUTIF @err<>0 GOTO lb_Err--连接服务器IF ISNULL(@UserName,N'')=N'' --使用 Windows 身份登录BEGIN    EXEC @err=sp_oasetproperty @srvid,'loginsecure',-1    IF @err<>0 GOTO lb_Err    EXEC @err=sp_oamethod @srvid,'connect',NULL,@servernameENDELSE    EXEC @err=sp_oamethod @srvid,'connect',NULL,@servername,@UserName,@pwdIF @err<>0 GOTO lb_Err--获取数据库集EXEC @err=sp_oagetproperty @srvid,'databases',@Dbid OUTIF @err<>0 GOTO lb_Err--选择源数据库    EXEC @err=sp_oamethod @Dbid,'item',@S_dbid OUT,@Source_DBIF @err<>0 GOTO lb_Err--选择目标数据库    EXEC @err=sp_oamethod @Dbid,'item',@D_dbid OUT,@Des_DBIF @err<>0 GOTO lb_Err--设置复制的对象EXEC @err=sp_oacreate 'SQLDMO.Transfer',@TransferID OUTIF @err<>0 GOTO lb_Err--设置目标服务器信息EXEC @err=sp_oasetproperty  @TransferID,'DestServer',@ServerNameIF @err<>0 GOTO lb_Err  --设置连接用户IF ISNULL(@UserName,N'')=N'' --使用 Windows 身份登录BEGIN    EXEC @err=sp_oasetproperty @TransferID,'DestUseTrustedConnection',1    IF @err<>0 GOTO lb_ErrENDELSEBEGIN    EXEC @err=sp_oasetproperty @TransferID,'DestLogin',@UserName    IF @err<>0 GOTO lb_Err    EXEC @err=sp_oasetproperty @TransferID,'DestPassword',@pwd    IF @err<>0 GOTO lb_ErrEND  --设置复制对象信息EXEC @err=sp_oasetproperty @TransferID,'DestDatabase',@Des_DBIF @err<>0 GOTO lb_Err DECLARE tb CURSOR FAST_FORWARD LOCALFORSELECT Name FROM(    SELECT KeyWord=N',D,',   Name=N'CopyAllDefaults' UNION ALL    SELECT KeyWord=N',O,',   Name=N'CopyAllObjects' UNION ALL    SELECT KeyWord=N',R,',   Name=N'CopyAllRules' UNION ALL    SELECT KeyWord=N',P,',   Name=N'CopyAllStoredProcedures' UNION ALL    SELECT KeyWord=N',T,',   Name=N'CopyAllTables' UNION ALL    SELECT KeyWord=N',TR,',  Name=N'CopyAllTriggers' UNION ALL    SELECT KeyWord=N',DT,',  Name=N'CopyAllUserDefinedDatatypes' UNION ALL    SELECT KeyWord=N',V,',   Name=N'CopyAllViews' UNION ALL    SELECT KeyWord=N',DATA,',Name=N'CopyData' UNION ALL    SELECT KeyWord=N',DEL,', Name=N'DropDestObjectsFirst')A WHERE CHARINDEX(KeyWord,        CASE WHEN ISNULL(@Obj_Type,N'')='' THEN ',O,DATA,' ELSE @Obj_Type END)>0OPEN tbFETCH tb INTO @srcWHILE @@FETCH_STATUS=0BEGIN    EXEC @err=sp_oasetproperty @TransferID,@src,1    IF @err<>0 GOTO lb_Err    FETCH tb INTO @srcENDCLOSE tbDEALLOCATE tb--复制对象EXEC @err=sp_oamethod @S_dbid,'Transfer',null,@TransferIDIF @err<>0 GOTO lb_Err--结束SET @err=0GOTO lb_Exit--错误处理lb_Err:    EXEC sp_oageterrorinfo NULL, @src OUT, @desc OUT     RAISERROR(N'错误编号 %#x, 错误源 "%s", 错误描述 "%s"',16,1,@err,@src,@desc)    RETURN -1lb_Exit:    EXEC sp_OADestroy @Dbid      EXEC sp_OADestroy @srvid     EXEC sp_OADestroy @TransferID     RETURN @errGO