【本节要点】

     DAO(Data Access Object)是一个数据访问接口，可以直接连接到Access的表。

【相关代码】

    '要引用 Microsoft DAO 3.6 Object Library
    Dim rst As DAO.Recordset'声明rst为记录集
    Dim strSQL As String'声明一个文本变量
    strSQL = "Select * FROM tmp订单明细"
 '打开记录集，相当于打开一个表
    Set rst = CurrentDb.OpenRecordset(strSQL, 2)
    rst.MoveFirst '移到第1条记录
'循环处理数据，从第1条记录往下，直到最后一条记录
    Do Until rst.EOF
        rst.Edit '允许编辑记录
        rst!未分配量 = rst!数量 '让表中【未分配量】字段的值等于 表中【数量】字段的值
        rst.Update'更新
        rst.MoveNext '移到下一条记录
    Loop
    rst.Close '关闭记录集
    Set rst = Nothing'释放内存

【视频地址】