VB6.0 压缩Access数据库的例子,
Dim strBackupFile As String
Dim strTempFile As String
'检查数据库文件是否存在
If Len(Dir(Location)) Then
'判断是否需要备份
If BackupOriginal = True Then
strBackupFile = GetTemporaryPath & "backup.mdb"
'预备分文件若已经存在,则删除
If Len(Dir(strBackupFile)) Then Kill strBackupFile
FileCopy Location, strBackupFile
End If
strTempFile = GetTemporaryPath & "temp.mdb"
If Len(Dir(strTempFile)) Then Kill strTempFile
'通过DBEngine压缩数据库文件
DBEngine.CompactDatabase Location, strTempFile
'删除原来的数据库文件
Kill Location
'拷贝刚刚压缩过临时数据库文件至原来位置
FileCopy strTempFile, Location
MsgBox "数据库压缩成功!", vbInformation, "完成"
Else
MsgBox "数据库文件不存在!", vbExclamation, "注意"
End If
Exit Sub
VB6.0 压缩Access数据库
- 相关标签:压缩数据库
- 调试环境:VB6+Access
- 文件大小:2.58K
- 资源评级:
- 更新时间:2020-07-14
- 相关链接:暂无演示
下载地址:
本类源码推荐
最新网页特效
下载声明:
本站资源仅供学习参考,禁止用于非法途径。若“VB6.0 压缩Access数据库”源代码侵犯了您的权益,请尽快告诉我们。