如何连上这个对象

mclly2000

1. 
   
2. <P>Public Sub Form_Load()
   
3. Dim CmdUntread As New ADODB.Command
   
4. Dim RsUntread As New ADODB.Recordset
   
5. Dim pUntread01 As ADODB.Parameter    '定义参数
   
6. RsUntread.LockType = adLockOptimistic    '定义锁的类型
   
7. RsUntread.CursorLocation = adUseClient    '定义游标位置
   
8. RsUntread.CursorType = adOpenKeyset  '定义游标类型
   
9. 
   
10. CmdUntread.ActiveConnection = NetDS    '激活连接
    
11. CmdUntread.CommandText = "proc_HeaveyPerson_ReplyUntreadCaseMsg @CaseNumber=?"
    
12. 
    
13. Set pUntread01 = CmdUntread.CreateParameter(Type:=adVarChar, Size:=30)    '创建参数类型及大小
    
14. CmdUntread.Parameters.Append pUntread01    '参数输入存储过程
    
15. CmdUntread.Parameters(0) = "C342500VEH13000986"    '定义参数的值为用户名
    
16. CmdUntread.Execute
    
17.     RsUntread.Open CmdUntread
    
18.     Set Me.Recordset = RsUntread  '将ADO记录集赋值给子窗体
    
19.     Me.Refresh
    
20.     RsUntread.ActiveConnection = Nothing‘关闭链接</P>
    
21. <P>end sub
    
22. </P>

复制代码

如何连上这个RsUntread记录集