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

wangzhenbo 2006-06-05 04:15:22
请问这个错误可能由什么原因引起?
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时报上述错误.
...全文
224 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
feiyun0112 2006-06-05
  • 打赏
  • 举报
回复
rs1.update
rs1.MoveNext
wangzhenbo 2006-06-05
  • 打赏
  • 举报
回复
比如说......
ilove8 2006-06-05
  • 打赏
  • 举报
回复
会不会别的地方引起的错误啊

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