存储过程返回的记录集如何更新（后台是SQLserver

mclly2000

窗体绑定的记录集来自ado（使用存储过程获取数据即cmd.Execute）,窗体获取记录集后无法编辑，关于锁的类型，游标位置，游标类型的设置都是正确的。看到这个帖子http://bbs.csdn.net/topics/90117687
说用command.execute产生的recordset是不能更新的,只能使用recordset.open或RecordSet =connection.execute.
由于我这个查询呢比较复杂需要使用存储过程，请教论坛老师可有什么办法让返回的记录集可更新。
原代码如下:

1. 
   
2. <P>Private Sub Form_Load()
   
3. Dim CmdUntread As New ADODB.Command
   
4. Dim RsUntread As New ADODB.Recordset
   
5. Dim pUntread01 As ADODB.Parameter
   
6. Dim pUntread02 As ADODB.Parameter
   
7. RsUntread.LockType = adLockBatchOptimistic
   
8. RsUntread.CursorType = adOpenStatic
   
9. RsUntread.CursorLocation = adUseClient
   
10. CmdUntread.ActiveConnection = NetDS'激活连接
    
11. CmdUntread.CommandText = "proc_HeaveyPerson_ReplyUntreadMsg @username=?,@CaseNumber=?"
    
12. Set pUntread01 = CmdUntread.CreateParameter(Type:=adVarChar, Size:=10)   
    
13. CmdUntread.Parameters.Append pUntread01  
    
14. CmdUntread.Parameters(0) = "10000"  
    
15. Set pUntread02 = CmdUntread.CreateParameter(Type:=adVarChar, Size:=30)  
    
16. CmdUntread.Parameters.Append pUntread02   
    
17. CmdUntread.Parameters(1) = "C342500VEH13000986"
    
18. CmdUntread.Execute
    
19. RsUntread.Open CmdUntread
    
20. Set Me.Recordset = RsUntread
    
21. Me.Refresh
    
22. Set RsUntread = Nothing
    
23. End Sub</P>

复制代码

admin

你先试试 存储过和本身返回的查询是否 可更新?
另试试 在服务器 使用视图 或函数 做一个返回看看是否可更新(可先用ADP试试可否更新)

mclly2000

admin 发表于 2013-6-4 08:52
你先试试 存储过和本身返回的查询是否 可更新?
另试试 在服务器 使用视图 或函数 做一个返回看看是否可更 ...

站长可否远程看看，另外我这个记录集是断开的啊，为什么不能改呢
另外视图好像都是不能更新的吧

tmtony

如果视图本身是可更新的,就可更新

竹笛

你看看你其他代码 有没有把可更新的属性去更改

mclly2000

竹笛 发表于 2013-6-4 14:53
你看看你其他代码 有没有把可更新的属性去更改

窗体的数据属性是可更新的应该没问题

mclly2000

感谢楼上各位老师已解决，还是查询的问题