缺少用于更新或刷新的基本表信息
请问这个错误可能由什么原因引起?
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时报上述错误.