1 var psInput = TheApplication().NewPropertySet(); 2 var psOutput = TheApplication().NewPropertySet(); 3 var bsEAIProc = 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”);10 bsEAIProc.InvokeMethod("ExecuteProc", psInput, psOutput);11 var sStatus = psOutput.GetProperty("Status");

 1 conn = COMCreateObject("ADODB.Connection"); 2 conStr = "Provider=OraOLEDB.Oracle; 3 DataSource = (DESCRIPTION = (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.0.0)(PORT = 1521))(CONNECT_DATA = http://www.mamicode.com/(SERVICE_NAME = ORACLESERVICENAME)));> 4 User ID = ""; 5 Password = ""; 6 Persist Security Info = True "; 7 conn.ConnectionString = conStr; 8 conn.Open(); 9 rs = COMCreateObject("ADODB.Recordset");10 adoCommand = COMCreateObject("ADODB.Command");11 adoCommand.CommandType = 4;12 adoCommand.CommandText = "siebel.ProcedureName"; //将CommandText为存储过程的名称。ProcedureName是存储过程名称13 adoInputsParameters = adoCommand.CreateParameter("txtrowid", 200, 3, 40, "10011");14 adoOutputsParameters = adoCommand.CreateParameter("srnum", 200, 3, 40, "10011");15 adoCommand.Parameters.Append(adoInputsParameters);16 adoCommand.Parameters.Append(adoOutputsParameters);17 adoCommand.ActiveConnection = conn;18 adoCommand.Execute();19 conn.Close();