亲,在吗,还有一个问题想问你,vb 数据备份代码'*** 实现数据备份的过程 ***Private Sub double_Click()If MsgBox("是非要备份?",vbQuestion + vbYesNo,"提示") = vbYes ThenFileCopy "d:\project\access\mydb.mdb","d:\project\acce
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/23 22:47:19
![亲,在吗,还有一个问题想问你,vb 数据备份代码'*** 实现数据备份的过程 ***Private Sub double_Click()If MsgBox(](/uploads/image/z/1763906-50-6.jpg?t=%E4%BA%B2%2C%E5%9C%A8%E5%90%97%2C%E8%BF%98%E6%9C%89%E4%B8%80%E4%B8%AA%E9%97%AE%E9%A2%98%E6%83%B3%E9%97%AE%E4%BD%A0%2Cvb+%E6%95%B0%E6%8D%AE%E5%A4%87%E4%BB%BD%E4%BB%A3%E7%A0%81%27%2A%2A%2A+%E5%AE%9E%E7%8E%B0%E6%95%B0%E6%8D%AE%E5%A4%87%E4%BB%BD%E7%9A%84%E8%BF%87%E7%A8%8B+%2A%2A%2APrivate+Sub+double_Click%28%29If+MsgBox%28%22%E6%98%AF%E9%9D%9E%E8%A6%81%E5%A4%87%E4%BB%BD%EF%BC%9F%22%2CvbQuestion+%2B+vbYesNo%2C%22%E6%8F%90%E7%A4%BA%22%29+%3D+vbYes+ThenFileCopy+%22d%3A%5Cproject%5Caccess%5Cmydb.mdb%22%2C%22d%3A%5Cproject%5Cacce)
亲,在吗,还有一个问题想问你,vb 数据备份代码'*** 实现数据备份的过程 ***Private Sub double_Click()If MsgBox("是非要备份?",vbQuestion + vbYesNo,"提示") = vbYes ThenFileCopy "d:\project\access\mydb.mdb","d:\project\acce
亲,在吗,还有一个问题想问你,
vb 数据备份代码'*** 实现数据备份的过程 ***
Private Sub double_Click()
If MsgBox("是非要备份?",vbQuestion + vbYesNo,"提示") = vbYes Then
FileCopy "d:\project\access\mydb.mdb","d:\project\access\mydb.bak"
End If
End Sub
Private Sub getback_Click()
'*** 实现数据恢复的过程 ***
FileCopy "d:\project\access\mydb.bak","d:\project\access\mydb.mdb
End Sub
提示拒绝的权限,那文件夹只读属性改不了。
亲,在吗,还有一个问题想问你,vb 数据备份代码'*** 实现数据备份的过程 ***Private Sub double_Click()If MsgBox("是非要备份?",vbQuestion + vbYesNo,"提示") = vbYes ThenFileCopy "d:\project\access\mydb.mdb","d:\project\acce
1.有可能那文件正在被使用,这个问题要具体问题具体方法解决
2.文件的属性是只读,修改这个文件的属性
3.文件夹的属性是只读,修改这个文件夹的属性
如果用VB去修改属性 可以使用API函数SetFileAttributes
什么问题?乐意解答
什么问题。。。。
尝试下 腾讯 电脑 管家 的电脑门诊
楼主只需鼠标左键“点此解决”按钮,
就可看到弹出的界面会用浅显易懂的文字详细罗列出故障现象,
如果确认自己遇到的问题与之相对,点击“立即处理”
按钮程序将自动修复遇到的电脑故障。