備份和恢復MSSQL數據庫

'*************************************************************************
'**模 塊 名：fBackupDatabase_a
'**描    述：備份數據庫,返回出錯信息,正常恢復,返回""
'**調    用：fBackupDatabase_a "備份文件名","數據庫名"
'**參數說明：
'**          sBackUpfileName  恢復後的數據庫存放目錄
'**          sDataBaseName    備份的數據名
'**          sIsAddBackup     是否追加到備份文件中
'**說    明：引用Microsoft ActiveX Data Objects 2.x Library
'**創 建 人：鄒建
'**日    期：2003年12月09日
'*************************************************************************
Public Function fBackupDatabase_a(ByVal sBackUpfileName$ _
                                , ByVal sDataBaseName$ _
                                , Optional ByVal sIsAddBackup As Boolean = False _
                                ) As String
                               
    Dim iDb As ADODB.Connection
    Dim iConcStr$, iSql$, iReturn$
   
    On Error GoTo lbErr
   
    '創建對象
    Set iDb = New ADODB.Connection
   
    '連接數據庫服務器,根據你的情況修改連接字符串
    iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=zj"
    iDb.Open iConcStr
   
    '生成數據庫備份語句
    iSql = "backup database [" & sDataBaseName & "]" & vbCrLf & _
            "to disk='" & sBackUpfileName & "'" & vbCrLf & _
            "with description='" & "zj-backup at:" & Date & "(" & Time & ")'" & vbCrLf & _
            IIf(sIsAddBackup, "", ",init")
           
    iDb.Execute iSql
    GoTo lbExit
   
lbErr:
    iReturn = Error
lbExit:
    fBackupDatabase_a = iReturn
End Function

 

'*************************************************************************
'**模 塊 名：frestoredatabase_a
'**描    述：恢復數據庫,返回出錯信息,正常恢復,返回""
'**調    用：frestoredatabase_a "備份文件名","數據庫名"
'**參數說明：
'**          sDataBasePath  恢復後的數據庫存放目錄
'**          sBackupNumber  是從那個備份號恢復
'**          sReplaceExist  指定是否覆蓋已經存在的數據
'**說    明：引用Microsoft ActiveX Data Objects 2.x Library
'**創 建 人：鄒建
'**日    期：2003年12月09日
'*************************************************************************
Public Function fRestoreDatabase_a(ByVal sBackUpfileName$ _
                                , ByVal sDataBaseName$ _
                                , Optional ByVal sDataBasePath$ = "" _
                                , Optional ByVal sBackupNumber& = 1 _
                                , Optional ByVal sReplaceExist As Boolean = False _
                                ) As String
   
    Dim iDb As ADODB.Connection, iRe As ADODB.Recordset
    Dim iConcStr$, iSql$, iReturn$, iI&
   
    On Error GoTo lbErr
   
    '創建對象
    Set iDb = New ADODB.Connection
    Set iRe = New ADODB.Recordset
   
    '連接數據庫服務器,根據你的情況修改連接字符串
    iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SQL服務器名"
    iDb.Open iConcStr
   
    '得到還原後的數據庫存放目錄,如果沒有指定,存放到SQL SERVER的DATA目錄
    If sDataBasePath = "" Then
        iSql = "select filename from master..sysfiles"
        iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly
        iSql = iRe(0)
        iRe.Close
        sDataBasePath = Left(iSql, InStrRev(iSql, "/"))
    End If
   
    '檢查數據庫是否存在
    If sReplaceExist = False Then
        iSql = "select 1 from master..sysdatabases  where name='" & sDataBaseName & "'"
        iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly
        If iRe.EOF = False Then
            iReturn = "數據庫已經存在!"
            iRe.Close
            GoTo lbExit
        End If
        iRe.Close
    End If
   
    '關閉用戶進程,防止其它用戶正在使用數據庫,導致數據恢復失敗
    iSql = "select spid from master..sysprocesses where dbid=db_id('" & sDataBaseName & "')"
    iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly
    While iRe.EOF = False
        iSql = "kill " & iRe(0)
        iDb.Execute iSql
        iRe.MoveNext
    Wend
    iRe.Close
   
    '獲取數據庫恢復信息
    iSql = "restore filelistonly from disk='" & sBackUpfileName & "'" & vbCrLf & _
        "with file=" & sBackupNumber
    iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly
   
    '生成數據庫恢復語句
    iSql = "restore database [" & sDataBaseName & "]" & vbCrLf & _
        "from disk='" & sBackUpfileName & "'" & vbCrLf & _
        "with file=" & sBackupNumber & vbCrLf
    With iRe
        While Not .EOF
            iReturn = iRe("PhysicalName")
            iI = InStrRev(iReturn, ".")
            iReturn = IIf(iI = 0, "", Mid(iReturn, iI)) & "'"
            iSql = iSql & ",move '" & iRe("LogicalName") & _
                    "' to '" & sDataBasePath & sDataBaseName & iReturn & vbCrLf
            .MoveNext
        Wend
        .Close
    End With
    iSql = iSql & IIf(sReplaceExist, ",replace", "")
   
    iDb.Execute iSql
    iReturn = ""
    GoTo lbExit
   
