下面这段代码,在数据量比较大的情况下,更新太慢了,请问怎么才能提高更新速度,谢谢
rs.Open "select * from Tb_sf_bdsf_temp", mydb, 3, 3
For i = 1 To rs.Recordcount
DoCmd.RunSQL "UPDATE t_perpiece_sj set FsplitLine17='" & Format(Date, "yyyy-mm-dd") & "' where FproSpe='Shouf' and Fdept='DeptA' and FsplitLine17='0' and forderno='" & rs!Forderno & "' and Fstyle='" & rs!Fstyle & "' and format(fdate,'yyyy-mm-dd')<='" & Txtrq & "'"
rs.MoveNext
Next