标题:做了个数据库备份的界面 提示错误
取消只看楼主
wangzhongda
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-11-10
结帖率:100%
已结贴  问题点数:20 回复次数:0 
做了个数据库备份的界面 提示错误
采用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
搜索更多相关主题的帖子: 数据库备份 
2014-11-12 20:17



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-438497-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.275981 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved