Question

VB如何备份和恢复ACCESS数据库？ 可以详细的教一下么？添加什么控件，嵌入什么代码？ 在线等待——追加分

Answer 1

DlgData.CancelError = True
Dim DataFileName1 As String
DlgData.DialogTitle = "请选择文件保存位置"
DlgData.Filter = "(*.mdb)|*.mdb"
DataFileName1 = App.Path & "\DataBase\DataBase.mdb"
DlgData.FileName = Date
If Not modFileFunction.isExistPath("E:\DataBase") Then
modFileFunction.CreateFolder ("E:\DataBase")
End If
DlgData.InitDir = "E:\DataBase"
DlgData.ShowSave
备份一下数据库，就是给数据库赋值到另外一个地方

Answer 2

这个问题比较专业了，建议最好找找专业的数据恢复机构，北亚数据恢复就是一家不错的地方。

追问

额~我问的只是这么写代码 copy代码而已！！！

Answer 3

是恢复坏了的ACCESS数据库？还是恢复已经备份的ACCESS数据库？

追问

其实说起来很简单，就是在我做的VB程序中添加一个数据备份以及恢复的功能，内部操作就是复制和替换数据库文件。但是我不知道这么编写代码和添加什么按钮！您知道么？

追答

刚刚网断了
Private Sub Command1_Click() '备份
Dim duy, duh
If Dir("D:\备份", vbDirectory) = "" Then
MkDir "D:\备份" '建立一个文件夹
End If
duy = App.Path & "\ACCESS.mdb"
duh = "D:\备份\" & "ACCESS.mdb" '备份路径
FileCopy duy, duh '复制文件
End Sub
Private Sub Command2_Click() '恢复
Dim duy, duh
If Dir("D:\备份\ACCESS.mdb", vbNormal) = "" Then
duy = "D:\备份\" & "ACCESS.mdb" '备份路径
duh = App.Path & "\ACCESS.mdb"
FileCopy duy, duh '复制文件
End If
End Sub

追问

在么？亲我给你发私信了！求回复求帮忙！

追答

按钮控件CommandButton二个

Private Sub Form_Load()

Command1.Caption = "备份"

Command2.Caption = "恢复"

End Sub