基于查询的更新失败,因为没有发现要更新的行

[思考]

基于查询的更新失败,因为没有发现要更新的行：
Dim s$, k#, X1#, X2#, x3#, x4#, i&
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

conn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & MyPath & path & ";Exclusive=No;"
s = "select * from station1": rs.Open s, conn, adOpenStatic, adLockPessimistic
For i = 1 To rs.RecordCount
k = rs("rain")
rs("rain") = k + 0.1
rs.Update '在这里出错，数据类型也对的，k值也对，且rs("rain") 的值表面上也修改了
rs.MoveNext
Next
rs.Close
conn.Close

[king06]

rs.Open s, conn, adOpenKeyset, adLockOptimistic

[思考]

谢谢，但一样的错误

[xuggzu]

1、把rs.CursorLocation改成client；
2、把adOpenStatic改成adOpenDynamic或者adOpenKeyset；
3、使用sql语句更新，即“update”。

[chinaboyzyq]

.
.
conn.CursorLocation = adUseClient
conn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & MyPath & path & ";Exclusive=No;"
.
.

[思考]

谢谢，使用sql语句更新，即“update”才解决