在VB写的DLL中返回RECORDSET，但是在ASP中不能用！

[yushiro]

VB:
Public Function GenerateReportSQL(ByVal UserId As Long, ByVal ReportID As Long, ByVal ExecuteSQL As Long) As ADODB.Recordset
......
Set GenerateReportSQL = cmd.Execute
.....

asp：
set app = CreateObject("testreport.application")
set ors = app.GenerateReportSQL(clng(iUserId), clng(iReportId), 1)
set app = nothing
response.write ors.Fields.count

结果显示0，但是结果集有内容。

[yuanxy]

我也想知道

[dddd8888]

是不是这样
Public Function GenerateReportSQL(ByVal UserId As Long, ByVal ReportID As Long, ByVal ExecuteSQL As Long) As new ADODB.Recordset

或者
Set GenerateReportSQL = new recordset
GenerateReportSQL = cmd.execute

[Sunron128]

VB:
Public Function GenerateReportSQL(ByVal UserId As Long, ByVal ReportID As Long, ByVal ExecuteSQL As Long) 'As ADODB.Recordset '注释掉，在ASP中无须使用
......
GenerateReportSQL.CursorLocation = 3 '表示在客户端使用
Set GenerateReportSQL = cmd.Execute
.....

asp：
set app = CreateObject("testreport.application")
set ors = app.GenerateReportSQL(clng(iUserId), clng(iReportId), 1)
set app = nothing
response.write ors.Fields.count

[yushiro]

to dddd8888:
VB中的函数申明时，加入NEW就除错（至少在VB写的DLL中是这样）。

Set GenerateReportSQL = new recordset我去试试。

GenerateReportSQL = cmd.execute应该不可以，对象的赋值必须要用SET


to Suron128(辰龍) :
VB的代码是在VB中的，不是在ASP页面中。