缺少用于更新或刷新的基本表信息

[wangzhenbo]

请问这个错误可能由什么原因引起?
dim priKey as Long
Dim conn As New Connection

conn.ConnectionString = "Driver={PostgreSQL Unicode};Server=127.0.0.1;UID=sa;PWD=sa;Database=postgres"

conn.CursorLocation = adUseClient
conn.ConnectionTimeout = 5
conn.Open

rs1.Open "select * from abc where per_num is not null", conn, adOpenStatic, adLockOptimistic, adCmdText

Do Until rs1.EOF
rs2.Open "select pri_key from xyz where name='www'",conn, adOpenStatic, adLockOptimistic, adCmdText
If Not rs2.EOF Then
priKey = rs2("pri_key")
rs1("num") = priKey
End If

'关闭2.
Call closeRecordset(rs2)

rs1.MoveNext
Loop

执行rs1.MoveNext时报上述错误.

[ilove8]

会不会别的地方引起的错误啊

[wangzhenbo]

比如说......

[feiyun0112]

rs1.update
rs1.MoveNext