（精）案例：教学成绩管理系统.ppt

7.1 数据备份(2) mSqlMaster = provider=SQLOLEDB;server= HostName ;database=master;uid=sa;pwd=11 cPMasterConn.CursorLocation = adUseClient cPMasterConn.CommandTimeout = 0 cPMasterConn.Open mSqlMaster If MsgBox(“您确认要备份数据吗（Y/N）？”, vbYesNo + vbQuestion + vbDefaultButton2, “提示”) = 7 Then Exit Sub Me.MousePointer = vbHourglass 1数据库实现 2主窗体创建 3数据访问 4登录界面 5信息查询 6数据维护 7备份还原帮助 数据备份 数据还原 帮助文件制作 7.1 数据备份(2) ‘ 读取Master.dbo.sysdevices表中是否包含要备份的文件 Set rs = cPMasterConn.Execute(Select * From Master.Dbo.SysDevices Where Name=成绩数据库 rq 备份) ‘ 判断Master.dbo.sysdevices表中是否包含本库的备份信息 If rs.RecordCount = 0 Then cPMasterConn.Execute sp_addumpdevice Disk, 成绩数据库 rq 备份,E:\成绩数据库 rq 备份 End If rs.Close 1数据库实现 2主窗体创建 3数据访问 4登录界面 5信息查询 6数据维护 7备份还原帮助 数据备份 数据还原 帮助文件制作 7.1 数据备份(2) ‘ 文件的格式是“成绩数据库”＋日期＋“备份”，代码中的rq是在前面经过处理的日期。 cPMasterConn.Execute BACKUP DATABASE 教学成绩管理数据库 TO 成绩数据库 rq 备份 Me.MousePointer = vbDefault MsgBox 数据备份完毕！, vbInformation, 提示 cPMasterConn.Close cmdOk.Enabled = False End Sub 1数据库实现 2主窗体创建 3数据访问 4登录界面 5信息查询 6数据维护 7备份还原帮助 数据备份 数据还原 帮助文件制作 7.2 数据还原(1) 模块界面 1数据库实现 2主窗体创建 3数据访问 4登录界面 5信息查询 6数据维护 7备份还原帮助 数据备份 数据还原 帮助文件制作 7.2 数据还原(2) 主要程序代码 本模块有2个事件代码：Form_Load()、cmdOk_Click()，主要是cmdOk_Click，代码如下： 事件：cmdOk_Click() 功能：还原数据库 Private Sub cmdOk_Click() On Error GoTo Err_Hand If MsgBox(此操作将恢复 Cmbfile ！您确认吗（Y/N）？, vbYesNo + vbQuestion + vbDefaultButton2, 提示) = 7 Then Exit Sub cPMasterConn.Execute RESTORE DATABASE 教学成绩管理数据库 FROM DISK = e:\ Cmbfile 1数据库实现 2主窗体创建 3数据访问 4登录界面 5信息查询 6数据维护 7备份还原帮助 数据备份 数据还原 帮助文件制作 7.2 数据还原(2) Me.MousePointer = vbHourglass cPMasterConn.Close MsgBox 数据恢复完毕！, vbInformation, 提示 Unload Me Exit Sub Err_Hand: ‘ 必须在数据库完全停止操作里进行 If cPMasterConn.Errors.Count = 0 Then MsgBox 错 误 号： Err.Number vbCrLf _ 错误描述： Err.Description vbCrLf _ 1数据库实现 2主窗体创建 3数据访问 4登录界面 5信息查询 6数据维护 7备份还原帮助 数据备份 数据