当前提供程序不支持从单一执行返回多个记录集

[许晨辰]

set recom = server.createobject("adodb.command")
recom.activeconnection = cn7
recom.commandtype = 4
recom.commandtext = "Get_Tutor"
recom.Parameters.Append recom.CreateParameter("@pKeyword",202,1,200,pCountrystr)
recom.Parameters.Append recom.CreateParameter("@pRegion",202,1,200,pArea)
recom.Parameters.Append recom.CreateParameter("@pPrefecture",202,1,200,pPrefecture)
recom.Parameters.Append recom.CreateParameter("@pInstitutionType",202,1,200,pInstitutionType)
recom.Parameters.Append recom.CreateParameter("@pGrantAmount",202,1,200,pGrantAmount)
recom.Parameters.Append recom.CreateParameter("@pTitles",202,1,2000,pProfessionalTitle)
recom.Parameters.Append recom.CreateParameter("@pPaperOutput",202,1,200,pPaperCount)
recom.Parameters.Append recom.CreateParameter("@pCoAuthors",202,1,200,pCoAuthor)
recom.Parameters.Append recom.CreateParameter("@pEmergingKOLPercentile",202,1,200,pCAGRPaperCount)
recom.Parameters.Append recom.CreateParameter("@pPatents",202,1,200,pPatentCount)
recom.Parameters.Append recom.CreateParameter("@pTrack",202,1,200,pTrack)
recom.Parameters.Append recom.CreateParameter("@PageSize",202,1,200,PageSizeX)
recom.Parameters.Append recom.CreateParameter("@pCurrentPage",202,1,200,Page)
recom.Parameters.Append recom.CreateParameter("@pOrderBy",202,1,200,orderby(2))
recom.Parameters.Append recom.CreateParameter("@pOrderBySeq",202,1,200,orderby(3))

set rs = recom.execute()
if rs("TotalCount") > 0 then
FieldCount=rs("TotalCount")
else
FieldCount=0
end if


if (FieldCount mod PageSizeX)>0 then
allpages=((FieldCount - (FieldCount mod PageSizeX))/ PageSizeX)+1
else
allpages= (FieldCount / PageSizeX)
end if

set rs = rs.NextRecordset


报错，当前提供程序不支持从单一执行返回多个记录集 不知道是什么原因，存储过程返回的是两个记录集

[许晨辰]

貌似这个问题没人会啊！

[hookee]

1 Get_Tutor 里要在开头 SET NOCOUNT ON 2 记录集使用前先判断 存不存在

[许晨辰]

貌似这样的问题，没人知道结果吗？求大神现身

[许晨辰]

1.SET NOCOUNT ON在存储过程中已经有了 2.返回的是两个记录集，就算没数据也应该返回表的空title