sql可定制的数据库备份和恢复程序

 SQL中一共有三种备份: 完全备份/差异备份/日志备份

在备份上,上述三种备份都可以独立进行 在还原上,完全备份的文件可以独立还原 差异备份的还原,必须先还原差异备份前做的最后一次完全备份,然后才能在这个基础上还原差异备份 日志备份的还原,必须先还原差异备份前做的最后一次完全备份,然后按备份时间先后,逐次还原完全备份后做的日志备份

 在我们做数据库系统的程序时，经常需要为客户做一个数据库的备份和恢复程序，特别是对于一些非专业的数据库用户，这个程序更是必不可少，而且操作必需足够简单。因为在很多系统中，数据库的备份恢复功能都是相近的，因此，我们最好做一个通用的数据库备份恢复程序，这样就不必每个系统都开发一套了。

  要开发这样一套系统，我个人认为应该满足以下要求：     1． 备份恢复操作应该有历史记录（必需有一个备份列表，列出备份文件的相关信息），便于用户查找以往的备份。

  2． 对于每一次备份和恢复应允许用户记录备份和恢复的原因。

  3． 系统应允许用户进行简单的配置，并且配置可以保存。

  4． 备份和恢复应该足够简单，最好类似与文件的复制，对于已经进行的备份，应允许用户从备份列表恢复。

  5． 即使因为某种原因使要恢复的数据库正在占用，也应该允许用户恢复（这一点很重要，因为你不能指望用户自己保证数据库的独占性）。

  6． 实时显示备份或恢复的当前进度。

  要达到以上的要求，我想我们应该这样设计系统：

 1． 对于每一次的数据库备份和恢复，我们都记下当时的数据库服务器名，数据库名，备份文件全路径名，备份时间，进行备份或恢复的原因等信息，并把这些信息以XML的形式保存，下面是我得一个备份文件实例：

 <?xml version="1.0" encoding="GB2312"?> <history> <bak> <time>20040205 10:41:21</time> <dbname>hrmjx4</dbname> <des>测试备份</des> <path>E:/ricatex2003.bak</path> </bak> <bak> <time>20040205 10:43:58</time> <dbname>hrmjx4</dbname> <des>每周例行备份</des> <path>E:/hrmjx4040205.bak</path> </bak> </history>  

  2． 对于用户的配置可以这样进行：

 <?xml version="1.0" encoding="GB2312"?> <set> <appname>数据库备份</appname> <bakcount>20</bakcount> <servername>.</servername> <dbname>book</dbname> <username>sa</username> <password>2iUc94tkpsg=</password> </set>  

