数据库管理与开发.ppt

7.1 数据备份(2) 主要程序代码 本模块只有一个事件代码：cmdOk_Click()： 事件：C修改_Click() 功能：备份数据库 Private Sub cmdOk_Click() Dim cPMasterConn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim mSqlMaster As String, rq As String, s2 As String rq = Format(Date, yyyymmdd) Format(Time, hhmm) ‘ 设置日期格式 第14章 教学管理系统的VB实现 1数据库实现 2主窗体创建 3数据访问 4登录界面 5信息查询 6数据维护 7备份还原帮助 数据备份 数据还原 帮助文件制作 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 第14章 教学管理系统的VB实现 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 第14章 教学管理系统的VB实现 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 第14章 教学管理系统的VB实现 1数据库实现 2主窗体创建 3数据访问 4登录界面 5信息查询 6数据维护 7备份还原帮助 数据备份 数据还原 帮助文件制作 7.2 数据还原(1) 模块界面 1数据库实现 2主窗体创建 3数据访问 4登录界面 5信息查询 6数据维护 7备份还原帮助 数据备份 数据还原 帮助文件制作 第14章 教学管理系统的VB实现 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 RESTOR