数据库备份与还原功能的实现

传统方法用SQL Server作数据库后台时，一般采用手工的方式利用SQL Server自身提供的可视化工具或SQL语言进行数据的备份还原功能（余正涛等，2003），但是由于SQL Server 的复杂性，操作比较繁琐，就使得普通用户对数据的备份与还原有一定的困难，并且容易造成错误，可能造成数据丢失等灾难性的后果。考虑到系统完整性和可靠性，可在VB 6.0环境下实现SQL Server数据库的备份与还原工作。

（一）实现思路

为了通过程序实现数据库备份与还原工作，必须在VB环境下引用SQLDMO，SQLDMO（SQL Distributed Management Objects，SQL 分布式管理对象）封装了Microsoft SQL Server数据库中的对象。SQLDMO是Microsoft SQL Server中企业管理器所使用的应用程序接口（包括备份和恢复），允许用支持自动化或COM 的语言编写应用程序。SQLDMO 对象来自SQLDMO.dll，SQLDMO.dll 是随 SQL Server 2000 一起发布的。并通过CreateObject（＂SQLD MO.SQLServer＂）函数创建新对象，使用SQLServ er.Connect函数经密码校验可连接服务器，再创建备份核心对象SQLDMO.Backup，同时指定备份文件等参数即可实现数据库备份与还原。具体的备份处理流程如图8-10所示。

特别注意SQL Server 2000 所安装的硬盘分区格式是否是NTFS格式，NTFS是最适合安装SQL Serv⁃er的文件系统。它比FAT文件系统更稳定且更容易恢复。而且它还包括一些安全选项，例如文件和目录ACL，以及文件加密（EFS）。如果是Fat32格式建议将它改成NTFS格式，因为Fat32支持最大文件为4G，数据库超过4G通常会提示日志文件太大之类的错误。

图8-10 数据库备份处理流程图

（二）关键代码

＇************数据库备份操作*************

Set gSQLServer＝getSQLServer（ServerName，UserName，password）

Private Function BackUpData（gDatabaseName As String，gBkupRstrFileName As String，Server⁃Name As String，UserName As String，password As String）As String

On Error GoTo ErrHandler：

Dim oBackup As SQLDMO.Backup

Dim gSQLServer As SQLDMO.SQLServer

Set tprg＝New CProgress

tprg.Title ＝＂正在执行数据库备份......＂

ServerName为服务器名称；serName为用户名；password为超级密码

＇连接服务器

Set oBackup＝New SQLDMO.Backup

Set oBackupEvent＝oBackup

gDatabaseName为所要备份数据名称；gBkupRstrFileName为备份文件名

oBackup.Database＝gDatabaseName

oBackup.Files＝gBkupRstrFileName

已存在gBkupRstrFileName备份文件名，则覆盖

If Len（Dir（gBkupRstrFileName））＞0 Then

Kill（gBkupRstrFileName）

End If

oBackup.PercentCompleteNotification＝1

Screen.MousePointer＝vbHourglass

oBackup.SQLBackup gSQLServer

DoEvents

Screen.MousePointer＝vbDefault

＇清空内存、关闭连接

Set oBackupEvent＝Nothing

Set oBackup＝Nothing

gSQLServer.Close

Set gSQLServer＝Nothing

Set tprg＝Nothing

Exit Function

ErrHandler：

m_str状态＝Err.Description

Resume Next

Set tprg＝Nothing

End Function

＇************数据库还原操作*************

Private Function RestoreData（gDatabaseName As String，gBkupRstrFileName As String，Server⁃Name As String，UserName As String，password As String）As String

On Error GoTo ErrHandler：

Dim oRestore As SQLDMO.Restore

Dim msg As String

Dim Response As String

Set tprg＝New CProgress

tprg.Title ＝＂正在执行数据库还原......＂

Dim gSQLServer As SQLDMO.SQLServer

＇ServerName为服务器名称；serName为用户名；password为超级密码

＇连接服务器

Set gSQLServer＝getSQLServer（ServerName，UserName，password）

Set oRestore＝New SQLDMO.Restore

Set oRestoreEvent＝oRestore

＇gDatabaseName为所要还原数据名称；gBkupRstrFileName为还原文件名

oRestore.Database＝gDatabaseName

oRestore.Files＝gBkupRstrFileName

Screen.MousePointer＝vbHourglass

oRestore.PercentCompleteNotification＝1

oRestore.SQLRestore gSQLServer

Screen.MousePointer＝vbDefault

＇清空内存、关闭连接

Set oRestoreEvent＝Nothing

Set oRestore＝Nothing

gSQLServer.Close

Set gSQLServer＝Nothing

Set tprg＝Nothing

Exit Function

ErrHandler：

m_str状态＝Err.Description

Resume Next

Set tprg＝Nothing

End Function

＇************显示备份进度*************

＇************显示还原进度*************

End Sub

Private Sub oBackupEvent_PercentComplete（ByVal Message As String，ByVal Percent As Long）

DoEvents

tprg.Value＝Percent

End Sub

Private Sub oRestoreEvent_PercentComplete（ByVal Message As String，ByVal Percent As Long）

DoEvents

tprg.Value＝Percent