当前位置: 源码素材网 » VB源码 » 数据库实例 » 详情页

VB6.0 压缩Access数据库

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+Access
  • 文件大小:2.58K
  • 资源评级:
  • 更新时间:2020-07-14
  • 相关链接:暂无演示

源码测试截图:

VB6.0 压缩Access数据库运行截图

相似源码:压缩数据库 VB源码下载:VB6.0 压缩Access数据库 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“VB6.0 压缩Access数据库”源代码侵犯了您的权益,请尽快告诉我们。