实时错误 70 没有权限
我做了一个数据工程,在里面需要备份一个数据库,但是一执行就有这个错误出现,请问各位这个问题该怎么解决,得先关了数据库的联接,但是怎么关啊,先行谢过!
你打开的数据库没有关闭。
rs.Close '关闭数据库
con.Close
--------------------
或用这个方法来备份数据库,我个人认为很好,可以选择目录输入文件名绕过了实时错误 70 没有权限 这个错误提示。
Private Sub Command6_Click()
CommonDialog1.CancelError = True
On Error GoTo errhandler
With CommonDialog1
.DialogTitle = "备份数据库"
.CancelError = False
.Flags = cdlOFNHideReadOnly
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "数据库文件 (*.mdb)|*.mdb"
.ShowSave
End With
CopyFile App.Path + "\动态管理库.MDB", CommonDialog1.FileName, 1
MsgBox "备份完毕", vbOKOnly, "确认信息"
errhandler:
Exit Sub
End Sub