Question

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

Answer 1

最简单的就是vb对文件的复制和删除操作，你看一下这方面资料就行了。
或者你百度一下“vb ACCESS数据库备份与恢复”，看一看人家是怎么写的。

追问

看了！没成功！求解啊？跪求！！！要答辩了！还未实现呢！

追答

两个按钮控件：btSaveDatabase和btRestortDatabase，
一个Common控件（需要添加这个部件）：ComDialog

Private Sub btSaveDatabase_Click()
Dim i As Integer
Dim temp
On Error Resume Next

' 从用户处获得文本文件名称。
ComDialog.DialogTitle = "指定要保存的位置，保存系统数据库文件"
ComDialog.Filter = "数据库文件(*.mdb)|*.mdb;*.xls"

ComDialog.CancelError = True
ComDialog.DefaultExt = ".mdb"
ComDialog.ShowSave
If Err = cdlCancel Then
Exit Sub
End If
temp = ComDialog.FileName

'如果文件不存在，则返回。
Ret = Len(Dir$(temp))
If Err Then
MsgBox Error$, 48
Exit Sub
End If
If Ret Then
i = MsgBox("目标位置已经存在系统数据库文件，是否覆盖？", vbOKCancel)
If i = vbCancel Then
Exit Sub
End If
End If
FileCopy App.Path & "/data.mdb", temp

If Err.Description "" Then MsgBox Err.Description

End Sub

Private Sub btRestortDatabase_Click()
Dim hSend, BSize, LF As Long
Dim i As Integer
On Error Resume Next

' 从用户处获得文本文件名称。
ComDialog.DialogTitle = "打开数据库文件"
ComDialog.Filter = "数据库文件(*.mdb)|*.mdb;*.xls"
Do
ComDialog.CancelError = True
ComDialog.FileName = ""
ComDialog.ShowOpen
If Err = cdlCancel Then
Exit Sub
End If
temp = ComDialog.FileName

' 如果文件不存在，则返回。
Ret = Len(Dir$(temp))
If Err Then
MsgBox Error$, 48
Exit Sub
End If
If Ret Then
Exit Do
Else
MsgBox temp + " 没有找到!", 48
End If
Loop
i = MsgBox("你恢复系统文件，将覆盖原来的文件", vbOKCancel)
If i = vbOK Then
FileCopy temp, App.Path & "\data.mdb"
Else
Exit Sub
End If

If Err.Description "" Then MsgBox Err.Description
End Sub

追问

~~~~(>_<)~~~~