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

by wolf posted Nov 03, 2011

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

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

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

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


출처:http://niceit.tistory.com/42


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, 40);
10    ads.Parameters.CreateParameter('@SCT', ftString, pdInput, 5'');
11    ads.Parameters.CreateParameter('@Section_Name', ftString, pdInput, 200'');
12    ads.Parameters.CreateParameter('@Priority', ftInteger, pdInput, 40);
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;


Articles

4 5 6 7 8 9 10 11 12 13