🚀 go-pugleaf

Hello All!

I'm having a problem using the ADOStoredProc component together with
an Oracle database. My goal is to execute a stored procedure in the
Oracle database, which should return a number to my Borland C++
application.

The stored procedure looks like this:

FUNCTION get_mod_id(
  barcode IN varchar2 )
  RETURN number IS
    model_name varchar2(10);
    model_id        number(20);
  begin
    api_derivat.get_derivation('MODEL',barcode,model_name);
    select id
      into model_id
      from models
      where name = model_name;
    return model_id;
  exception
   when no_data_found then
     raise_application_error(-20000,'PLS-00601');
  end;


My test application uses the following code snippets:

  ADOConnection1->Connected = true;

  long lModId;
  TParameter *P1, *P2;
  P1 = NULL;
  P2 = NULL;

  ADOStoredProc1->Parameters->Clear();
  P1 = ADOStoredProc1->Parameters->AddParameter();
  P1->Name = "barcode";
  P1->DataType = ftString;
  P1->Value = "WM44AZB942796EWIZ";
 
  P2 = ADOStoredProc1->Parameters->AddParameter();
  P2->Name = "model_id";
  P2->DataType = ftInteger;
  P2->Value = 0;

  ADOStoredProc1->ExecProc();
  lModId = StrToInt(ADOStoredProc1->Parameters->Items[1]->Value);

  delete P1;
  delete P2;
  ShowMessage(lModId);


When I try to run the application it terminates at the call ExecProc()
with the message:
"Project Testapp.exe raised exception class EOleException with message
'ORA-06550: line 1, column 7: PLS-00306: wrong number or types of
arguments in call 'GET_MOD_ID' ORA-06550: line 1, column 7: PL/SQL:
Statement ignored'. Process stopped. Use Step or Run to continue."

The database is delivered by our costumer, so I can't change the
stored procedure. However I am quite confident, that the stored
procedure works.

Any ideas on what I am doing wrong in my applicaton code? Any help
will be greatly appreciated!