使用DAO获取MS Access数据类型时CurrentDb未定义问题求助

先搞定CurrentDb未定义的问题 #

• 如果你是在**非Access环境（比如Excel VBA）**里用DAO：CurrentDb是Access VBA专属的内置函数，这里不能用，得换成DBEngine.OpenDatabase来打开目标Access文件，示例见下面的函数。
• 如果你是在Access VBA里：
  1. 检查引用顺序：如果同时引用了ADO和DAO，把DAO的引用（比如Microsoft DAO 3.6 Object Library）移到ADO前面，避免对象命名冲突；或者直接写DAO.CurrentDb明确指定用DAO的对象。
  2. 排查命名冲突：看看你有没有自己定义过叫CurrentDb的变量、函数或者模块名，改个名字就行。
  3. 测试验证：按Ctrl+G打开立即窗口，输入? DAO.CurrentDb.Name回车，要是能返回当前数据库名称，说明环境没问题，就是代码里的冲突；要是还报错，重新添加DAO引用试试。

获取列数据类型的具体实现 #

下面是一个通用函数，不管在Access还是其他VBA环境都能用，传入数据库路径、表名、列名就能返回对应的数据类型：

Function GetColumnDataType(dbPath As String, tableName As String, columnName As String) As String
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    
    ' 打开指定Access数据库
    Set db = DBEngine.OpenDatabase(dbPath)
    ' 获取目标表对象
    Set tdf = db.TableDefs(tableName)
    
    ' 遍历表的字段，匹配目标列名
    For Each fld In tdf.Fields
        If fld.Name = columnName Then
            ' 根据DAO字段类型返回对应中文描述
            Select Case fld.Type
                Case dbText: GetColumnDataType = "字符串"
                Case dbLong: GetColumnDataType = "整数"
                Case dbDouble: GetColumnDataType = "双精度浮点数"
                Case dbDate: GetColumnDataType = "日期"
                Case dbBoolean: GetColumnDataType = "布尔值"
                Case dbCurrency: GetColumnDataType = "货币"
                Case dbMemo: GetColumnDataType = "备注"
                ' 其他类型可以根据需要补充，参考DAO.Field.Type的枚举值
                Case Else: GetColumnDataType = "未知类型(" & fld.Type & ")"
            End Select
            Exit For
        End If
    Next fld
    
    ' 释放对象，避免内存泄漏
    Set fld = Nothing
    Set tdf = Nothing
    db.Close
    Set db = Nothing
End Function

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