Functions Returning Recordsets

[razzaj]

I am writing a DLL that is to be used from ASP.
some functions in my classes have to return a REcordset.
of type ADODB.REcordset.

here is how I wrote the functions :

public function GetUsers (Catid as Integer) as ADODB.Recordset

dim Rec as ADODB.REcordset
  
[ ... perform any selection from database ... ]

  'Store Results in REC

   ' Return Results
   Set  GetUsers = Rec


End function

In ASP I used the following code to call this function:

<%
 Dim COmObj
 DIm Rec 

 Set Rec = Server.CreateObject("ADODB.REcordset")
 Set ComObj = Server.CreateObject("MyObj.MyClass")

  Rec = COmObj.GetUSers(10)
%>

bu I am getting an Error in My Dll "Object or Block Variable not Set"

now it is clear some thing is wrong. But what.
Please any help is greatly appreciated

[bubba]

I prefer to handle all my business in the dll and then just return HTML to the calling asp, but I have worked on a couple of projects where we had to handle it differently and had to pass the recordset back to asp.

Here is a good way to handle recordsets returned from DLLs to ASP:

In your asp:
Look for an error string as the return, but pass the empty recordset as a parameter:

Set Rec = Server.CreateObject("ADODB.REcordset")

error = COmObj.GetUSers(10, Rec)

That way you can handle error messages returned from the dll....

In your DLL:
Declare your function as a string, and pass the record byRef as a variant:

public function GetUsers (Catid as Integer, byRef vntRecord as variant) as string

dim Rec as ADODB.REcordset
  
[ ... perform any selection from database ... ]

  'Store Results in REC



'Add fields to vntRecord from Rec    
'vntRecord won't have the intellisense enabled for the properties, but this does work
        
For intField = 0 To Rec.Fields.Count - 1
   vntRecord.Fields.Append Rec.Fields(intField).Name, Rec.Fields(intField).Type, Rec.Fields _
(intField).DefinedSize, Rec.Fields(intField).Attributes
Next

vntRecord.Open , , adOpenDynamic
        
'get the data from the recordset into the result recordset

liNoOfFields = Rec.Fields.Count
iNoOfRecords = Rec.RecordCount


If Rec.RecordCount > 0 Then
         Rec.MoveFirst
          For liCurrentRecord = 0 To liNoOfRecords - 1 Step 1
                    vntRecord.AddNew
                    For liCurrentField = 0 To liNoOfFields - 1 Step 1
                        vntRecord(liCurrentField).Value = Rec(liCurrentField).Value
                    Next liCurrentField
                    vntRecord.Update
                    Rec.MoveNext
                Next liCurrentRecord
            
   ' Return Results
   
Set  GetUsers = "OK"

Exit Function

Errhandler:
GetUsers = "Error"
End function

Now Rec in your asp contains the recordset, and you are able to check for error returned by the DLL.

[kkolstad]

In your DLL declare your recordset as New. This will eliminate your error.

Dim Rec as New ADODB.Recordset

[monte96]

Also:

<%
 Dim COmObj
 DIm Rec 

 Set ComObj = Server.CreateObject("MyObj.MyClass")

 Set Rec = ComObj.GetUSers(10)
%>

No need to set the Rec object to a recordset first. And you DO need to use the Set keyword to set the Rec object reference to the returned recordset.