안녕하세요.
제가 사용하는 DB는 Oracle이구요 delphi로 프로그램을 짜다가 막혀서 그렇습니다.
우선 oracle에 procedure를 만들었습니다.
아래과 같은 내용으로
create or replace procudure
quality_procedure
(i_station_id in varchar2,
o_product out varchar2
)
is
cursor c_product is
select model
from config
where station_id =i_station_id;
begin
.
.
.
open c_product;
fetch c_product into o_product;
.
.
.
close c_product;
end quality_procedure;
그리고 delphi에는 이 out parameter(O_PRODUCT) value를 받기위해
아래와 같이 했습니다.
storedproc1.paramByName('I_STATION_ID').AsString := edit1.text;
StoredProc1.ExecProc;
ssk:=StoredProc1.Params[1].asstring;
Label1.Caption:= ssk;
물론 이방법말고 sql을 직접 사용해서 할 수도 있지만 수많은 user가 접속을하고
그리고 여러가지 sql을 사용하때문에 trafic이 busy되는 상태를 피할려고 하기 때문입니다.
위의 내용은 실행은 되는데 output값이 표시가 안됩니다.
혹시 이점 알고 계신분 있으시면 한수 가르침 부탁 드립니다.