OO4O - Excel to Oracle - Array Processing

From: dti <dti_anonymous_at_yahoo.com>
Date: Tue, 30 Jul 2002 02:23:00 GMT
Message-ID: <8Mm19.3551$nm.235814_at_bin5.nnrp.aus1.giganews.com>

Is there a way to pass a multidimension array back and forth between Excel and Oracle instead of using a separate AddTable for every column? Below is the example from the documentation.

Thanks,

Paul

Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim EmpnoArray As OraParamArray
Dim EnameArray As OraParamArray
Set OraSession = CreateObject("OracleInProcServer.XOraSession") Set OraDatabase = OraSession.OpenDatabase("exampledb", "scott/tiger", 0&)
OraDatabase.Parameters.Add "ArraySize", 3, ORAPARM_INPUT OraDatabase.Parameters.AddTable "EMPNOS", ORAPARM_INPUT, ORATYPE_NUMBER ,3,22
OraDatabase.Parameters.AddTable "ENAMES", ORAPARM_OUTPUT,ORATYPE_VARCHAR2,3,10
Set EmpnoArray = OraDatabase.Parameters("EMPNOS") Set EnameArray = OraDatabase.Parameters("ENAMES")
'Initialize the newly created input parameter table EMPNOS

EmpnoArray(0) = 7698
EmpnoArray(1) = 7782
EmpnoArray(2) = 7654

'Execute the PLSQL package

OraDatabase.ExecuteSQL ("Begin
Employee.GetEmpNamesInArray(:ArraySize,:EMPNOS,:ENAMES); End;")
'Print out Enames

MsgBox EnameArray(0)
MsgBox EnameArray(1)
MsgBox EnameArray(2)

Received on Tue Jul 30 2002 - 04:23:00 CEST