Visual Basic - pasar un recordset

Life is soft - evento anual de software empresarial
   
Vista:

pasar un recordset

Publicado por aldo (16 intervenciones) el 20/01/2009 00:26:07
hola,
me da un error al crear una funcion donde devuelvo un recordset...

------------------------------------------------------------------
Function Get_estado_de_cuenta(pNroSocio As Integer, pNiv As Integer) As ADODB.Recordset

Dim strQuery as String
Dim rs as ADODB.Recordset

'Armo query
'----------
strQuery = "Select e.*,d.concepto from estado_cuenta e INNER JOIN debitos d " & _
"on e.id_debito = d.id_debito where "

If pNroSocio > 0 Then
strQuery = strQuery & "nrosocio = " & pNroSocio & " and nivsocio = " & pNiv
Else
strQuery = strQuery & "idsocio > 0"
End If

strQuery = strQuery & " order by nrosocio,nivsocio"
'---------
'Fin query

Set rs = New Recordset
rs.Open strQuery, gdbClub, , adOpenDynamic, adLockReadOnly

If Not rs.EOF Or Not rs.BOF Then
Get_estado_de_cuenta = rs.GetRows()
End If

rs.Close: Set rs = Nothing

End Function
----------------------------------------------------

y la llamada la hago de la siguiente forma...

--------------------------------------------------------------------------
Sub llenar_grilla(pNroSoc As Integer, pNiv As Integer)

Dim i As Integer

Set rs = New Recordset
rs = Get_estado_de_cuenta(pNroSoc, pNiv)

If Not rs.EOF Then....
----------------------------------------------------------------

el error que me da es el siguiente...

"se requiere un objeto" en "Get_estado_de_cuenta = rs.GetRows()" (en la funcion)

alguien me puede ayudar?
como hago para pasar un recordset??

gracias!
Aldo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder