Access VBA通过DAO记录集遍历表为变量赋值的方法咨询

你遇到的核心问题是搞反了赋值方向——直接用daRs!AAA = ...是在修改记录集里的字段值（也就是更新表格），而我们需要的是读取表格里的字段值，赋值给VBA变量。下面给你两种可行的方案，根据你的变量数量灵活选择：

方案一：针对少量已知变量（用Select Case） #

如果你的变量不多（比如只有myDSN和Password），用Select Case直接匹配变量名赋值最直观，代码也容易维护：

Sub AssignVarsFromTable()
    Dim db As DAO.Database
    Dim daRs As DAO.Recordset
    ' 声明需要赋值的变量
    Dim myDSN As String
    Dim Password As String
    
    ' 打开当前数据库和目标表格（用dbOpenSnapshot只读模式，避免误修改）
    Set db = CurrentDb()
    Set daRs = db.OpenRecordset("你的表格名称", dbOpenSnapshot)
    
    ' 遍历每一条记录
    Do While Not daRs.EOF
        ' 读取当前记录的变量名和对应值（替换成你表格的实际字段名）
        Dim currentVarName As String
        Dim currentVarValue As String
        currentVarName = daRs!AAA ' 表格里存变量名的字段
        currentVarValue = daRs!AAB ' 表格里存对应值的字段
        
        ' 根据变量名匹配赋值
        Select Case currentVarName
            Case "myDSN"
                myDSN = currentVarValue
            Case "Password"
                Password = currentVarValue
            ' 如果有其他变量，继续添加Case分支
        End Select
        
        daRs.MoveNext ' 移动到下一条记录
    Loop
    
    ' 收尾：关闭对象，释放内存
    daRs.Close
    Set daRs = Nothing
    Set db = Nothing
    
    ' 测试赋值结果（可选）
    MsgBox "myDSN: " & myDSN & vbCrLf & "Password: " & Password
End Sub

方案二：针对大量变量（用类模块+CallByName） #

如果需要赋值的变量很多，写一堆Case太繁琐，可以用类模块配合CallByName实现动态赋值：

1. 首先创建一个类模块：

   • 打开VBA编辑器，右键插入「类模块」，将类名改为clsAppVariables
   • 在类模块里声明所有需要赋值的变量：

     Public myDSN As String
     Public Password As String
     ' 其他需要赋值的变量继续在这里声明
     

2. 然后在标准模块里写遍历赋值的代码：

   Sub AssignVarsWithClass()
       Dim db As DAO.Database
       Dim daRs As DAO.Recordset
       Dim appVars As New clsAppVariables ' 实例化类对象
       
       Set db = CurrentDb()
       Set daRs = db.OpenRecordset("你的表格名称", dbOpenSnapshot)
       
       Do While Not daRs.EOF
           ' 动态给类对象的属性赋值（替换成你表格的实际字段名）
           CallByName appVars, daRs!AAA, vbLet, daRs!AAB
           daRs.MoveNext
       Loop
       
       ' 收尾
       daRs.Close
       Set daRs = Nothing
       Set db = Nothing
       
       ' 测试结果
       MsgBox "myDSN: " & appVars.myDSN & vbCrLf & "Password: " & appVars.Password
   End Sub
   

关键注意点 #

• 记录集模式：用dbOpenSnapshot而不是默认的dbOpenDynaset，因为我们只需要读取数据，快照模式是只读的，既高效又能避免误修改表格。
• 字段名匹配：确保代码里的字段名和你表格里的实际字段完全一致，比如你的表格是AAA存变量名、AAB存值，就直接用daRs!AAA和daRs!AAB。

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