为什么不能更新数据库

Question

Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetSet conn = New ADODB.Connection
conn.Open "Provider=MSDAORA.1;Password=password;User ID=user;Data Source=data;Persist Security Info=True"rs.Open "select * from A where num='001'", conn, adOpenKeyset, adLockOptimistic
rs!field_a.Value = "1000"
rs.Update
conn.Close
以上代码 是连接的oracle9i的数据库结果执行的时候报是"当前记录集不支持更新,可能是提供程序的限制,也可能是选定锁定类型的限制"达人帮我看下到底是怎么回事啊 谢谢

Answer 1

rs.Open "select * from A where num='001' for update", conn, adOpenKeyset, adLockOptimistic

Answer 2

select * from A where num='001' for update

Answer 3

加了 for update还是老样子