1 varPsinput =theapplication (). Newpropertyset ();2 varPsoutput =theapplication (). Newpropertyset ();3 varBseaiproc = Theapplication (). GetService ("EAI ODBC Service");4 psinput.setproperty ("Extdbodbcdatasource", "Odbcname");5 psinput.setproperty ("Extdbpassword", "SIEBEL");6 psinput.setproperty ("Extdbusername", "SIEBEL");7 psinput.setproperty ("Extdbtableowner", "SIEBEL");8 psinput.setproperty ("ProcedureName", "procedurename");9 psinput.setproperty ("Procedureargument", "ProductID");TenBseaiproc.invokemethod ("Executeproc", Psinput, psoutput); One varSstatus = Psoutput.getproperty ("Status");
1conn = Comcreateobject ("ADODB. Connection ");2Constr = "provider=oraoledb.oracle;3 DataSource = (DESCRIPTION = (ADDRESS = (PROTOCOL = TCP) (HOST = 192.168.0.0) (PORT = 1521)) (Connect_data = (service_name = Oracleservicename ));4User ID = "";5Password = "";6Persist Security Info = True ";7Conn. ConnectionString =Constr;8 Conn. Open ();9rs = Comcreateobject ("ADODB". Recordset ");TenAdocommand = Comcreateobject ("Adodb.command"); OneAdocommand.commandtype = 4; AAdocommand.commandtext = "Siebel. ProcedureName ";//CommandText is the name of the stored procedure. ProcedureName is the name of the stored procedure -Adoinputsparameters = Adocommand.createparameter ("Txtrowid", 200, 3, 40, "10011"); -Adooutputsparameters = Adocommand.createparameter ("Srnum", 200, 3, 40, "10011"); the adoCommand.Parameters.Append (adoinputsparameters); - adoCommand.Parameters.Append (adooutputsparameters); -Adocommand.activeconnection =Conn; - Adocommand.execute (); +Conn. Close ();
There are two more questions to consider, Oracle Procedure Adapter and Oracle SQL Adapter, with results sharing later.
Siebel invoking an Oracle stored procedure