实时错误 '-2147467259 (80004005)': 查询过于复杂。
Private Sub Command6_Click() '订单修改
If AdoData.State > 0 Then AdoData.Close 'Rx
AdoData.Open "Select * From Rx where JOB='" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic
AdoData.Fields("CF") = UCase(Text44.Text)
AdoData.Update
AdoData.Close
End Sub

代码如上

调试的时候出现 实时错误 '-2147467259 (80004005)': 查询过于复杂。的提示，怎么回事？

代码本来很长，但是我把其他的删了，就留1句写入语句，还是提示这个错误。


执行的顺序是这样的：我先写入数据（写入的数据比较多，但这时候没问题）。然后我进行查询，找到了刚写入的那条记录，然后我再进行修改，就出现上面的错误提示。点击调试按钮，定位在AdoData.Update




[解决办法]
这得看你Text1.Text里面的东西啦.
自己在这一句设个断点看看最后的sql语句到底是什么吧
[解决办法]
update Rx set CF='" & UCase(Text44.Text) & "' where JOB='" & Text1.Text & "'"


换这个sql