Question

ACCESS adodb.recordset 不能更新

源代码如下： Do Until ups.EOF ups![期初数量] = Nz(DSum("数量", "D02材料入库", "编号='" & ups![编号] & "' and 日期<#" & Me.开始日期 & "#"), 0) - Nz(DSum("数量", "D03材料出库", "编号='" & ups![编号] & "' and 日期<#" & Me.开始日期 & "#"), 0) ups![期初金额] = Nz(DSum("数量*价格", "D02材料入库", "编号='" & ups![编号] & "' and 日期<#" & Me.开始日期 & "#"), 0) - Nz(DSum("数量*价格", "D03材料出库", "编号='" & ups![编号] & "' and 日期<#" & Me.开始日期 & "#"), 0) ups.Update ups.MoveNext Loop





Answer 1

估计你的这个数据库是别人给你的，右击数据库，中菜单选择属性，估计是只读，将只读的勾选取消就可以了。如果还不行，添加匿名用户，增加写入权限就应该没有问题了。

Answer 2

ups.edit 然后才能更新

追问

adodb.recordser 没有edit属性，

Answer 3

recordset为只读