如何按条件更新表的数据

小清　发表于：2009-06-26 10:33:01 　

复制

两个表，

1.要更新的表“CTRSTATUS ”，要更新的字段“DEVAN”，”STATUS “，根据这两个条件更新：("CONTAINER") & "' and onhand=0")

2.另一个表”tblINPUTNON“这个表没有主键，只有三个字段分别是：”CONTAINER“，“DEVAN”，”STATUS “

以下这段代码是可以执行，但执行的速度是非常慢，tblINPUTNON表只有800多条记录都要20分钟，

请务位高手分析一下，是代码问题还是我的数据本身问题。也问过一些专业人士，说既然能执行证明代码没有问题。

但我也查我的数据都是符合那两个条件的。何解？

或有无别的办法可以完成以下操作？谢谢！

Private Sub UPDATENON_Click()
Dim rs As New ADODB.Recordset
    Dim strSQL As String
    strSQL = "select CONTAINER,DEVAN,STATUS from tblINPUTNON"
    rs.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    Do While Not rs.EOF
               CurrentDb.Execute ("update CTRSTATUS set DEVAN='" & rs("DEVAN") & "',STATUS='" & rs("STATUS") & "' where CONTAINER='" & rs("CONTAINER") & "' and onhand=0")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub

Top

竹笛发表于：2009-06-26 11:20:15

每一条记录都去执行了一次更新查询,800条就是要执行800次!

Top

小清发表于：2009-06-26 11:32:00

用

Debug.print

立即视图是update CTRSTATUS set DEVAN='O',STATUS='吉' where CONTAINER='AMFU3181544' And onhand=0

如果张老师说多了个单引号，我把它去掉

立即视图是update CTRSTATUS set DEVAN='O',STATUS='吉' where CONTAINER='AMFU3181544 And onhand=0

照这样看应该没有多吧？

Top

赵文斌发表于：2009-06-28 15:22:41

Private Sub UPDATENON_Click()
Dim rs As New ADODB.Recordset

dim aa as new adodb.recordset
    Dim strSQL As String
    strSQL = "select CONTAINER,DEVAN,STATUS from tblINPUTNON"
    rs.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

aa.Open "select * from CTRSTATUS where onhand=0", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

aa.movefirst

do while not aa.eof

RS.MoveFirst

Do While Not rs.EOF

if rs!devan=aa!CONTAINER then

aa!DEVAN=rs!DEVAN

aa!STATUS='" & rs!STATUS

aa.update

end if

rs.MoveNext
Loop

aa.movenext

loop

aa.close

   set aa=nothing
    rs.Close
    Set rs = Nothing
End Sub

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]如何按条件更新表的数据