🚀 go-pugleaf

"sstar" <s142857@21cn.com> wrote in message news:3c061130$1_2@dnews...
> My procedure is as below:
> CREATE OR REPLACE PROCEDURE BillLogin(
>     sProvider OUT Admins.provider_no %TYPE)
> AS
> BEGIN
>     SELECT provider_no
>     INTO sProvider
>     FROM Admins
>     WHERE admin_id = 'test'
> END;
>
> I'm sure the result is one row only
>
> My codes are as below:
> if(!ADOConnection1->Connected)
> {
>     this->ADOConnection1->Open();
> }
> ADOStoredProc1->ProcedureName = "BillLogin";
>
> ADOStoredProc1->Parameters->Clear();
> ADOStoredProc1->Parameters->AddParameter();
> ADOStoredProc1->Parameters->Items[0]->DataType = ftString;
> ADOStoredProc1->Parameters->Items[0]->Direction = pdOutput;
> ADOStoredProc1->Parameters->Items[0]->Name = "sProvider";
>
> ADOStoredProc1->ExecProc();
> Edit1->Text = VarToStr(ADOStoredProc1->Parameters->Items[0]->Value);
>
>
> When I run the exe file, I receive error message:
> "Parameter object is defined incorrectly. Inconsistant or incompleted
> information is provided."
>
>
> Can anyone tell me how to set patameters for TADOStoredProc?

I was wrestling with TADOStoredProc for a few days and the solution provided
by Arnie Mauer was to use TADOQuery something like "BEGIN  MyProc( parm1,
parm2, etc ); END;".  See the thread "Incorrect documentation for
TADOStoredProc" from the 22/11/01.

HTH

--

Yours faithfully, Graham Reeds.
grahamr@omnieng.co.uk | http://omnieng.co.uk/