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

SQL Server数据库下教你如何做导库SQL2008-03-14导库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表示源数据实体的名称