1,216
社区成员
发帖
与我相关
我的任务
分享请教rdo访问sql server的问题
这是我用rdo访问sql server的全过程。当修改数据库中的数据时显示出错：结果集只读。请指教，谢谢！
Public Rde_sys As rdoEnvironment
Public Rdc_sys As rdoConnection
Dim rdoIc As rdoResultset
Set Rde_sys = rdoCreateEnvironment("", "sa", "")
Rde_sys.CursorDriver = 1
Set Rdc_sys = Rde_sys.OpenConnection("ntsql", , , "uid=sa;pwd=")
Rdc_sys.Execute "use unistardb"
Rdc_sys.QueryTimeout = 10
sql = "select room_id,gst_namee,gst_namec,pubic_time,reach_date,leave_date,bed,floor_no,build_no,flag from iccard_info where flag = 0 and room_id like '" & roomid & "' and datediff(day,'" + nsdate + "', reach_date)=0"
Set rdoIc = Rdc_sys.OpenResultset(sql)
If Not rdoIc.EOF Then
rdoIc.Edit '显示出错：结果集只读
rdoIc(5) = data1
rdoIc.Update
End If
rdoIc.Close: Set rdoIc = Nothing
Public Rde_sys As rdoEnvironment
Public Rdc_sys As rdoConnection
Dim rdoIc As rdoResultset
Set Rde_sys = rdoCreateEnvironment("", "sa", "")
Rde_sys.CursorDriver = 1
Set Rdc_sys = Rde_sys.OpenConnection("ntsql", , , "uid=sa;pwd=")
Rdc_sys.Execute "use unistardb"
Rdc_sys.QueryTimeout = 10
sql = "select room_id,gst_namee,gst_namec,pubic_time,reach_date,leave_date,bed,floor_no,build_no,flag from iccard_info where flag = 0 and room_id like '" & roomid & "' and datediff(day,'" + nsdate + "', reach_date)=0"
Set rdoIc = Rdc_sys.OpenResultset(sql)
If Not rdoIc.EOF Then
rdoIc.Edit '显示出错：结果集只读
rdoIc(5) = data1
rdoIc.Update
End If
rdoIc.Close: Set rdoIc = Nothing
...全文
请发表友善的回复…
发表回复
sujiang 2003-09-16
- 打赏
- 举报
不要用RDO，用ADO访问。
jirim 2003-09-16
- 打赏
- 举报
等了几天了，怎么还是没人理我啊！！
jirim 2003-09-12
- 打赏
- 举报
那位大哥帮帮忙啦
yijiansong 2003-09-12
- 打赏
- 举报
UP
