[RESOLVED] Multiple-step OLE DB operation generated errors

[aconybeare]

Hi,

I've got a problem with trying to open the following recordset. code breaks on the highlighted line

<sub>"Microsoft OLE DB Provider for SQL Server error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done."</sub>

I've checked my version of MDAC it's 2.8 using SQL Server 2000 on windows 2003 server. Also not using the security info thing in my connection string

Does anyone have any idea what the problem might be?

Set rsRptSects = GetReportSections(38,"A")
 
Function GetReportSections(id,status)
    If LenB(status)=0 Then status=NULL
    Dim myCmd   : Set myCmd=Server.CreateObject("ADODB.Command")
    Dim rs      : Set rs=Server.CreateObject("ADODB.Recordset")
    'Response.Write "Setup ID: " & id & "<br>"
    With myCmd
        .CommandType=adCmdStoredProc
        .CommandText="up_mGetReport_Sections"
        .Prepared=True
        .ActiveConnection=cn
        .Parameters.Append .CreateParameter("@Setup_ID", adInteger, adParamInput, 18, cInt(id)) ' Report ID
        .Parameters.Append .CreateParameter("@Status", adVarchar, adParamInput, 100, status)
'       Set GetReportSections=.Execute
        [HL="#FFFF00"]rs.Open myCmd,,adOpenStatic,adLockReadOnly[/HL]
        Set GetReportSections=rs
    End With
    Set myCmd=Nothing
    Set rs=Nothing  
End Function

Cheers Al