🚀 go-pugleaf

D2006 and ASA9

I wish to insert a record using a srored procedure; ADO.Net
I tested the sp via isql  (it has 5 parameters) and I can insert.

I am using ODBC to conect to ASA9.

The form method below results in a Sybase OCBC Error "Wrong Number of
Parameters"
I observe (cmd.parameters) that 16 parameters are created although only 5
are populated, the rest are null. Is this normal?
(The size propery=5). The exception occurs after
result:=cmd.ExecuteNonQuery;

What's wrong ?

YOA

Ephraim


function TForm4.InsertMoc(const SerialId, CallOrigin, CallDestination,
TransactionID, TimeStamp: String): Integer;
const
  c_cnstr='DSN=sybCK';
  c_sp='sp_InsertNOC';
var
  k: Integer;
  sqlcn: ODBCConnection;
  cmd: ODBCCommand;
  param: ODBCParameter;
begin
  try
    sqlcn:=ODBCConnection.Create(c_cnstr);
    cmd:=ODBCCommand.Create(c_sp, sqlcn);
    cmd.CommandType:=CommandType.StoredProcedure;

    param:=cmd.Parameters.Add('serialid', ODBCType.Char, 20);
    param.Value:=SerialID;

    param:=cmd.Parameters.Add('moc_call_origin', ODBCType.Char, 32);
    param.Value:=CallOrigin;

    param:=cmd.Parameters.Add('moc_call_destination', ODBCType.Char, 32);
    param.Value:=CallDestination;

    param:=cmd.Parameters.Add('moc_trans_id', ODBCType.Char, 12);
    param.Value:=TransactionID;

    param:=cmd.Parameters.Add('moc_timestamp', ODBCType.Char, 14);
    param.Value:=TimeStamp;

    sqlcn.Open;
    try
      result:=cmd.ExecuteNonQuery;
    finally
      sqlcn.Close;
    end;
  except
     Result:=-1000;
     raise;
  end;
end;