为什么不能大量更新数据?

[qwher]

见程序:

Adodc3.CommandType = adCmdText
Adodc3.RecordSource = "select * from setc where 141000<=userno and userno>=142999 order by userno"
Adodc3.Refresh

Adodc1.Recordset.MoveFirst

Do While Not Adodc1.Recordset.EOF

Adodc3.Recordset.AddNew

Text3(0).Text = Text1(0).Text
Text3(1).Text = Val(Text1(3).Text) + Val(Text1(5).Text)
Text3(2).Text = Val(Text1(4).Text) + Val(Text1(6).Text)

Adodc3.Recordset.Fields("tottc") = 0

'问题出现(开始几条记录没有问题)
Adodc3.Recordset.Update
Adodc1.Recordset.MoveNext
Loop

[whachun]

错误信息是什么，
信息全面一点，这样太不清楚了

[fuanwei]

update setc set tottc= "& 0 &" where 141000<=userno and userno>=142999

[zjcxc]

错误提示是什么?

[TechnoFantasy]

反复频繁的执行Update是会有问题的。你为什么不在一个SQL语句里面完成呢？

[qwher]

请问怎么写这个sql语句呢?

[43720938]

Text3(0).Text = Text1(0).Text
Text3(1).Text = Val(Text1(3).Text) + Val(Text1(5).Text)
Text3(2).Text = Val(Text1(4).Text) + Val(Text1(6).Text)

不明白这段代码的意思，你的整个思路都看不明不知道你要实现什么？

[weaest]

update setc set tottc='0' where 141000<=userno and userno>=142999

[qwher]

呵呵...我是从一foxpro表取数据到另外一个表

[uxuan]

'问题出现(开始几条记录没有问题)
是什么意思，报什么错呢
关键字重了吗

[qwher]

我程序实现的功能是从一个数据表中取数据形成报表,如程序所示.

[qwher]

如:TechnoFantasy(冰儿马甲www.applevb.com) 所说

反复频繁的执行Update是会有问题的。

[qwher]

问题解决了！
原程序环境：vb6.0 + vfp5.0 + Win98
现在环境：vb6.0 + vfp5.0 + WinXp

将ADO改为：CursorLocation:adUseserver；
并在程序前加：On Error Resume Next
OK!!!