MS Access数据库使用vba和sql查询在列上插入值

Sub InsertValueInColumn()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim newValue As String
    
    ' 获取数据库对象
    Set db = CurrentDb
    
    ' 构造SQL语句
    strSQL = "SELECT ColumnName FROM TableName"
    
    ' 执行查询
    Set rs = db.OpenRecordset(strSQL)
    
    ' 移动到记录集的第一条记录
    rs.MoveFirst
    
    ' 遍历记录集
    Do Until rs.EOF
        ' 在列上插入值
        newValue = "新的值"
        rs.Edit
        rs!ColumnName = newValue
        rs.Update
        
        ' 移动到下一条记录
        rs.MoveNext
    Loop
    
    ' 关闭记录集和数据库对象
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub