[求助]表的部分更新问题

coolabc

现在有两个表
主表（记录达到3万多条）
更新数据表（每天都有并且只有少部分数据，没有显示的数据的数值应该都为0）
更新过程：需要将原主表中的数据全部更新，并且需要将更新数据表中没有的记录也要更新为0值。

个人努力：通过更新查询更新，但是可能是数据量太大无法更新，且也无法达到对0值的更新。

请各位帮帮忙！

请2楼的管理员帮忙设置一下，本人还是个菜。多谢。附件发上来看看。

还有一个比较重要的!就是要更改相同存货编码的最大的销售日期!

[ 本帖最后由 coolabc 于 2008-5-30 14:55 编辑 ]

tmtony

使用VBA代码来写
循环所有主表，然后在更新数据表中找有否对应记录，如果有，则更新，如果没有，则更新为0

hi-wzj

建议您将例子放上来，看表结构是否合理。

coolabc

希望各位帮帮忙,能比较快速的方法!谢谢!

[ 本帖最后由 coolabc 于 2008-5-30 15:08 编辑 ]

hi-wzj

我猜想您是没掌握更新查询,您能否将您的想法说明清楚,比如将哪个表的哪个字段更新到哪个表的哪个字段，条件是什么？

coolabc

我是要将今年发货情况表内的日期更新到产品信息里的最近销售日期
但是条件是所更新的日期，对于相同的存货编码的取最近的日期。

zhouyunliang

经测试以下代码是最快的
Public Sub Update()
    Dim rs As DAO.Recordset
    Dim rs1 As DAO.Recordset
    CurrentDb.Execute "update 产品信息 set 最近交易日期=null"
    Set rs = CurrentDb.OpenRecordset("select * from 产品信息")
    Set rs1 = CurrentDb.OpenRecordset("select * from 今年发货情况表 order by 日期")
    While Not rs1.EOF
        rs.FindLast "存货编码 = '" & rs1.Fields("存货编码") & "'"
        rs.Edit
        rs.Fields("最近交易日期") = rs1.Fields("日期")
        rs.Update
        rs1.MoveNext
    Wend
    rs.Close
    rs1.Close
    Set rs = Nothing
    Set rs1 = Nothing
End Sub

hi-wzj

另外没有数据值和零值可不是一个概念的哦.

coolabc

现在解决了更新查询，但是怎么让他进行比较呢？

[ 本帖最后由 coolabc 于 2008-5-30 17:19 编辑 ]

coolabc

Public Sub Update()
    Dim rs As DAO.Recordset
    Dim rs1 As DAO.Recordset
    CurrentDb.Execute "update 产品信息 set 最近交易日期=null"
    Set rs = CurrentDb.OpenRecordset("select * from 产品信息")
    Set rs1 = CurrentDb.OpenRecordset("select * from 今年发货情况表 order by 日期")
    While Not rs1.EOF
        rs.FindLast "存货编码 = '" & rs1.Fields("存货编码") & "'"
        rs.Edit
        rs.Fields("最近交易日期") = rs1.Fields("日期")
        rs.Update
        rs1.MoveNext
    Wend
    rs.Close
    rs1.Close
    Set rs = Nothing
    Set rs1 = Nothing
End Sub
这段代码中是否是在将产品信息内的最近交易日期清空后再进行导入呢？
通过将日期排序来能解决日期选择最大的问题。
但是如果我所更新的数据外的数据是要保留的呢？？

[ 本帖最后由 coolabc 于 2008-5-30 17:38 编辑 ]