数据备份问题，请指点~~~~~~

2003-04-02 06:33:00 74 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VS2013(update4) + wdk8.1 驱动开发环境搭建这里，终于捣鼓出来了：windows下使用VS2013(update4) + wdk8.1 驱动开发环境的搭建。之前，也就在昨晚，我把wdk8.1下载下来并安装，但是就是在完成WDK8.1的安装后，在VS2013中就是找不到驱动开发的模版。如下图：我挨着把模版下面的每个选项都找遍了，就是没有。在谷歌和github 上找了解决方案，我是没有找到我遇到问题的解决阅读详情

我做了一个小程序，需要将数据备份，可试了几个压缩控件都不好用
哪位大哥有好用的给小弟一个好用的控件或好的备份方法，谢谢了~~~~

...全文

Spring Boot实现定时任务定时任务是指在预定的时间点或按照特定的时间间隔自动执行的任务。定时任务的应用场景：操作系统维护：例如，定期清理临时文件、更新系统补丁等。数据备份：定期对重要数据进行备份，以防数据丢失。自动化测试：例如，在每天凌晨自动运行软件测试脚本。网站维护：比如定时发布新内容、定时发送邮件提醒等。数据分析：例如，定期汇总和分析业务数据，生成报告。阅读详情

xhstudio

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

lxcc 2003-04-04

打赏
举报

zhangbob 2003-04-04

打赏
举报

' 压缩 Access 数据库
Public Sub CompactJetDatabase(SourceFile As String, Optional Password As String, Optional BackupOriginal As Boolean = True)
On Error GoTo CompactErr

Dim strBackupFile As String
Dim strTempFile As String

' 判断来源文件是否存在
If Dir(SourceFile) <> "" Then
' 如果需要备份原文件
If BackupOriginal = True Then
strBackupFile = GetSourceFilePath(SourceFile) & "Backup.mdb"
If Dir(strBackupFile) <> "" Then
Kill strBackupFile
End If

FileCopy SourceFile, strBackupFile
End If

' 建立压缩文件名
strTempFile = GetSourceFilePath(SourceFile) & "Temp.mdb"
If Dir(strTempFile) <> "" Then
Kill strTempFile
End If

' 通过 DBEngine 压缩文件，注意，您必须引用 Microsoft DAO 3.xx Object Library
DBEngine.CompactDatabase SourceFile, strTempFile, , , ";Pwd=" & Password & ";"
' 删除旧文件
Kill SourceFile

' 重新命名新文件名
Name strTempFile As SourceFile
Else
MsgBox SourceFile & "File not fond！", vbExclamation
End If

CompactErr:
If Err.Number <> 0 Then
MsgBox Err.Description & Err.Number, vbCritical, "error"
End If

On Error GoTo 0
Exit Sub
End Sub

Public Function GetSourceFilePath(SourceFile As String) As String
Dim n As Integer

n = InStrRev(SourceFile, "\")
GetSourceFilePath = Left(SourceFile, n)
End Function

Public Function fBrowseForFolder(hWndOwner As Long, sPrompt As String) As String
Dim iNull As Integer
Dim lpIDList As Long
Dim lResult As Long
Dim sPath As String
Dim udtBI As BrowseInfo

With udtBI
.hWndOwner = hWndOwner
.lpszTitle = lstrcat(sPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With

lpIDList = SHBrowseForFolder(udtBI)

If lpIDList Then
sPath = String$(MAX_PATH, 0)
lResult = SHGetPathFromIDList(lpIDList, sPath)
Call CoTaskMemFree(lpIDList)

iNull = InStr(sPath, vbNullChar)
If iNull Then sPath = Left$(sPath, iNull - 1)
End If

fBrowseForFolder = sPath

End Function

' 备份这个数据库
Public Function BackupDB(ByVal SourceFile As String, ByVal BackupFolderName As String) As Boolean
On Error Resume Next
Dim lFileOp As Long
Dim lResult As Long
Dim lFlags As Long
Dim SHFileOp As SHFILEOPSTRUCT
Dim strSourceDir As String
Dim strDestinationDir As String

Screen.MousePointer = vbHourglass

If Right(BackupFolderName, 1) <> "\" Then
BackupFolderName = BackupFolderName & "\"
End If

lFileOp = FO_COPY
lFlags = lFlags And Not FOF_SILENT
lFlags = lFlags Or FOF_NOCONFIRMATION
lFlags = lFlags Or FOF_NOCONFIRMMKDIR
lFlags = lFlags Or FOF_FILESONLY

With SHFileOp
.wFunc = lFileOp
.pFrom = SourceFile & vbNullChar
.pTo = BackupFolderName & "PMBackup" & Format(Date, "mmdd") & ".pmb"
.fFlags = lFlags
End With
lResult = SHFileOperation(SHFileOp)

BackupDB = (lResult = 0)

Screen.MousePointer = vbDefault
End Function

' 还原这个数据库
Public Function RestoreDB(ByVal SourceFile As String, ToFile As String) As Boolean
On Error Resume Next
Dim lFileOp As Long
Dim lResult As Long
Dim lFlags As Long
Dim SHFileOp As SHFILEOPSTRUCT

Screen.MousePointer = vbHourglass

lFileOp = FO_COPY
lFlags = lFlags And Not FOF_SILENT
lFlags = lFlags Or FOF_NOCONFIRMATION
lFlags = lFlags Or FOF_NOCONFIRMMKDIR
lFlags = lFlags Or FOF_FILESONLY

With SHFileOp
.wFunc = lFileOp
.pFrom = SourceFile & vbNullChar
.pTo = ToFile & vbNullChar
.fFlags = lFlags
End With
lResult = SHFileOperation(SHFileOp)

RestoreDB = (lResult = 0)

Screen.MousePointer = vbDefault
End Function

xhstudio 2003-04-04

打赏
举报

可能是我没说明白吧
把数据备份到软盘上啊，我想还压缩下好吧，那么不就要用到压缩控件
我的ACCESS库里有3个表，做文本不好吧，如果文件大于1。44了，那就要分盘，
所以本本和ACCESS本身的压缩好像就不实用了吧

大家做程序的时候不做备份功能吗？

TRUE 2003-04-04

打赏
举报

access 有压缩的功能，可以查找一下

xayzmb 2003-04-04

打赏
举报

导出到文本文件
恢复时
再从文本文件读回来。

xhstudio 2003-04-04

打赏
举报

是ACCESS的数据库呀
本来我想用压缩控件的，可是没找到好用的，好多都不好用，还有别的办法吗

ivt 2003-04-02

打赏
举报

如是SQL数据库
直接用
backup database XXXX to disk='c:\backup\XXX.bak'
就行
restore database XXXX from disk=''

数据备份问题，请指点~~~~~~

相关推荐