Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim sSQL As String

Dim sOut As String

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

cn.ConnectionString = "DSN=test;UID=;PWD=;"

cn.Open

sSQL = "SELECT 班组记录.成品数量 FROM 班组记录 WHERE 班次编号='0000000' and 产品编号='000000'"

Set rs = cn.Execute(sSQL)

sOut=rs.Fields("成品数量")

MsgBox sOut

'做到这里都没有什么问题的。

rs.Fields("成品数量") = Text_cpsl

rs.Update

'就是这个不对，不知道为什么。似乎Recordset中的记录是只读的，我试着删除这条记录也不行

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

'如果Recordset真的是只读的，我该怎么改？我想按我的要求找到记录然后改变其中的一个数值。

见帖子“ADO三大对象的属性、方法、事件及常数 ”中关于Recordset对象的介绍

http://websx.home.zccn.net/bbs/dispbbs.asp?boardid=53&id=2605&star=1#8764

[此贴子已经被作者于2004-06-17 16:43:30编辑过]

问题 在这里 Set rs = cn.Execute(sSQL)

使用connection对象的execute方法得到的记录集默认是只读的。