| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 390 人关注过本帖
标题:做了个数据库备份的界面 提示错误
取消只看楼主 加入收藏
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
快速回复:做了个数据库备份的界面 提示错误
数据加载中...
 
   



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

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