how to get a function to return a recordset object

lcsgeek · September 21st, 2004, 11:07 AM

Code:

function funOne(sql)

  Dim rsOne

  Set rsOne = Server.CreateObject("ADODB.RecordSet")
  rsOne.Open sql, oConn

  Set funOne = rsOne

  rsOne.Close
  Set rsOne = Nothing

end function

Code:

function funTwo()

  Dim rsTwo

  Set rsTwo = funOne("SELECT .....")

  funTwo = rsTwo(1)

  rsTwo.Close
  Set rsTwo = Nothing

end function

Can anyone see anything wrong with this? If someone has passed a RS object from on function to another I would be very pleased if you would share the code.

Thanks
dog

bmains · September 21st, 2004, 11:53 AM

Hey,

I have a feeling that the problem is that the recordset is closed. Try making rsone global.

Brian

sureshbabu · September 22nd, 2004, 02:39 AM

Hi,
   I feel the same. Just use the following code . Here I just commented last but one line in the first function(rsOne.Close)
It will work

function funOne(sql)

  Dim rsOne

  Set rsOne = Server.CreateObject("ADODB.RecordSet")
  rsOne.Open sql, oConn

  Set funOne = rsOne

  'rsOne.Close
  Set rsOne = Nothing

end function

Thank You
Suresh

happygv · September 22nd, 2004, 03:30 PM

I don't think the last 2 lines in that function are required. Also SET keyword is not required there. But you got to use SET at the location where you call this function.

...
  Set funOne = rsOne

  'rsOne.Close
  Set rsOne = Nothing
...

As you set a value to the FUNCTION name, there by the control goes out of that function to where it is being called. So there shouldn't be any chance of executing the last 2 lines given above.

Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection