疯狂动物园任务怎么看:在VB中备份ACcess数据库,谁有这方面的资料呀!

来源：百度文库 编辑：神马品牌网 时间：2024/05/11 03:25:00
Dim FileName As String
Dim FileBack As String
Private Sub Picture1_Click()
FileName = App.Path & "\data.mdb"
FileBack = App.Path & "\databack\data.mdb"
If Dir(FileBack) <> "" Then Kill FileBack
FileCopy FileName, FileBack
MsgBox "备份数据库成功", vbInformation, "数据库备份"
End Sub
运行提示访问拒绝
问题在什么地方大虾们帮帮忙呀!

当ACCESS数据库打开时，直接使用VB自带的FileCopy不能进行复制操作，你可以借助FSO对象的CopyFile来实现。如：
Dim oTest as Object

Set oTest = CreateObject("Scripting.FileSystemObject")
oTest.CopyFile "原文件名路径","新文件名路径"

Set oTest = Nothing

在VB中备份ACcess数据库,谁有这方面的资料呀! 如何在VB中连接access数据库 vb+access数据库备份代码写法 在VB中怎样对ACCESS数据库添加新字段？ 请问：如何在VB.net中连接调用ACCESS数据库？ 请教！在VB中连接ACCESS数据库老是出错！ 在VB中查找Access数据库的问题 在VB中使用ADODC控件访问ACCESS数据库问题 VB中如何使用ACCESS数据库 vb.net中无法更新access数据库