🚀 go-pugleaf

Thank you.
I set enough size for the parameter and then the exception does not appear again.

ADOStoredProc1->Parameters->Items[0]->Size = [a value not short than the column's size];


Thanks again.


"Graham Reeds" <grahamr@omnieng.co.uk> wrote:
>
>"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/
>
>