MS Access如何查询各字段最长值长度以适配SQL Server迁移

Access原生没有内置单条查询可以直接返回全库所有文本字段的最长值，你可以通过VBA脚本一键完成统计，无需手动编写200条查询语句，具体操作步骤如下：

操作步骤 #

1. 打开目标Access数据库，按Alt + F11唤起VBA编辑器
2. 在左侧工程资源管理器右键点击当前数据库名称，选择「插入」→「模块」
3. 将下方代码粘贴到模块编辑区，按F5运行即可

Sub 统计所有文本字段最大长度()
    Dim rs As DAO.Recordset
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim maxLen As Long
    ' 先删除已存在的结果表
    On Error Resume Next
    CurrentDb.Execute "DROP TABLE 字段长度统计"
    On Error GoTo 0
    ' 创建新的结果存储表
    CurrentDb.Execute "CREATE TABLE 字段长度统计(表名 TEXT(255), 字段名 TEXT(255), 最大长度 LONG)"
    
    ' 遍历所有用户表
    For Each tdf In CurrentDb.TableDefs
        ' 跳过系统表和临时表
        If Left(tdf.Name, 4) <> "MSys" And Left(tdf.Name, 1) <> "~" Then
            For Each fld In tdf.Fields
                ' 仅统计文本、备注类型字段
                If fld.Type = dbText Or fld.Type = dbMemo Then
                    ' 计算该字段存储的最长值长度
                    Set rs = CurrentDb.OpenRecordset("SELECT MAX(LEN([" & fld.Name & "])) AS max_len FROM [" & tdf.Name & "]")
                    If Not rs.EOF Then
                        maxLen = Nz(rs!max_len, 0)
                    End If
                    rs.Close
                    ' 写入结果表
                    CurrentDb.Execute "INSERT INTO 字段长度统计(表名, 字段名, 最大长度) VALUES('" & Replace(tdf.Name, "'", "''") & "','" & Replace(fld.Name, "'", "''") & "'," & maxLen & ")"
                End If
            Next fld
        End If
    Next tdf
    MsgBox "统计完成，结果已存入「字段长度统计」表"
End Sub

注意事项 #

• 脚本默认跳过Access系统表，仅统计用户自建的普通表，如果需要统计链接表，可以自行修改表过滤条件
• 对于长度超过255的备注字段，如果需要统计完整内容长度，可以将计算逻辑中的LEN([" & fld.Name & "])替换为LENB(StrConv([" & fld.Name & "], vbFromUnicode))
• 迁移到SQL Server时建议字段长度留10%-30%的冗余，避免后续业务数据超过限制，比如统计得到最大长度为132，可以设置为VARCHAR(255)

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