数据返回问题

mag770t

我在ACCESS中写以下的代码:
Dim cTab As Recordset
    Dim cTab As Recordset
    Set cTab = CurrentDb.OpenRecordset("生产进度查询", 2)
    For i = 1 To cTab.RecordCount
在"生产进度查询"中可见数据有超过10000条,但返回的"cTab.RecordCount"值仅为1,请问题各位是什么原因造成的.有关ADO的写法我也是刚在学习,请各位大大帮忙看看,谢谢!在线等待中!

mag770t

各位大大,我要实现的是将"订单配套表"中的"送成品时间"更新进"生产进度表"中的"成品入库"中,两表以订单编号进行1:1的关联,因两表中数据量都比较大,超10000条,请各位看看如何实现.谢谢! 下面为我写的代码,问题为"cTab.RecordCount"值为1,所以在做"For"循环就不能实现:
Dim cTab As Recordset
    Dim nTab As Recordset
    Set cTab = CurrentDb.OpenRecordset("生产进度表", 2)
    For i = 1 To cTab.RecordCount
        cOrdID = cTab("订单编号")
        Set nTab = CurrentDb.OpenRecordset("select 订单编号,送成品时间 from 订单配套表 where 订单编号='" & cOrdID & "'", 2)
        nData = nTab("送成品时间")
        DoCmd.SetWarnings False '屏蔽操作查询提示
        
        DoCmd.RunSQL "update 生产进度表 set 成品入库= " & nData & " where 订单编号='" & cOrdID & "'"
    Next

mag770t

哦!
"如果你在10000条的循环里用DoCmd.RunSQL ,那就完蛋了"!我知道,做超10000的DoCmd.RunSQL的速度会很慢的,不知你"tz-chf元老",那你帮忙看看怎样才能实现我的需求,试试!....