通过Python脚本重组MS Access数据库失败问题求助

1. 纠正DoCmd.RunCommand参数错误 #

你使用的access_app.DoCmd.RunCommand(4)参数不正确，Access中对应压缩并修复数据库的命令常量是acCmdCompactDatabase，其数值为140，而非4。直接修改参数即可：

access_app.DoCmd.RunCommand(140)

更易维护的写法是先定义常量：

acCmdCompactDatabase = 140
access_app.DoCmd.RunCommand(acCmdCompactDatabase)

2. 确保独占访问权限 #

压缩修复需要对数据库的独占访问权，打开数据库时需指定独占模式，尤其是无Office许可证的场景，避免权限问题导致操作无效：

import win32com.client

access_app = win32com.client.Dispatch("Access.Application")
# True 参数表示独占模式打开
access_app.OpenCurrentDatabase(r"C:\your\db\path\database.accdb", True)
access_app.DoCmd.RunCommand(140)
access_app.CloseCurrentDatabase()
access_app.Quit()

3. VBA宏实现压缩修复的方案 #

若想用宏调用，按以下步骤操作：

• 打开目标Access数据库，新建宏
• 在宏操作列表中选择CompactDatabase（若找不到，在"设计"选项卡勾选"显示所有操作"）
• 保存宏为CompactDB
• Python中调用宏：

access_app.DoCmd.RunMacro("CompactDB")

也可以用VBA过程实现更可控的压缩逻辑：

Public Sub CompactDB()
    Dim tempPath As String
    tempPath = Environ("TEMP") & "\temp_compacted.accdb"
    ' 压缩到临时文件
    CompactDatabase CurrentDb.Name, tempPath
    ' 替换原文件
    Kill CurrentDb.Name
    Name tempPath As CurrentDb.Name
    ' 重新打开修复后的数据库
    Application.CloseCurrentDatabase
    Application.OpenCurrentDatabase CurrentDb.Name
End Sub

Python中调用该VBA过程：

access_app.Run("CompactDB")

4. 旧格式.mdb的替代方案 #

如果是.mdb格式数据库，可使用JRO.JetEngine直接压缩，无需依赖Access UI命令：

import win32com.client
import os

jet_engine = win32com.client.Dispatch("JRO.JetEngine")
source_path = r"C:\your\db\path\source.mdb"
temp_path = r"C:\your\db\path\temp.mdb"

# 执行压缩
jet_engine.CompactDatabase(
    f"Provider=Microsoft.Jet.OLEDB.4.0;Data Source={source_path}",
    f"Provider=Microsoft.Jet.OLEDB.4.0;Data Source={temp_path}"
)

# 替换原文件
os.remove(source_path)
os.rename(temp_path, source_path)

内容的提问来源于stack exchange，提问作者Chris