if Exists(select * from sysobjects where name=N''sp_ExportDatabase'' And Xtype=''P'')            Drop PROCEDURE [sp_ExportDatabase]            Go            Create PROCEDURE [sp_ExportDatabase] (            @SourceDB varchar(100)            ) ----创建存储过程 sp_ExportDatabase            AS            Begin            Set NoCount On            Declare @Utb sysname     ------用户表名            Declare @ColName sysname   ------列名            Declare @tid int       ------用户表的ID            Declare @sql nvarchar(3000)------存放拼出的sql            Declare @len int            --定义游标取回用户建立的表            sELECT @SourceDB=@SourceDB+''.''            Declare Ctb Cursor For            Select name,id From sysobjects            Where xtype =''U'' ----如果在导库过程中因某表存在错误而导致导库过程停止 ，则可以尝试修复此表。            ----如果此表不是很重要、或是此表无法修复，则可以在此加入条件            And name in (tablename1,tablename2,……)            ------tablename1,tablename2 表示不能修复的表的名字            Order by name            Open Ctb            Fetch Ctb Into @Utb,@tid            While (@@FETCH_STATUS=0)            Begin   ----禁用当前数据库中所有表的约束、触发器            Select @Utb=''Dbo.''+@Utb            Select @SQL=''Alter Table ''+@Utb+'' Disable Trigger All; ''+ '' ALTER TABLE ''+ @Utb +'' NOCHECK CONSTRAINT All; ''            exec ( @SQL)            Fetch Ctb Into @Utb,@tid            End            close ctb            Open Ctb            Fetch Ctb Into @Utb,@tid            While (@@FETCH_STATUS=0)            Begin            Select @Utb=''Dbo.''+@Utb            exec ('' Delete '' + @Utb)            Set @sql=''            Declare Clu Cursor For Select name From syscolumns Where id=@tid And iscomputed=0 and xtype<>189            Open Clu            Fetch Clu Into @ColName            While (@@FETCH_STATUS=0)            Begin     ----把列名以逗号隔开，拼成字符串            Set @sql=@sql+ @ColName + '',''            Fetch Clu Into @ColName            End            Close Clu            DeAllocate Clu            ----构造字符串            Set @len=Len(@sql)            If @len>0            Begin   ----把源数据库中的表导入到当前数据库中            Select @sql=left(@sql,@len-1)            Set @sql=''Insert Into ''+ @Utb + '' (''+@sql+'') ''+'' Select ''+@sql+'' From '' + @SourceDB+ @Utb            print ''Importing Table : '' +@utb+''...''            If Exists (Select name From syscolumns Where id=@tid and status=0x80)            begin            Select @SQl=''Set IDENTITY_INSERT ''+ @Utb + '' ON'' + '' Delete '' + @Utb+'' ''+@sql            print @sql            end            Else            Select @SQl=@sql            Exec ( @sql)            If Exists (Select name From syscolumns Where id=@tid and status=0x80)            Exec( ''Set IDENTITY_INSERT ''+ @Utb + '' Off'')            print ''Importing Table : '' +@utb+'' complete''            End            Fetch Next From Ctb Into @Utb,@tid            End            Close Ctb            Open Ctb            Fetch Ctb Into @Utb,@tid            While (@@FETCH_STATUS=0)            Begin   ----启用当前数据库中所有表的约束、触发器            Select @Utb=''Dbo.''+@Utb            select @sql=''Alter Table ''+@Utb+'' Enable Trigger All ''+ '' ALTER TABLE ''+ @Utb +'' CHECK CONSTRAINT All ''            Exec sp_executesql @sql            Fetch Ctb Into @Utb,@tid            End            close ctb            DeAllocate Ctb            print ''Import database complete!''            return 0            End            Go            Exec sp_ExportDatabase mytest   ----mytest表示源数据实体的名称