您所在位置：主题：备份Access数据库
silencer
[专家分：0] 发布于 2009-02-14 13:41:00
[size=2]代码如下:[/size]
Private Sub backup_Click()
Dim i As String
On Error Resume Next
With cdlog1
.DialogTitle = "数据备份"
.InitDir = App.path
.FileName = "backup.mdb"
.Filter = "(数据库)*.mdb|*.mdb"
.CancelError = True
.ShowSave
i = .FileName
End With
If Right$(App.path, 1) <> "\" Then spath = App.path & "\"
ssource = spath & "db2.mdb"
sdest = i
If Err.Number <> cdlCancel Then
On Error GoTo sjbf_error
If Dir$(i) <> "" Then
s = MsgBox("文件已存在,确认替换它！", vbYesNo + vbQuestion)
If s = 6 Then
FileCopy ssource, sdest
Kill sdest
DBEngine.CompactDatabase ssource, sdest
MsgBox "数据备份成功！", vbInformation
Else
backup_Click
End If
Else
FileCopy ssource, sdest
DBEngine.CompactDatabase ssource, sdest
MsgBox "数据备份成功！", vbInformation
End If
End If
Exit Sub
sjbf_error:
If Err = 70 Then
MsgBox "数据库正在使用，请关闭所有数据窗口，从新开始备份", vbExclamation
Else
MsgBox Err.Description, vbExclamation
End If
End Sub
[b]为什么老是提示"数据库正在使用，请关闭所有数据窗口，从新开始备份",如何解决错误70，谢谢[/b]
Private Sub backup_Click()
Dim i As String
On Error Resume Next
With cdlog1
.DialogTitle = "数据备份"
.InitDir = App.path
.FileName = "backup.mdb"
.Filter = "(数据库)*.mdb|*.mdb"
.CancelError = True
.ShowSave
i = .FileName
End With
If Right$(App.path, 1) <> "\" Then spath = App.path & "\"
ssource = spath & "db2.mdb"
sdest = i
If Err.Number <> cdlCancel Then
On Error GoTo sjbf_error
If Dir$(i) <> "" Then
s = MsgBox("文件已存在,确认替换它！", vbYesNo + vbQuestion)
If s = 6 Then
FileCopy ssource, sdest
Kill sdest
DBEngine.CompactDatabase ssource, sdest
MsgBox "数据备份成功！", vbInformation
Else
backup_Click
End If
Else
FileCopy ssource, sdest
DBEngine.CompactDatabase ssource, sdest
MsgBox "数据备份成功！", vbInformation
End If
End If
Exit Sub
sjbf_error:
If Err = 70 Then
MsgBox "数据库正在使用，请关闭所有数据窗口，从新开始备份", vbExclamation
Else
MsgBox Err.Description, vbExclamation
End If
End Sub
[b]为什么老是提示"数据库正在使用，请关闭所有数据窗口，从新开始备份",如何解决错误70，谢谢[/b]
