求救:谁知道VB+ADO的三层结构如何传回给客户端记录集？

Question

C/S结构下的定义:
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
rs是获得记录集，可是三层结构操作数据库在应用层，客户端不能直接引用应用层获得
的记录集，如果都要用集合来传递的话，那就太麻烦了，三层结构一点优势也没有！在C/S下，用datagrid绑定rs,只要Set DataGrid1.DataSource = rs
就好了，现在客户端要用datagrid怎么办啊？

Answer 1

哪个实例，不会是这个吧:
http://www.ourfly.com/bbs/dispbbs.asp?boardID=5&ID=71
吧，它就是用集合做的

Answer 2

我要的是能直接用rs,使用datagrid等数据库控件只要设置DataSource 就可以了

Answer 3

http://www.ourfly.com/download/download_detail.aspx?id=19
:完整的三层数据库应用程序(VB全源码提供)

Answer 4

your email,i will send it to you

Answer 5

csdnmzk(迈克尔) :
[email protected]

Answer 6

online(龙卷风V2.0--再战江湖) :
看过了，上面就说不要是这个啊，呵呵

Answer 7

呵呵！我也想学习一下，谢谢先！
[email protected]

Answer 8

噢！Sorry,不用了，已经下了，thx。

Answer 9

晕~
'第一个函数是：完成对SQL语句的查询操作 , 并返回一个数据集
Function ExecuteSqlOnly(Sql As String) As ADODB.Recordset
    
    On Error GoTo Err_Execute
    
        Dim rs As New ADODB.Recordset
            
        rs.Open Sql, Conn, adOpenStatic, adLockReadOnly, adCmdText
        
        Set ExecuteSqlOnly = rs.Clone
        rs.Close
        Set rs = Nothing
        
        Exit Function
        
Err_Execute:
        
        MsgBox Err.Description, 16, "Error:"
        
End Function

Answer 10

然后客户端调用就直接SET RS=ExecuteSqlOnly(Sqlstr) 就OK了~