上面依次记录了备份程序的名称（显示在备份窗体的标题栏，无实际用处），备份历史最大记录数，备份的数据库服务器名称，备份的数据库名称，用户名，密码（已经过加密）等信息。我们在程序刚开始启动时，就自动把这些信息应用到用户界面上去，这样就不用用户重新设置了。   3． 备份时我们采取直接备份到文件的方法，用户只需使用保存文件对话框指定要备份的位置和文件名即可，其余的工作通过程序完成，恢复也一样，只需通过打开文件对话框指定从其中恢复的文件即可。

  4． 我们在恢复时，先杀死要恢复的数据库所关联的所有用户线程，然后再进行恢复，这样就不会存在因为数据库独占性引起的恢复错误。

  5． 对于实时显示备份和恢复的进度问题，我们采取SQL－DMO的回调函数的方式实现。

  下面是相关技术难点的代码实现（因为个人的喜好，在此已C#的代码形式实现）：

  1． 在用户的配置时，我们需要列出当前局域网内所有的数据库服务器，并且要列出指定服务器的所有数据库，实现代码如下：

  取得数据库服务器列表：

 public ArrayList GetServerList() { ArrayList alServers = new ArrayList() ; SQLDMO.Application sqlApp = new SQLDMO.ApplicationClass() ; try { SQLDMO.NameList serverList = sqlApp.ListAvailableSQLServers() ; for(int i = 1;i<= serverList.Count;i++) { alServers.Add(serverList.Item(i)) ; } } catch(Exception e) { throw(new Exception("取数据库服务器列表出错："+e.Message)) ; } finally { sqlApp.Quit() ; } return alServers ; } 

  取得指定数据库服务器的数据库列表

 public ArrayList GetDbList(string strServerName,string strUserName,string strPwd) { ServerName = strServerName ; UserName = strUserName ; Password = strPwd ;  

 

 ArrayList alDbs = new ArrayList() ; SQLDMO.Application sqlApp = new SQLDMO.ApplicationClass() ; SQLDMO.SQLServer svr = new SQLDMO.SQLServerClass() ; try { svr.Connect(ServerName,UserName,Password) ; foreach(SQLDMO.Database db in svr.Databases) { if(db.Name!=null) alDbs.Add(db.Name) ; } } catch(Exception e) { throw(new Exception("连接数据库出错："+e.Message)) ; } finally { svr.DisConnect() ; sqlApp.Quit() ; } return alDbs ; }  

  2． 数据库的备份和实时进度显示代码：

 public bool BackUPDB(string strDbName,string strFileName, ProgressBar pgbMain) { PBar = pgbMain ; SQLDMO.SQLServer svr = new SQLDMO.SQLServerClass() ; try { svr.Connect(ServerName,UserName,Password) ; SQLDMO.Backup bak = new SQLDMO.BackupClass(); bak.Action = 0 ; bak.Initialize = true ; SQLDMO.BackupSink_PercentCompleteEventHandler pceh = new SQLDMO.BackupSink_PercentCompleteEventHandler(Step); bak.PercentComplete += pceh; bak.Files = strFileName; bak.Database = strDbName; bak.SQLBackup(svr); return true ; } catch(Exception err) { throw(new Exception("备份数据库失败"+err.Message)) ; } finally { svr.DisConnect() ; } }  

 

 private void Step(string message,int percent) { PBar.Value = percent ; }  

  其中，这两个语句实现了进度的实时显示：

 SQLDMO.BackupSink_PercentCompleteEventHandler pceh = new SQLDMO.BackupSink_PercentCompleteEventHandler(Step); bak.PercentComplete += pceh; 

Step就是上面private void Step(string message,int percent) 的方法名称，它用来显示进度条的当前进度。

  3． 数据库的恢复和杀死进程的代码：

public bool RestoreDB(string strDbName,string strFileName, ProgressBar pgbMain) { PBar = pgbMain ; SQLDMO.SQLServer svr = new SQLDMO.SQLServerClass() ; try { svr.Connect(ServerName,UserName,Password) ; SQLDMO.QueryResults qr = svr.EnumProcesses(-1) ; int iColPIDNum = -1 ; int iColDbName = -1 ; for(int i=1;i<=qr.Columns;i++) { string strName = qr.get_ColumnName(i) ; if (strName.ToUpper().Trim() == "SPID") { iColPIDNum = i ; } else if (strName.ToUpper().Trim() == "DBNAME") { iColDbName = i ; } if (iColPIDNum != -1 && iColDbName != -1) break ; }

for(int i=1;i<=qr.Rows;i++) { int lPID = qr.GetColumnLong(i,iColPIDNum) ; string strDBName = qr.GetColumnString(i,iColDbName) ; if (strDBName.ToUpper() == strDbName.ToUpper()) svr.KillProcess(lPID) ; }  

 

 SQLDMO.Restore res = new SQLDMO.RestoreClass() ; res.Action = 0 ; SQLDMO.RestoreSink_PercentCompleteEventHandler pceh = new SQLDMO.RestoreSink_PercentCompleteEventHandler(Step); res.PercentComplete += pceh; res.Files = strFileName ;

res.Database = strDbName ; res.ReplaceDatabase = true ; res.SQLRestore(svr) ; return true ; } catch(Exception err) { throw(new Exception("恢复数据库失败,请关闭所有和该数据库连接的程序！"+err.Message)) ; } finally { svr.DisConnect() ; } }  

 其中这个语句取得了所有的进程列表：

 SQLDMO.QueryResults qr = svr.EnumProcesses(-1) ; 

  下面的语句找到和要恢复数据库相关的进程并杀死：

 

 int iColPIDNum = -1 ; int iColDbName = -1 ; for(int i=1;i<=qr.Columns;i++) 

 

