Función que devuelve un RecordSet

[antdiasan]

¿Es posible hacer una función que devuleva un RecordSet?

Es que al asignarle el RecordSet a la función me dá un error
si la función es: funLISTAR
y el recordet es: recODBC

el código
funLISTAR = recODBC

dá el error de compilación "Uso no válido de la propiedad"


Un saludo

[hernanmdq]

La verdad que no encontre nada que diga si se puede devolver un recorset en una funcion. Lo que yo haria para salir del paso seria crear un recorset afuera de la funcion, pasarcelo como parametro, y como en VB se pasa parametros por referencia de forma automatica, dentro de tu funcion le asignas el recorset que quieras, y listo. Si no fui claro pregunta de nuevo, que con gusto te respondere. Saludos.

[antdiasan]

Gracias, me ha servido

Un saludo

[ElierLora]

Pues mira este Código funciona sin Brobleas, Adaptalo a tu Caso, Cualquier cosa me escribes a [email protected], Suerte

Private Sub Form_Load()
Dim Reco1 As Recordset
'El LLamado
Set Reco1 = DevReco

'comprobar que vino
Do While Not Reco1.EOF
Debug.Print Reco1.Fields(0)
Reco1.MoveNext
Loop
End Sub

'La Función
Private Function DevReco() As Recordset
Dim Base As Database
Dim Reco2 As Recordset
Set Base = OpenDatabase("d:\ElierIm\Estimula.mdb", False, False)
Set Reco2 = Base.OpenRecordset("Personal", dbOpenDynaset)

Set DevReco = Reco2
End Function

[fewar]

Recuerden ser mas claros en sus preguntas y por supuesto en sus respuestas. Por ejemplo la pregunta es confusa, pues no se entiende si lo que quieres es una funcion que regrese un RecodSet o que reciba un RecordSet.

Suponiendo que deseas es una funcion que regrese un Rs, te dejo este codigo

Private Sub Form_Load()

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

Set rs = fnExecRecordset(" Select * from USUARIOS ")

End Sub

Public Function fnExecRecordset(strQuery As String) As ADODB.Recordset
Dim rst As New ADODB.Recordset

'NO OLVIDES EL PROCESO DE ABRIR TU DB

rst.Open strQuery, ConOracle, 2, 3
Set fnExecRecordset = rst

End Function