SQL Server数据库下教你如何做导库SQL

核心提示：导库SQL -- 适用于sql server在企业信息化建设过程中，数据库实体做为存放企业运营数据的仓库，SQL Server数据库下教你如何做导库SQL，具有至高重要的地位，为防止数据丢失，则可以尝试修复此表，如果此表不是很重要、或是此表无法修复，事前预防是很关键的，诸如数据库定期备份、磁盘阵列、集群解决方案等等

导库SQL -- 适用于sql server

在企业信息化建设过程中，数据库实体做为存放企业运营数据的仓库，具有至高重要的地位。

为防止数据丢失，事前预防是很关键的，诸如数据库定期备份、磁盘阵列、集群解决方案等等。

但是一旦发生数据丢失或是损坏的现象，而且不能通过正常的修复手段来处理，则可以通过导库来尝试一下。

国产的软件包括k/3,u8 等等，都有类似管理数据库的工具，管理工具中提供新建数据库的功能，新建的同类（指管理工具中提供的类别）数据库实体（国产软件通常称之为“账套”）有相同的表结构。因此，如果账套损坏，且无法修复的，可以新建一同类型的账套实体，通过下面的导库语句把被损坏的账套的数据导入新建账套中。

下面的语句提供了一个比sql server DTS导入导出更加灵活的工具。不过需要大家仔细理解才能运用的得心应手哈！！

----该存储过程建立在新帐套中，并在新账套中执行

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表示源数据实体的名称