🚀 go-pugleaf

Hi,

I have a problem with a function I am writing to call a stored procedure 
on an SQL  server.
Every time I try to execute it, I get the message
"Formal Parameter @bbActive was defined as OUTPUT but the actual 
parameter not declared OUTPUT"

As can be seen from the code below, I am most definitely declaring the 
parameter as INPUT, and the following parameter is OUTPUT

I am new to this type of DB programming in Builder, so any help 
appreciated.


Thanks.



  TADOCommand*    Command;

  Command = new TADOCommand (this);
  Command->Connection = dbConnection;
  Command->CommandType = cmdStoredProc;
  Command->CommandText = "pr_tblCustomers_Insert;1";
  Command->Parameters->Clear();

  Command->Parameters->CreateParameter ("@ssName", ftString, pdInput, 
50, "Name");
  Command->Parameters->CreateParameter ("@ssAddress1", ftString, 
pdInput, 50, "Address 1");
  Command->Parameters->CreateParameter ("@ssAddress2", ftString, 
pdInput, 50, "Address 2");
  Command->Parameters->CreateParameter ("@ssAddress3", ftString, 
pdInput, 50, "Address 3");
  Command->Parameters->CreateParameter ("@ssAddress4", ftString, 
pdInput, 50, "Address 4");
  Command->Parameters->CreateParameter ("@ssAddress5", ftString, 
pdInput, 50, "Address 5");
  Command->Parameters->CreateParameter ("@ssPhone1", ftString, pdInput, 
50, "Phone 1");
  Command->Parameters->CreateParameter ("@ssPhone2", ftString, pdInput, 
50, "Phone 2");
  Command->Parameters->CreateParameter ("@ssFax", ftString, pdInput, 50, 
"Fax No");
  Command->Parameters->CreateParameter ("@ssEMail", ftString, pdInput, 
50, "EMail Address");
  Command->Parameters->CreateParameter ("@ffEarlyDisc", ftFloat, 
pdInput, 8, 0);
  Command->Parameters->CreateParameter ("@iiEarlyTime", ftInteger, 
pdInput, 4, 0);
  Command->Parameters->CreateParameter ("@ffOverCharge", ftFloat, 
pdInput, 8, 0);
  Command->Parameters->CreateParameter ("@iiPayTime", ftInteger, 
pdInput, 4, 30);
  Command->Parameters->CreateParameter ("@ffPayRate", ftFloat, pdInput, 
8, 0);
  Command->Parameters->CreateParameter ("@bbActive", ftBoolean, pdInput, 
1, True);
  Command->Parameters->CreateParameter ("@iiErrorCode", ftInteger, 
pdOutput, 4, 0);

  Command->Execute();




-- 
Paul Cheetham

"There are 10 types of people in the world - those that understand 
Binary, and those that don't."