ADO问题！（代码）

[zhaochengqing]

dim cConn as new adodb.connection
dim rRs as new adodb.recordset

cConn.ConnectionString = "provider=MicroSoft.Jet.OLEDB.3.51;" & _
"Persist Security Info=False;Data Source=" & _
App.Path+"\LGHPM.mdb;Mode = readWrite "
cConn.Open

With rRs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open " select * from LGHPM", cConn,adOpenKeyset ,adLockOptimistic , adCmdText
End With
为什么我这样做添加记录可以，但是修改记录就不行呢？

提示如下：
Row cannot be located for updating. Some values may have been changed since it was last read.
该怎么解决这个问题。谢谢各位大虾！

[daisy8675]

Rs.Open "Select * from People", Conn, 3,3把后面的参数这样写，你看能不能改
不能改再给偶发消息:)

[daisy8675]

Private Rs As New ADODB.Recordset
Private Conn As New ADODB.Connection

Private Sub Form_Load()
Dim strConn As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"

' 使用客户端数据游标
Conn.CursorLocation = adUseClient
' 打开Access的连接
Conn.Open strConn

' 如果RecordSet的状态不是关闭状态,则关闭Recordset
If Rs.State <> adStateClosed Then Rs.Close

' Recordser打开表People
Rs.Open "Select * from People", Conn, adOpenKeyset, adLockOptimistic


End Sub

[zhaochengqing]

莫依这样不行啊，问题依旧！

[YUAN168]

是你打開記錄集的方式不對,把Rs.Open "Select * from People", Conn 後面的參數改一下!