lbErr:
    iReturn = Error
lbExit:
    fRestoreDatabase_a = iReturn
End Function

 

 

--上面是程序的,下面是用存儲過程的

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_backupdb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_backupdb]
GO

/*--備份數據庫的通用存儲過程

--鄒建 2003.10--*/

/*--調用示例

--備份當前數據庫
exec p_backupdb @bkpath='c:/',@bkfname='/DBNAME/_/DATE/_db.bak'

--差異備份當前數據庫
exec p_backupdb @bkpath='c:/',@bkfname='db_/DATE/_df.bak',@bktype='DF'

--備份當前數據庫日誌
exec p_backupdb @bkpath='c:/',@bkfname='db_/DATE/_log.bak',@bktype='LOG'
--*/
create proc p_backupdb
@dbname sysname='',   --要備份的數據庫名稱,不指定則備份當前數據庫
@bkpath nvarchar(260)='', --備份文件的存放目錄,不指定則使用SQL默認的備份目錄
@bkfname nvarchar(260)='', --備份文件名,文件名中可以用/DBNAME/代表數據庫名,/DATE/代表日期,/TIME/代表時間
@bktype nvarchar(10)='DB', --備份類型:'DB'備份數據庫,'DF' 差異備份,'LOG' 日誌備份
@appendfile bit=1,   --追加/覆蓋備份文件
@password nvarchar(20)='' --爲備份文件設置的密碼(僅sql2000支持),設置後,恢復時必須提供此密碼
as
 declare @sql varchar(8000)
 if isnull(@dbname,'')='' set @dbname=db_name()
 if isnull(@bkpath,'')=''
 begin
  select @bkpath=rtrim(reverse(filename)) from master..sysfiles where name='master'
  select @bkpath=substring(@bkpath,charindex('/',@bkpath)+1,4000)
   ,@bkpath=reverse(substring(@bkpath,charindex('/',@bkpath),4000))+'BACKUP/'
 end
 if isnull(@bkfname,'')='' set @bkfname='/DBNAME/_/DATE/_/TIME/.BAK'
 set @bkfname=replace(replace(replace(@bkfname,'/DBNAME/',@dbname)
  ,'/DATE/',convert(varchar,getdate(),112))
  ,'/TIME/',replace(convert(varchar,getdate(),108),':',''))
 set @sql='backup '+case @bktype when 'LOG' then 'log ' else 'database ' end +@dbname
  +' to disk='''+@bkpath+@bkfname
  +''' with '+case @bktype when 'DF' then 'DIFFERENTIAL,' else '' end
  +case @appendfile when 1 then 'NOINIT' else 'INIT' end
  +case isnull(@password,'') when '' then '' else ',PASSWORD='''+@password+'''' end
 exec(@sql)
go

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_RestoreDb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_RestoreDb]
GO

 

 

/*--恢復數據庫的通用存儲過程

--鄒建 2003.10--*/

/*--調用示例
--完整恢復數據庫
exec p_RestoreDb @bkfile='c:/db_20031015_db.bak',@dbname='db'

--差異備份恢復
exec p_RestoreDb @bkfile='c:/db_20031015_db.bak',@dbname='db',@retype='DBNOR'
exec p_RestoreDb @bkfile='c:/db_20031015_df.bak',@dbname='db',@retype='DF'

--日誌備份恢復
exec p_RestoreDb @bkfile='c:/db_20031015_db.bak',@dbname='db',@retype='DBNOR'
exec p_RestoreDb @bkfile='c:/db_20031015_log.bak',@dbname='db',@retype='LOG'

--*/

create proc p_RestoreDb
@bkfile nvarchar(1000),  --定義要恢復的備份文件名(帶路徑)
@dbname sysname='',      --定義恢復後的數據庫名,默認爲備份的文件名
@dbpath nvarchar(260)='', --恢復後的數據庫存放目錄,不指定則爲SQL的默認數據目錄
@retype nvarchar(10)='DB', --恢復類型:'DB'完事恢復數據庫,'DBNOR' 爲差異恢復,日誌恢復進行完整恢復,'DF' 差異備份的恢復,'LOG' 日誌恢復
@filenumber int=1,   --恢復的文件號
@overexist bit=1,        --是否覆蓋已經存在的數據庫,僅@retype爲'DB'/'DBNOR'是有效
@killuser bit=1,      --是否關閉用戶使用進程,僅@overexist=1時有效
@password nvarchar(20)='' --備份文件的密碼(僅sql2000支持),如果備份時設置了密碼,必須提供此密碼
as
declare @sql varchar(8000)

--得到恢復後的數據庫名
if isnull(@dbname,'')=''
 select @sql=reverse(@bkfile)
  ,@sql=case when charindex('.',@sql)=0 then @sql
   else substring(@sql,charindex('.',@sql)+1,1000) end
  ,@sql=case when charindex('/',@sql)=0 then @sql
   else left(@sql,charindex('/',@sql)-1) end
  ,@dbname=reverse(@sql)

--得到恢復後的數據庫存放目錄
if isnull(@dbpath,'')=''
begin
 select @dbpath=rtrim(reverse(filename)) from master..sysfiles where name='master'
 select @dbpath=reverse(substring(@dbpath,charindex('/',@dbpath),4000))
end

--生成數據庫恢復語句
set @sql='restore '+case @retype when 'LOG' then 'log ' else 'database ' end+@dbname
 +' from disk='''+@bkfile+''''
 +' with file='+cast(@filenumber as varchar)
 +case when @overexist=1 and @retype in('DB','DBNOR') then ',replace' else '' end
 +case @retype when 'DBNOR' then ',NORECOVERY' else ',RECOVERY' end
 +case isnull(@password,'') when '' then '' else ',PASSWORD='''+@password+'''' end

--添加移動邏輯文件的處理
if @retype='DB' or @retype='DBNOR'
begin
 --從備份文件中獲取邏輯文件名
 declare @lfn nvarchar(128),@tp char(1),@i int,@s varchar(1000)

 --創建臨時表,保存獲取的信息
 create table #tb(ln nvarchar(128),pn nvarchar(260),tp char(1),fgn nvarchar(128),sz numeric(20,0),Msz numeric(20,0))
 --從備份文件中獲取信息
 set @s='restore filelistonly from disk='''+@bkfile+''''
  ++case isnull(@password,'') when '' then '' else ' with PASSWORD='''+@password+'''' end
 insert into #tb exec(@s)
 declare #f cursor for select ln,tp from #tb
 open #f
 fetch next from #f into @lfn,@tp
 set @i=0
 while @@fetch_status=0
 begin
  select @sql=@sql+',move '''+@lfn+''' to '''+@dbpath+@dbname+cast(@i as varchar)
   +case @tp when 'D' then '.mdf''' else '.ldf''' end
   ,@i=@i+1
  fetch next from #f into @lfn,@tp
 end
 close #f
 deallocate #f
end

--關閉用戶進程處理
if @overexist=1 and @killuser=1
begin
 declare hCForEach cursor for
 select s='kill '+cast(spid as varchar) from master..sysprocesses
 where dbid=db_id(@dbname)
 exec sp_msforeach_worker '?'
end

--恢復數據庫
exec(@sql)

go

/*----------------備份和恢復示例---------------------*/

/*--
exec p_backupdb @dbname='oa',
 @bkpath='g:/db_backup/',
 @bkfname='/DBNAME/_/DATE/_db.bak',
 @bktype='DB'
--*/

/*--
exec p_restoredb @bkfile='g:/db_backup/oa_20040713_db.bak',
 @dbname='sbdb',
 @retype='DB'
--*/