如何仅保留表结构与记录重建已损坏的Access数据库？

损坏原因定位 #

你提到的代码是调用Jet OLE DB Provider的特定架构查询（GUID {947bb102-5d43-11d1-bdbf-00c04fb92675}对应Jet系统表架构），备份库可正常运行但当前库不行，结合压缩修复无效的情况，可确定：

• 数据库系统元数据损坏：核心系统表（如MSysObjects、MSysQueries）中存储的架构信息已被破坏，OLE DB驱动无法正常读取特定架构。压缩修复仅能修复数据页、索引等表层问题，对深层系统元数据损坏无能为力。
• 损坏诱因大概率是异常关机、强制终止Access进程、磁盘IO错误导致系统元数据区写入不完整。

迁移重建步骤 #

方法1：手动导出导入（小型库首选） #

1. 新建空白.accdb数据库。
2. 若损坏库能打开：选中目标表→右键导出→选择新建库，先勾选「仅定义」导出表结构；再重复导出，勾选「定义和数据」，遇到单条记录报错时直接跳过。
3. 若损坏库无法打开：打开新库→外部数据→导入并链接→选择损坏库，导入表时勾选跳过错误记录。

方法2：VBA批量迁移（大型库高效方案） #

新建空白库，插入模块，引用DAO库后运行以下代码（替换源库路径）：

Sub MigrateTables()
    Dim dbSource As DAO.Database, dbDest As DAO.Database
    Dim tdf As DAO.TableDef, rs As DAO.Recordset
    Dim strSourcePath As String
    
    ' 替换为你的损坏数据库路径
    strSourcePath = "C:\YourPath\CorruptedDB.accdb"
    
    Set dbDest = CurrentDb
    Set dbSource = OpenDatabase(strSourcePath, False, True) ' 只读打开源库
    
    For Each tdf In dbSource.TableDefs
        ' 跳过系统表
        If Left(tdf.Name, 4) <> "MSys" Then
            On Error Resume Next
            ' 导入表结构
            dbDest.CreateTableDef tdf.Name, tdf.Attributes, tdf.SourceTableName, tdf.Connect
            dbDest.TableDefs.Refresh
            
            ' 迁移记录，跳过损坏条目
            Set rs = dbSource.OpenRecordset(tdf.Name, dbOpenDynaset)
            Do While Not rs.EOF
                On Error Resume Next
                dbDest.Execute "INSERT INTO [" & tdf.Name & "] SELECT * FROM [" & tdf.Name & "] IN """ & strSourcePath & """ WHERE ID = " & rs!ID
                On Error GoTo 0
                rs.MoveNext
            Loop
            rs.Close
            On Error GoTo 0
        End If
    Next tdf
    
    dbSource.Close
    Set dbSource = Nothing: Set dbDest = Nothing
    MsgBox "迁移完成"
End Sub

注意：代码默认表有主键ID，若无主键，可修改为用其他唯一标识字段，或直接批量插入时靠错误捕获跳过损坏记录。

方法3：拆分数据库辅助（若原库为拆分结构） #

若原库是前后端拆分的，直接备份后端并重新链接前端；若非拆分结构，尝试先拆分损坏库（若可操作），再迁移后端数据到新库。

后续预防措施 #

• 开启Access自动备份：文件→选项→客户端设置→勾选自动备份。
• 避免在磁盘空间不足时操作数据库，防止写入失败。
• 禁止强制终止Access进程，关闭时等待程序正常退出。

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