如何用編寫ADO函數(shù)返回Recordset數(shù)據(jù)集

LeeTien

看了半天資料，最終做出來無法使用，高手給看看，自定義函數(shù)如下：
Function ADOSql(sql As String) As ADODB.Recordset
        Set Con = New ADODB.Connection
        Set rs = New ADODB.Recordset
        With Con
            .Provider = "SQLOLEDB"
            .CommandTimeout = 5
            .ConnectionTimeout = 10
            .IsolationLevel = adXactCursorStability  '設(shè)置隔離級別
       End With
    Con.Open "SERVER=192.168.1.200;Data=ERP;UID=sa;pwd="
    rs.Open sql, Con, adOpenKeyset, adLockReadOnly
    Set rsl = rs
End Function

zhuyiwen

Function ADOSql(sql As String) As ADODB.Recordset
        Dim Con As ADODB.Connection
        Dim rs AS ADODB.Recordset

        Set Con = New ADODB.Connection
        Set rs = New ADODB.Recordset
        With Con
            .Provider = "SQLOLEDB"
            .CommandTimeout = 5
            .ConnectionTimeout = 10
            .IsolationLevel = adXactCursorStability  '設(shè)置隔離級別
       End With
    Con.Open "SERVER=192.168.1.200;Data=ERP;UID=sa;pwd="
    rs.Open sql, Con, adOpenKeyset, adLockReadOnly
    Set ADOSql = rs
End Function

li-lin3000

學(xué)習(xí)了

zhanglf123

學(xué)習(xí)學(xué)習(xí)