グローバルなテンポラリレコードセットをモジュール内の交換情報に使用

Question

データベースへのすべてのクエリを実行し、その結果をグローバルレコードセットに格納して関数内で使用する関数を開発したいが、関数またはサブプログラムが終了すると、空（スコープ外）になります。これをどうすれば解決できますか？

モジュール内容：

Global rsResultado As ADODB.Recordset 

Sub main() 
    sql = "query works ok, I get data" 
    realizarConsulta (sql) 
    Debug.Print "Check result: " & rsResultado.Fields(0) 'Here I lost data setted in function 
End Sub 

Public Function realizarConsulta(sql As String) As Recordset 
    conectarBD 
    Debug.Print "SQL Ejecutada -->" & sql 
    Set rsResultado = New ADODB.Recordset 

    rsResultado.Open sql, Conn 
    'Set realizarConsulta = rs 
    'Set rsResultado = rs 

    Do While Not rsResultado.EOF 
     Debug.Print "Registro: " & rsResultado.Fields(0) 
     rsResultado.MoveNext 
     'Here I can see the content of the global recordset 
    Loop 

    'rs.Close 
    Conn.Close 
End Function 

は、この問題を解決する方法はありますか？私は何を間違えているのですか？ Function内部のお近くにかかわりので

Answer 1

グローバルRecordsetが空になり、Recordsetは、whileループの後にすべてのレコードを費やし、あなたはFunctionからレコードを設定する必要があります。

のようにメインサブで Recordsetオブジェクトを設定し

1-：：を持つ関数内rsResultado.MoveFirst

3-set関数オブジェクトとRecordsetオブジェクト初期Set rsResultado = realizarConsulta(sql)

2-

4は-くださいます。またGlobalするデータベースへの接続を設定する必要がConn

Sub main() 
    '.. 
    Set rsResultado = realizarConsulta(sql) 
    rsResultado.MoveFirst 
    Debug.Print "Check result: " & rsResultado.Fields(0) 
End Sub 

Public Function realizarConsulta(sql As String) As Recordset 
    conectarBD 
    Debug.Print "SQL Ejecutada -->" & sql 
    Set rsResultado = New ADODB.Recordset 

    rsResultado.Open sql, Conn 

    Do While Not rsResultado.EOF 
     Debug.Print "Registro: " & rsResultado.Fields(0) 
     rsResultado.MoveNext 
    Loop 

    Set realizarConsulta = rsResultado 

    'rs.Close 
    'Conn.Close 
End Function 

Answer 2

接続オブジェクトを閉じるません。それ以外の場合は、接続が閉じられるとRecordSetがリセットされます。あなたは

Global conDataBaseConnection As ADODB.Connection

を追加するのであれば、それは（私のシステム上でテスト）動作するはずです。

_{私はあなたのADODB.Connection宣言が表示されていないので、例で名前を付けました。明らかに、プログラミングに合わせてコードを変更する必要があります。}