Please Help,Oracle 9I Store Proc and ASP.

Discussion in 'ASP General' started by Rick, Nov 4, 2003.

  1. Rick

    Rick Guest

    Package header named RecordSetPKG as follows


    as
    --Package defines the type ref cursor stored procedures will use varables
    of this type to stored
    --multple records back to the calling stored procedure
    TYPE m_refcur IS REF CURSOR;
    end Recordsetpkg;



    Procedure is

    CorpGoalSelect


    (SelYear in int,io_cursor OUT recordsetpkg.m_refcur)
    is

    Begin
    open io_cursor for
    SELECT * FROM CorpGoals where CorpYear=SelYear order by CorpOrder;


    END CorpGoal_Select;

    -----------------following Code I thought should
    work-----------------------------------------------------------------------



    Dim cnnOracle

    Dim cmdStoredProc

    Dim rsEmp

    Set cnnOracle = Server.CreateObject("ADODB.Connection")

    cnnOracle.CursorLocation = adUseClient

    cnnOracle.Open "Provider=OraOLEDB.Oracle;" & _

    "Data Source=databasename;" & _

    "User Id=login;" & _

    "Password=password"





    Set cmdStoredProc = Server.CreateObject("ADODB.Command")

    Set cmdStoredProc.ActiveConnection = cnnOracle 'Call the above procedure.








    'This code creates a command object.

    Set cmdStoredProc = Server.CreateObject("ADODB.Command")

    Set cmdStoredProc.ActiveConnection = cnnOracle


    'Retrieve all records.



    cmdStoredProc.CommandText = "{call packperson.allperson({'1998',resultset
    9,})}"



    cmdStoredProc.CommandType = adCmdText

    'This code creates a recordset object.

    Set rsEmp = Server.CreateObject("ADODB.Recordset")

    rsEmp.CursorType = adOpenStatic

    Set rsEmp.Source = cmdStoredProc



    rsEmp.Open







    cnnOracle.close

    set cnnOracle = Nothing


    ---
    Outgoing mail is certified Virus Free.
    Checked by AVG anti-virus system (http://www.grisoft.com).
    Version: 6.0.534 / Virus Database: 329 - Release Date: 11/1/2003
    Rick, Nov 4, 2003
    #1
    1. Advertising

  2. Rick

    dlbjr Guest

    Dim cnnOracle
    Dim cmdStoredProc
    Dim rsEmp

    Set cnnOracle = Server.CreateObject("ADODB.Connection")
    cnnOracle.Open "Provider=OraOLEDB.Oracle;" & _
    "Data Source=databasename;" & _
    "User Id=login;" & _
    "Password=password"

    Set cmdStoredProc = Server.CreateObject("ADODB.Command")
    Set cmdStoredProc.ActiveConnection = cnnOracle
    cmdStoredProc.CommandText = "{call
    packperson.allperson({'1998',resultset9,})}"
    cmdStoredProc.CommandType = adCmdText
    Set rsEmp = Server.CreateObject("ADODB.Recordset")
    rsEmp.Open cmdStoredProc.Execute
    set rsEmp = Nothing
    rsEmp.close
    set cnnOracle = Nothing
    set cmdStoredProc = Nothing

    --
    -dlbjr

    Discerning resolutions for the alms
    dlbjr, Nov 5, 2003
    #2
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. David Lozzi
    Replies:
    3
    Views:
    1,920
    David Lozzi
    Jun 1, 2005
  2. NevilleDNZ
    Replies:
    9
    Views:
    430
    NevilleDNZ
    Aug 16, 2006
  3. Jean-Hugues ROBERT

    Why no Proc##[]=() ? Why no Proc##replace() ?

    Jean-Hugues ROBERT, May 1, 2004, in forum: Ruby
    Replies:
    14
    Views:
    271
    Jean-Hugues ROBERT
    May 5, 2004
  4. Minkoo Seo

    Proc vs lambda vs proc

    Minkoo Seo, Feb 4, 2007, in forum: Ruby
    Replies:
    19
    Views:
    233
    Brian Candler
    Feb 6, 2007
  5. Feyruz
    Replies:
    4
    Views:
    2,135
    Sherm Pendley
    Oct 14, 2005
Loading...

Share This Page