ADO函数如何在获取Recordset对象后关闭Connection

LeeTien

写了一个ADO函数来获取Recordset对象
如下：
Public Function ADORs(ByVal data As String, ByVal Password As String, ByVal sql As String) As ADODB.Recordset

    Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset
   
    If con Is Nothing Then
        Set con = New ADODB.Connection
        Set rs = New ADODB.Recordset
    End If
      
    If Len(Password) = 0 Then
        con.ConnectionString = "provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & data & "ersist Security Info=False"
    Else
        con.ConnectionString = "provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & data & ";Jet OLEDBatabase Password=" & masterDataPassword
    End If
    con.Open
    rs.CursorLocation = adUseClient
    sql = Trim(sql)
    rs.Open sql, con, adOpenKeyset, adLockPessimistic
   
    Set ADORs = rs

End Function

现在面临这样一个问题：要获取Recordset对象，不能在函数体内关闭Connection对象，也就是不能执行con.Close操作。这样会使程序一直占用连接，有什么办法在获取Recordset对象后关闭Connection对象吗。

roych

不太可能吧。
从顺序上说，应该是先建立数据连接才能获取记录集，因此关闭连接后记录集也将随之消失。这就意味着，如果想尽快关闭数据连接的话，就必须想办法先对记录集进行相应的操作。
对于更新、删除和追加等操作的要求略低，倒也无所谓；但是如果是选择查询的话，一旦关闭记录集和数据连接，用户将无法看到任何数据，这后果似乎很严重吧？

个人更倾向于使用链接表的形式来处理。

zhuyiwen

其实，方案是可行的，但代码的做法不对。

你可以参考小宝的《主子窗体批量保存》的"ADO的断开连接和批更新"。

LeeTien

已解决无需再回复
谢谢
在ADO 必须保持Connection才获取Recordset
这个在ADO中无法实现
通过ADO.net
才用这个设计

zhuyiwen

搞不懂！

allen_peng

{:soso_e130:}

LeeTien

ADO无法实现
ADO.net已解决了
这是设计问题
数据量小时怎么连接都没神马问题
大并发时ADO的弊端就出来了

zhuyiwen

事实上ADO.NET是ADO的进化版，它比ADO强是毫无疑问的。但它需要更多的资源，如.NET Framework。如果懂得如何用.NET Framework来开发程序，那么就可以放弃Access了。

ADO Recordset设计断开记录集目的就是为了可以断开ADO Connection，并且还能保存为持久记录集（磁盘文件 XML），并允许重新连接更新数据库，但它的前提是使用批处理更新方式，你使用键集肯定会遇到失败。你下ADO无法实现的结论，个人认为有点草率。

风中漫步

哇,高深,学习{:soso_e103:}

aslxt

其实，不用更高级的软件，应该也可以实现：
取得记录集后，把他保存到一个窗体，就可以关闭连接了。需要使用该记录集的时候，用RecordsetClone就可以。
未经测试！