VB备份ACCESS数据库的方法，代码

VB备份ACCESS数据库的方法，代码

这个代码其实也适用于其它类型文件的复制，要修改一下其中的语句哦~Private Sub bak_Click() Dim TargetFileName As String '目标文件名 On Error Resume Next With cdlog1 .DialogTitle = "数据备份" .InitDir = App.Path .FileName = "backup.mdb" .Filter = "(数据库)*.mdb|*.mdb" .CancelError = True .ShowSave TargetFileName = .FileName End With If Right$(App.Path,1) <> "/" Then spath = App.Path & "/" ssource = spath & "db2.mdb" On Error GoTo sjbf_error If Dir$(TargetFileName) <> "" Then If MsgBox("文件已存在,确认替换它！",vbYesNo + vbQuestion) = vbNo Then Exit Sub Kill TargetFileName '删除文件 FileCopy ssource,TargetFileName '复制文件 'DBEngine.CompactDatabase ssource,TargetFileName '压缩文件 MsgBox "数据备份成功！",vbInformation Else FileCopy ssource,vbInformation End If sjbf_error: If Err = 70 Then MsgBox "数据库正在使用，请关闭所有数据窗口，从新开始备份",vbExclamation End If End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!