数据库备份与还原功能的实现
发布网友
发布时间：2022-04-20 22:50
共1个回答
热心网友
时间：2022-04-07 19:57
传统方法用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
