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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。