/************************************************************************************ 上次写了MS SQL数据库备份和恢复存储过程 详细情况见(http://www.cnblogs.com/aierong/archive/2004/05/10/8789.aspx) 自感觉功能不太齐全,就重新写了一加强版本,经过测试成功！ 先将代码发布出来，大家共享。 如有发现BUG，请大家指教或EMAIL：aierong@vip.sina.com

 

/**//*备份数据库*/ create proc pr_backup_db @flag varchar(20) out, @backup_db_name varchar(128), @filename varchar(1000)  --路径＋文件名字 as declare @sql nvarchar(4000),@par nvarchar(1000) if not exists(  select * from master..sysdatabases   where name=@backup_db_name   ) begin  select @flag='db not exist'  /**//*数据库不存在*/  return end else begin  if right(@filename,1)<>'' and charindex('',@filename)<>0  begin   select @par='@filename varchar(1000)'   select @sql='BACKUP DATABASE '+@backup_db_name                          +' to disk=@filename with init'   execute sp_executesql @sql,@par,@filename   select @flag='ok'   return  end  else  begin   select @flag='file type error'  /**//*参数@filename输入格式错误*/   return  end end

GO

 

/**//*创建函数,得到文件得路径*/ create function fn_GetFilePath(@filename nvarchar(260)) returns nvarchar(260)   as begin  declare @file_path nvarchar(260)  declare @filename_reverse nvarchar(260)  select @filename_reverse=reverse(@filename)  select @file_path=substring(@filename,1,len(@filename)+1-charindex('',@filename_reverse))  return @file_path end

GO

 

 

