如何将包含外键约束的MS Access数据库导出至PostgreSQL？

问题诊断 #

你的核心痛点是ODBC单表导出丢失表间关联、Python脚本未包含外键约束、现有VBA脚本仅处理主键/索引完全忽略外键——表间关联依赖的外键约束缺失，是迁移后数据关系断裂的关键原因。

修正后的VBA脚本（支持主键、索引、外键） #

以下脚本会遍历Access数据库的表、索引、关联关系，生成符合PostgreSQL语法的完整约束SQL：

Sub GeneratePostgreSQLConstraints(Optional quoteFields As Boolean = True)
    Dim db As Database
    Dim tdf As TableDef
    Dim fld As DAO.Field
    Dim ndx As DAO.Index
    Dim rel As DAO.Relation
    Dim strSQL As String
    Dim strFlds As String
    Dim fs, f
    Dim delimStart As String, delimEnd As String
    
    ' 设置标识符引号（PostgreSQL建议用双引号保留大小写/特殊字符）
    delimStart = IIf(quoteFields, """", "")
    delimEnd = delimStart

    Set db = CurrentDb
    Set fs = CreateObject("Scripting.FileSystemObject")
    ' 输出文件路径，自行修改
    Set f = fs.CreateTextFile("C:\pg_constraints.sql", True, True) ' 第三个参数为True表示UTF-8编码

    ' 1. 生成主键和索引SQL
    For Each tdf In db.TableDefs
        ' 跳过系统表和临时表
        If Left(tdf.Name, 4) <> "Msys" And Left(tdf.Name, 1) <> "~" Then
            For Each ndx In tdf.Indexes
                strSQL = ""
                If ndx.Primary Then
                    ' 生成主键约束，命名为pk_表名
                    strSQL = "ALTER TABLE " & delimStart & tdf.Name & delimEnd & _
                             " ADD CONSTRAINT " & delimStart & "pk_" & tdf.Name & delimEnd & _
                             " PRIMARY KEY ("
                Else
                    ' 生成普通/唯一索引，命名为idx_表名_索引名（替换空格为下划线）
                    strSQL = IIf(ndx.Unique, "CREATE UNIQUE INDEX ", "CREATE INDEX ") & _
                             delimStart & "idx_" & tdf.Name & "_" & Replace(ndx.Name, " ", "_") & delimEnd & _
                             " ON " & delimStart & tdf.Name & delimEnd & " ("
                End If

                ' 拼接索引字段
                strFlds = ""
                For Each fld In ndx.Fields
                    strFlds = strFlds & "," & delimStart & fld.Name & delimEnd
                Next
                strSQL = strSQL & Mid(strFlds, 2) & ");"
                
                f.WriteLine strSQL
            Next ndx
        End If
    Next tdf

    ' 2. 生成外键约束SQL
    f.WriteLine vbCrLf & "-- 外键约束"
    For Each rel In db.Relations
        ' 跳过系统关系
        If Left(rel.Name, 4) <> "Msys" Then
            strSQL = "ALTER TABLE " & delimStart & rel.ForeignTable & delimEnd & _
                     " ADD CONSTRAINT " & delimStart & "fk_" & rel.ForeignTable & "_" & rel.Table & delimEnd & _
                     " FOREIGN KEY ("
            
            ' 拼接外键字段
            strFlds = ""
            For Each fld In rel.Fields
                strFlds = strFlds & "," & delimStart & fld.ForeignName & delimEnd
            Next
            strSQL = strSQL & Mid(strFlds, 2) & ") REFERENCES " & delimStart & rel.Table & delimEnd & " ("
            
            ' 拼接引用的主键字段
            strFlds = ""
            For Each fld In rel.Fields
                strFlds = strFlds & "," & delimStart & fld.Name & delimEnd
            Next
            strSQL = strSQL & Mid(strFlds, 2) & ");"
            
            f.WriteLine strSQL
        End If
    Next rel

    f.Close
    MsgBox "SQL文件生成完成！"
End Sub

关键改动说明 #

1. 新增外键处理：遍历Access的Relations集合，自动生成PostgreSQL外键约束，完整保留表间关联
2. 优化标识符引号：默认启用双引号包裹标识符，避免PostgreSQL大小写敏感导致的表/字段找不到问题
3. UTF-8编码输出：生成SQL文件时使用UTF-8编码，兼容中文表名/字段名
4. 规范约束命名：主键命名为pk_表名，外键命名为fk_子表名_父表名，索引命名为idx_表名_索引名，符合PostgreSQL命名规范

使用步骤 #

1. 先将Access的所有表结构和数据导入PostgreSQL（可使用原Python脚本，或Access的"外部数据>导出>ODBC"批量导出表数据）
2. 在Access中打开VBA编辑器（Alt+F11），将上述代码粘贴到模块中
3. 修改脚本中的输出文件路径，运行GeneratePostgreSQLConstraints宏
4. 在PostgreSQL中执行生成的pg_constraints.sql文件，完成主键、索引、外键的创建

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