COM入门问题

Question

要不给介绍个VB开发COM的网站吧！

Answer 1

Public Function getUsrInfo()
    
    Dim myRst As ADODB.Recordset
    Dim usrData As New Collection
    Dim usrInfo As UserInfo
    
    On Error GoTo ErrHandler
    Set myRst = DBUtil.getRst()
    
    myRst.Open "select * from user_info"
    
    Do While Not myRst.EOF
        Set usrInfo = New UserInfo
        usrInfo.usrId = myRst.Fields("ID").Value
        usrInfo.usrName = myRst.Fields("NAME").Value
        usrInfo.usrAge = myRst.Fields("AGE").Value
        usrInfo.usrAddr = myRst.Fields("ADDRESS").Value
        usrInfo.usrPhone = myRst.Fields("PHONE").Value
        usrData.Add usrInfo
        myRst.MoveNext
    Loop
    
    Set getUsrInfo = usrData
        
    Exit Function
ErrHandler:
    Set myRst = Nothing
    
End Function

Answer 2

我这样写，运行时，按下一条到记录末，再按出错，说“行集不支持反响取”
Dll中这样：
Public Function getValue() As Recordset
  
  cnn.Open ("testDLL")
  Set rst1 = cnn.Execute("select * from testTable")
  rst1.MoveFirst
  Set getValue = rst1
End Function表单中这样：
Private Sub Form_Load()
  Set addValue = New dbdll
  Set tempRST = addValue.getValue()
 
  dataSetup
End Sub
Private Sub dataSetup()
  txtID.Text = tempRST("id") & ""
  txtName.Text = tempRST("name") & ""
  txtPWD.Text = tempRST("passWord") & ""
End Sub做了上一、首条、下一、末条记录的按纽。
但按完上一再按下一会出现“行集不支持反响取”的错误？

Answer 3

要是做C/S结构，有很多客户端的，是不是要做DCOM？