好心人请帮我一把,这个奇怪的问题困扰一周了,

[weiwang2005]

Set Rs_KozaKanriF = DbObj.rdoCon.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
Rs_KozaKanriF .Edit

在执行 Rs_KozaKanriF .Edit 时出错，原因结果集为只读,但我上面参数写的是rdConcurRowVer
这是为什么阿.

[crycoming]

Dim szSQL$
Dim rdorst As rdoResultset
Dim mrdoEnv As rdoEnvironment
Dim mrdoConn As rdoConnection
Dim mbConnOpen As Boolean

'Initialize the Environment.
rdoEngine.rdoDefaultCursorDriver = rdUseServer
Set mrdoEnv = rdoEngine.rdoCreateEnvironment("TrueFalseTest", "", "")
mrdoEnv.UserName = "admin"


Set mrdoConn = mrdoEnv.OpenConnection(DSName:="Northwind", Prompt:=rdDriverComplete, _
ReadOnly:=False, Connect:="pwd=;")'注意这儿的ReadOnly


mrdoConn.QueryTimeout = 60
mbConnOpen = True


szSQL = "Create table TrueFalse(Check1 bit, Check2 bit)"
mrdoConn.Execute szSQL


szSQL = "SELECT * FROM TrueFalse"
Set rdorst = mrdoConn.OpenResultset(szSQL, rdOpenKeyset, rdConcurRowVer)

rdorst.AddNew

rdorst!Check1 = True
rdorst!Check2 = True

rdorst.Update
rdorst.Close

[conrad_wan]

gz

[faysky2]

Set Rs_KozaKanriF = DbObj.rdoCon.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
改为:
Set Rs_KozaKanriF = DbObj.rdoCon.OpenResultset(SQL, rdOpenKeyset, rdConcurRowVer)
试试

[浪子家园]

库连接设为了只读改为开放式即可