>

> try

> begin

>

> query1.close;

> query1.sql.clear;

> query1.sql.add('insert into beasong values (:n1,:n2,:n3,:n4,:n5)');

> query1.ParamByName('n1').asstring := trim(unsong_id);

> query1.parambyname('n2').asstring := trim(end_time);

> query1.parambyname('n3').asstring := trim(receive_man);

> query1.parambyname('n4').asstring := trim(relationship_cd);

> query1.parambyname('n5').asstring := trim(received_man);

>

> query1.execsql;

>

> query1.ApplyUpdates; //여기서 바루 업데이트 하시면 Post될겁니다.

>

> end;

> except

>

>

님께서 말씀하신대로 했더니 이런 에러가 나네요

query1 : dataset not in edit or insert mode

델파이의 버퍼안에 insert 내용이 남겨져 있다가

폼이 종료되면...오라클로 넘어가기 때문인것 같아요...

그래서...

아랫줄의

query1.applyupdates; 줄을 삭제하고

대신 tquery1 컴포넌트의 proprety 4번째의 cachedupdate 항목을 true로

바꿔주면..바로 갱신이 됩니다...

답변해주신 분들 감사합니다...









방문현 wrote:

>

> >

> > try

> > begin

> >

> > query1.close;

> > query1.sql.clear;

> > query1.sql.add('insert into beasong values (:n1,:n2,:n3,:n4,:n5)');

> > query1.ParamByName('n1').asstring := trim(unsong_id);

> > query1.parambyname('n2').asstring := trim(end_time);

> > query1.parambyname('n3').asstring := trim(receive_man);

> > query1.parambyname('n4').asstring := trim(relationship_cd);

> > query1.parambyname('n5').asstring := trim(received_man);

> >

> > query1.execsql;

> >

> > query1.ApplyUpdates; //여기서 바루 업데이트 하시면 Post될겁니다.

> >

> > end;

> > except

> >

> >

>

autocommit 이란거 프로그램 종료시에 commit을 하는거 같던데요

저도 이런 경험 했습니다.

tdatabase 컴포넌트를 사용해서 프로그램을 코딩하시는게 좋을 듯 싶네요.



한현숙 wrote:

> 안녕하세요...

> 더운날씨에 고생이 많으십니다...

> 지금 오라클에 insert를 하는데요...

> 특별한 error없이 insert는 되는데요...

> (bde설정을 보면 자동으로 commit이 되는것 같은데...shared autocommit이렇게

> 설정이 되어 있더라구요)

> 그런데...꼭 폼이 종료되어야만...insert된 레코드가 보이네요...

> 즉 실행시키고...바로 select를 하면 제가 insert한 레코드가 보이질 않구요

> 프로그램을 종료시키고 해야만 insert가 되있는게 보이는데...

> 뭐가 잘못된 것인지...도움 부탁드립니다..

> 제 소스는요...

>

> try

> begin

>

> query1.close;

> query1.sql.clear;

> query1.sql.add('insert into beasong values (:n1,:n2,:n3,:n4,:n5)');

> query1.ParamByName('n1').asstring := trim(unsong_id);

> query1.parambyname('n2').asstring := trim(end_time);

> query1.parambyname('n3').asstring := trim(receive_man);

> query1.parambyname('n4').asstring := trim(relationship_cd);

> query1.parambyname('n5').asstring := trim(received_man);

>

> query1.execsql;

>

>

>

> end;

> except

>

>

> messagedlg('Insert 오류',mterror,[mbok],0);

>

>

> end;

>

> 질문을 다 조회해봤는데...이렇게 저렇게 해도 해결이 안되서...

> 질문 올립니다...도와주세요...

>

행인4 wrote:

> autocommit 이란거 프로그램 종료시에 commit을 하는거 같던데요

> 저도 이런 경험 했습니다.

> tdatabase 컴포넌트를 사용해서 프로그램을 코딩하시는게 좋을 듯 싶네요.





데이타베이스 컴포넌트를 사용해서...트랜잭션을 걸었는데도...역시나

폼이 종료가 되야만...데이타가 insert가 되네요...

구체적인 답변 부탁드립니다...



var tranyesno : boolean;



begin

tranyesno := true;

database1.StartTransaction ;

try

begin



query1.close;

query1.sql.clear;

query1.sql.add('insert into beasong_fail values (:n1,:n2,:n3,:n4)');

query1.ParamByName('n1').asstring := trim(unsong_id);

query1.parambyname('n2').asstring := trim(receive_man);

query1.parambyname('n3').asstring := trim(no_beasong_cd);

query1.parambyname('n4').asstring := trim(wait_confirm);



query1.execsql;

end;

except

tranyesno := false;

//messagedlg('Insert 오류',mterror,[mbok],0);

end;



if tranyesno = true then

database1.Commit

else

database1.Rollback ;