VB 压缩Access数据库

最新推荐文章于 2026-06-17 11:09:16 发布

原创

最新推荐文章于 2026-06-17 11:09:16 发布 · 905 阅读

标签

#access #vb #string #数据库 #function

#kill

收录于

本文提供了一个VB子程序`CompactJetDatabase`，用于压缩Access数据库。首先，它检查数据库文件是否存在，然后根据参数决定是否备份原始文件。接着，创建临时文件并利用`DBEngine.CompactDatabase`进行压缩，替换原文件，最后删除临时文件。此外，还有一个辅助函数`GetTemporaryPath`用于获取临时文件路径。

Private Const MAX_PATH = 260
 Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Public Sub CompactJetDatabase(Location As String, _
                              Optional BackupOriginal As Boolean = True)

    On Error GoTo CompactErr

    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

        '删除原来的数据库文件