/**//*恢复数据库*/ CREATE  proc pr_restore_db    /**//* ------------------------------------------------ Create Time:    2004-03-20 Update Time:    2004-03-29 11:05 Author:         aierong Remark:         恢复数据库   ------------------------------------------------ */ /**//*过程运行的状态标志,是输入参数*/      @flag varchar(20) out,    /**//*要恢复的数据名字*/ @restore_db_name nvarchar(128), /**//*备份文件存放的路径+备份文件名字*/ @filename nvarchar(260)         as /**//*返回系统存储过程xp_cmdshell运行结果*/ declare @proc_result tinyint /**//*循环次数*/ declare @loop_time smallint  /**//*@tem表的ids列最大数*/ declare @max_ids smallint    /**//*原数据库存放路径*/ declare @file_bak_path nvarchar(260)  /**//*文件存放标志*/ declare @flag_file bit   /**//*数据库master文件路径*/ declare @master_path nvarchar(260)  declare @sql nvarchar(4000),@par nvarchar(1000) declare @sql_sub nvarchar(4000) declare @sql_cmd nvarchar(100) declare @sql_kill nvarchar(100) /**//* 判断参数@filename文件格式合法性，以防止用户输入类似d: 或者 c:a 等非法文件名 参数@filename里面必须有''并且不以''结尾 */ if right(@filename,1)<>'' and charindex('',@filename)<>0 begin  select @sql_cmd='dir '+@filename  EXEC @proc_result = master..xp_cmdshell @sql_cmd,no_output  /**//*系统存储过程xp_cmdshell返回代码值:0(成功）或1（失败）*/  IF (@proc_result<>0)   begin   /**//*备份文件不存在*/   select @flag='not exist'     /**//*退出过程*/   return   end  /**//*创建临时表,保存由备份集内包含的数据库和日志文件列表组成的结果集*/  create table #tem(      /**//*文件的逻辑名称*/      LogicalName nvarchar(128),      /**//*文件的物理名称或操作系统名称*/      PhysicalName nvarchar(260) ,             /**//*数据文件 (D) 或日志文件 (L)*/      Type char(1),       /**//*包含文件的文件组名称*/      FileGroupName nvarchar(128),                           /**//*当前大小（以字节为单位）*/      [Size] numeric(20,0),       /**//*允许的最大大小（以字节为单位）*/      [MaxSize] numeric(20,0)     )  /**//*  创建表变量，表结构与临时表基本一样  就是多了两列,  列ids（自增编号列）,  列file_path,存放文件的路径  */  declare @tem table(            /**//*自增编号列*/      ids smallint identity,       LogicalName nvarchar(128),      PhysicalName nvarchar(260),      File_path nvarchar(260),      Type char(1),       FileGroupName nvarchar(128)    )  insert into #tem   execute('restore filelistonly from disk='''+@filename+'''')  /**//*将临时表导入表变量中,并且计算出相应得路径*/  insert into @tem(LogicalName,PhysicalName,File_path,Type,FileGroupName)    select LogicalName,PhysicalName,dbo.fn_GetFilePath(PhysicalName),Type,FileGroupName    from #tem  if @@rowcount>0  begin   drop table #tem  end  select @loop_time=1  /**//*@tem表的ids列最大数*/  select @max_ids=max(ids)    from @tem  while @loop_time<=@max_ids  begin   select @file_bak_path=file_path    from @tem where ids=@loop_time   select @sql_cmd='dir '+@file_bak_path   EXEC @proc_result = master..xp_cmdshell @sql_cmd,no_output   /**//*系统存储过程xp_cmdshell返回代码值:0(成功）或1（失败）*/   IF (@proc_result<>0)    select @loop_time=@loop_time+1    else    /**//*没有找到备份前数据文件原有存放路径，退出循环*/    BREAK  end  select @master_path=''  if @loop_time>@max_ids   /**//*备份前数据文件原有存放路径存在*/   select @flag_file=1    else  begin   /**//*备份前数据文件原有存放路径不存在*/   select @flag_file=0    select @master_path=dbo.fn_GetFilePath(filename)    from master..sysdatabases    where name='master'  end  select @sql_sub=''  /**//*type='d'是数据文件,type='l'是日志文件 */  /**//*@flag_file=1时新的数据库文件还是存放在原来路径，否则存放路径和master数据库路径一样*/  select @sql_sub=@sql_sub+'move '''+LogicalName+''' to '''    +case type          when 'd' then case @flag_file              when 1 then  File_path       else @master_path           end             when 'l' then case  @flag_file       when 1 then  File_path       else @master_path           end       end    +case type     when 'd' then @restore_db_name            +'_DATA'            /**//*给文件编号*/            +convert(sysname,ids)             +'.'            /**//*给文件加入后缀名,mdf or ndf*/            +right(PhysicalName,3)             +''','      when 'l' then @restore_db_name            +'_LOG'            /**//*给文件编号*/            +convert(sysname,ids)              +'.'            /**//*给文件加入后缀名,mdf or ndf*/            +right(PhysicalName,3)             +''','      end    from @tem  select @sql='RESTORE DATABASE @db_name '                         +'FROM DISK=@filename with '  select @sql=@sql+@sql_sub+'replace'  select @par='@db_name nvarchar(128),@filename nvarchar(260)'  /**//*关闭相关进程，把相应进程状况导入临时表中*/  select identity(int,1,1) ids, spid   into #temp   from master..sysprocesses   where dbid=db_id(@restore_db_name)  /**//*找到相应进程*/  if @@rowcount>0  begin     select @max_ids=max(ids)    from #temp   select @loop_time=1   while @loop_time<=@max_ids   begin    select @sql_kill='kill '+convert(nvarchar(20),spid)     from #temp     where ids=@loop_time    execute sp_executesql @sql_kill    select @loop_time=@loop_time+1   end  end  drop table #temp  execute sp_executesql @sql,                                       @par,                                       @db_name=@restore_db_name,                                       @filename=@filename  /**//*操作成功*/  select @flag='ok'   end else begin  /**//*参数@filename输入格式错误*/  SELECT @flag='file type error'  end

GO

 

/*运行*/

--备份数据库test_database declare @fl varchar(10) execute pr_backup_db @fl out,'test_database','c:/test_database.bak' select @fl

--恢复数据库,输入的参数错误 declare @fl varchar(20) exec pr_restore_db @fl out,'sa','c:/' select @fl

--恢复数据库,即创建数据库test_database的复本test_db declare @fl varchar(20) exec pr_restore_db @fl out,'test_db','c:/test_database.bak' select @fl