关于备份和恢复的出错问题,请大虾帮忙!!---在线等在线等!!解决之后马上给分!!qq:279036067

Question

以下是我拷贝的一个备份和恢复的功能程序,向实现自己的备份和恢复功能,但是出了问题,请大虾们看看怎么回事,我把问题的地方用*****标出来????(在线在线等,解决之后马上给分,我急用!!)
这是备份子程序:
**********************************
Sub BackupMdb(StrBack As String)         '******备份子程序  StrBack需要我该吗 ？？怎么改？ ****    Dim miJRO As JRO.JetEngine
    Set miJRO = New JRO.JetEngine
    miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & App.Path & "\Stipend.mdb;" _      '******stipends是什么，在我的程序上需要该吗？？？？怎么改？？*****
        & "Jet OLEDB:Database Password=123", _
    "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & StrBack & ";" _
        & "Jet OLEDB:Database Password=123"
End Sub
这是备份按钮的实现：
***************************
Private Sub cmdBackup_Click()
   
    Dim Str As String
    
     CommonDialog1.Filter = "数据库文件(*.mdb)|*.mdb"
    CommonDialog1.FilterIndex = 2
    CommonDialog1.DialogTitle = "选择备份文件名称"
    CommonDialog1.ShowOpen
    Str = CommonDialog1.FileName
    '检查目标文件名称是否存在，存在则要先删除
    If Dir(Str) <> "" Then
        Kill Str     ''''''**********这里有我需要改的地方么？运行时提示出错：“实时错误70， 拒绝的权限”请问怎么办？？******************
    End If
    Call BackupMdb(Str)    '引用备份过程
    MsgBox "数据备份完成！为了你的数据安全，请经常备份数据库。", _
                vbOKOnly + vbExclamation, "提示"
End Sub
以下是我的恢复实现程序：
************************
Private Sub cmdRevert_Click()
    Dim StrBack As String
    Dim StrRevert As String
    Dim X As String
  
    CommonDialog1.Filter = "数据库文件(*.mdb)|*.mdb"
    CommonDialog1.FilterIndex = 2
    CommonDialog1.DialogTitle = "选择还原文件名称"
    CommonDialog1.ShowOpen
    StrBack = CommonDialog1.FileName
    X = MsgBox("数据还原将用备份的数据库覆盖现有数据库，" _
        & "请做好现有数据库的备份。确认本次还原数据的操作吗？", _
        vbOKCancel + vbExclamation, "提示")
    If X = vbCancel Then Exit Sub
    StrRevert = "" & App.Path & "\Stipend.mdb"     '''****此处要改stipend么****
    FileCopy StrBack, StrRevert             ''''*****此处出错提示:"实时错误70,拒绝的权限"***
    MsgBox "数据还原成功！", vbOKOnly + vbExclamation, "提示"
End Sub
谢谢好心人帮忙!!!

Answer 1

备份子程序  StrBack不需要改
stipends是你所需要备份的数据库另外要有FSO

Answer 2

这是备份子程序:
**********************************
Sub BackupMdb(StrBack As String)         '******备份子程序  StrBack需要我该吗 ？？怎么改？ ****：不需要......
        & "Data Source=" & App.Path & "\Stipend.mdb;" _      '******stipends是什么，在我的程序上需要该吗？？？？怎么改？？*****：改成你的数据库文件名
......
End Sub这是备份按钮的实现：
***************************
Private Sub cmdBackup_Click()
       If Dir(Str) <> "" Then
        Kill Str     ''''''**********这里有我需要改的地方么？运行时提示出错：“实时错误70， 拒绝的权限”请问怎么办？？******************：如果是文件没有关闭，先关闭；如果是 Win2k/Xp 等 NT 系统，可能需要必要的权限，试试用管理员登录或重新赋权。    End If
    Call BackupMdb(Str)    '引用备份过程
    MsgBox "数据备份完成！为了你的数据安全，请经常备份数据库。", _
                vbOKOnly + vbExclamation, "提示"
End Sub以下是我的恢复实现程序：
************************
Private Sub cmdRevert_Click()
......    If X = vbCancel Then Exit Sub
    StrRevert = "" & App.Path & "\Stipend.mdb"     '''****此处要改stipend么****：要改
    FileCopy StrBack, StrRevert             ''''*****此处出错提示:"实时错误70,拒绝的权限"***：同备份的处理
    MsgBox "数据还原成功！", vbOKOnly + vbExclamation, "提示"
End Sub