采用data控件和commond控件，databasename=c:\filename
出错提示“实时错误70，拒绝的权限”
报错语句“FileCopy Data1.DatabaseName, pathname

Private Sub Command1_Click()
Dim response, pathname As String
prompt$ = "确实要为数据库创建一个备份么？"
response = MsgBox(prompt$, vbOKCancel + vbQuestion, "提示")
If response = vbOK Then
pathname = InputBox$("请输入备份文件的路径及文件名")
If pathname = "" Then
MsgBox "路径或文件为空！", vbCritical, "错误"
Else
FileCopy Data1.DatabaseName, pathname
MsgBox "备份文件成功", , "提示"
End If
Else
MsgBox "用户取消了创建备份操作", vbInformation, "提示"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

这~~~~~~~~，把打开的数据库连接关了吧
cn.close
set cn=nothing
如果是用data控件访问数据库，就把data数据源关闭

[ 本帖最后由 xzlxzlxzl 于 2014-11-12 20:37 编辑 ]