CUBRID | Q&A - 델파이 ADOStoredProcedure 컴포넌트에서 큐브리드저장함수의 리턴값을 받고싶습니다.

델파이에서 큐브리드저장함수의 리턴값을받고싶은데 어떻게 하면 될가요.

ADOStoredProcedure컴포넌트를 이용해서 MS-SQL저장프로시저호출방법을 이용해봣는데 오류가발생합니다.

큐브리드에선 어떤 방법을 이용해야하는지 알고계시는분좀 알려주세요.

아래내용을 참고해서 했는데 오류가 발생합니다.

01  procedure TMedia_Section.Insert;

02var

03  ads : TADOStoredProc;

04begin

05  ads := eyeDM.CreateADOStoredProc;

06  try

07    ads.ProcedureName := 'usp_mediasection_update';

08    ads.Parameters.CreateParameter('@RETURN_VALUE',ftInteger,pdReturnValue,0,0);   // <-- 반드시 첫번재 파라미터로 선언

09    ads.Parameters.CreateParameter('@SNo', ftInteger, pdInput, 4, 0);

10    ads.Parameters.CreateParameter('@SCT', ftString, pdInput, 5, '');

11    ads.Parameters.CreateParameter('@Section_Name', ftString, pdInput, 200, '');

12    ads.Parameters.CreateParameter('@Priority', ftInteger, pdInput, 4, 0);

13    ads.Parameters.CreateParameter('@Note', ftString, pdInput, 255, '');

14    ads.Parameters.CreateParameter('@NCT', ftString, pdInput, 4, '');

15    ads.Parameters.CreateParameter('@filterStr', ftString, pdInput, 100, '');

16    ads.Parameters.CreateParameter('@regExpr', ftString, pdInput, 100, '');

17

18    ads.Parameters.ParamByName('@SNo').Value := FSNo;

19    ads.Parameters.ParamByName('@SCT').Value := FSCT;

20    ads.Parameters.ParamByName('@Section_Name').Value := FSection_Name;

21    ads.Parameters.ParamByName('@Priority').Value := FPriority;

22    ads.Parameters.ParamByName('@Note').Value := FNote;

23    ads.Parameters.ParamByName('@NCT').Value := FNCT;

24    ads.Parameters.ParamByName('@filterStr').Value := FFilterStr;

25    ads.Parameters.ParamByName('@regExpr').Value := FRegExpr;

26

27    ads.ExecProc;

28

29   FSNo := ads.Parameters.ParamByName('@RETURN_VALUE').value; // <-- 리턴 값을 받아온다

30 finally

31    ads.Free;

32  end;

33end;

델파이 ADOStoredProcedure 컴포넌트에서 큐브리드저장함수의 리턴값을 받고싶습니다.