菜鸟问题：怎样将Recordset传入子程序呀？

public sub aa()
Dim Rs As New ADODB.Recordset
...............................
...............................
call bb(Rs)
end subprivate sub bb(Rsout as recordset)
........
.......
end sub想传入子程序，但类型不匹配，子程序定义变量不能定义成 Rsout as new recordset
那我怎样将Rs传入子程序那？

解决方案 »

  1.   

    Sub Explistv(ll As ListView, rr As ADODB.Recordset, bt As Boolean)
    '将ADO记录集直接输出到LISTVIEW
    Dim r As New ADODB.Recordset
    Dim i As Integer
    Dim itmx As ListItem
    Set r = rr
      

  2.   

    谢谢我已经解决了，不用输出到listview。给你分
      

  3.   

    in asp.net, you don't need a component, look into HttpPostedFile, seehttp://www.4guysfromrolla.com/webtech/091201-1.shtml