Append fields to a disconnected recordset created from SQL stored procedure 
Author Message
 Append fields to a disconnected recordset created from SQL stored procedure

I have tried everything I can think of as well as many tips I found on
Dejanews, still no luck.  I am trying to add two fields to a disconnected
recordset which was generated from an SQL 7.0 stored procedure which takes a
lot of parameters.

The function is included below, the error I get is :
The operation requested by the application is not allowed in this context.

I have indicated which line in the code causes this error.  Can anyone point
out what I am missing?  The function works great if the two offending lines
of code are removed.

Thanks in advance.

Function Test(sName As String, _
                            datStart As Date, _
                            datEnd As Date, _
                            iLowInt As Integer, _
                            iHighInt As Integer, _
                            iSun As Integer, _
                            iMon As Integer, _
                            iTue As Integer, _
                            iWed As Integer, _
                            iThu As Integer, _
                            iFri As Integer, _
                            iSat As Integer) As ADODB.Recordset

    Dim objRS As ADODB.Recordset
    Dim objCommand As ADODB.Command
    Dim objParam As ADODB.Parameter

    Set objRS = New ADODB.Recordset
    Set objCommand = New ADODB.Command
    Set objParam = New ADODB.Parameter

    Set objCommand.ActiveConnection = objConn

    objCommand.CommandText = "Test"

    'set up each parameter and append it to the command objects parameters
    Set objParam = objCommand.CreateParameter("name", adVarChar,
adParamInput _
                        , 10, sName)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("start_date", adDBTimeStamp,
adParamInput _
                        , 8, datStart)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("end_date", adDBTimeStamp,
adParamInput _
                        , 8, datEnd)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("lowint", adInteger,
adParamInput _
                        , 4, iLowInt)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("highint", adInteger,
adParamInput _
                        , 4, iHighInt)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("sun", adInteger, adParamInput
                        , 4, iSun)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("mon", adInteger, adParamInput
                        , 4, iMon)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("tue", adInteger, adParamInput
                        , 4, iTue)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("wed", adInteger, adParamInput
                        , 4, iWed)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("thu", adInteger, adParamInput
                        , 4, iThu)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("fri", adInteger, adParamInput
                        , 4, iFri)
    objCommand.Parameters.Append objParam
    Set objParam = objCommand.CreateParameter("sat", adInteger, adParamInput
                        , 4, iSat)
    objCommand.Parameters.Append objParam

    'Execute the command object and create recordset
    objRS.CursorLocation = adUseClient
    objRS.Open objCommand, , adOpenStatic, adLockBatchOptimistic,

    Set objRS.ActiveConnection = Nothing

    'These lines causes the following error:
    'The operation requested by the application is not allowed in this
    objRS.Fields.Append "NewField1", adDouble
    objRS.Fields.Append "NewField1", adDouble

    'return recordset to caller
    Set Test = objRS

    'destroy objects
    Set objCommand = Nothing
    Set objParam = Nothing
    Set objRS = Nothing

End Function

Wed, 01 Aug 2001 03:00:00 GMT  
 [ 1 post ] 

 Relevant Pages 

1. Appending fields on a disconnected recordset

2. Append Field with Disconnected Recordset, Please Help!

3. Disconnected Recordsets and stored procedures

4. Disconnected ADO Recordset w/ a Stored Procedure?

5. Disconnected recordset from stored procedure

6. ADO disconnected recordset And stored procedure

7. disconnected recordset and stored procedure

8. ado recordsets from stored procedures, stored procedures have input parameters

9. create autonumber field in a disconnected recordset?

10. Sql server stored procedures not returning a recordset...?

11. Opening an ADO recordset against a dataset returned from a SQL Server Stored Procedure

12. SQL stored procedure returning unusual ado recordset


Powered by phpBB® Forum Software