--> Database1->StartTransaction;

> with Query1 do

> begin

> close;

> SQL.Add('insert into abc');

> SQL.Add('(id, irum)'

> SQL.Add('values');

> SQL.Add('(:p_id, :p_irum)');

> For i := 0 to count -1 do

> begin

> ParamByName('p_id').AsString := arr_id[i];

> ParamByName('p_irum').AsString := gs_irum;

> ExecSQL;

> end;

> end;

--> Database1->Commit;















































궁그미 wrote:

> 안녕하시와요...

> 오늘 질문은 Query 컴포넌트를 이용해서 insert를 하였습니다.

> 그런데 그 폼이 죽어야지만 insert 한 결과가 DB에 반영되는 것 같습니다.

> 물론 insert 한 후에 다시 조회를 하면 insert 한 것은 조회리스트에서는 반영이 되는것 같은데 실제 DB에는 그 폼이 죽어야만 반영이 됩니다.

> Query1.commit; --> 이런것이 없는것 같아요...

>

> Query 컴포넌트로는 방법이 없나요...???

> 소스입니다. DB는 오라클이구요...

> 꼭 좀 갈켜주세요...

> 그냥 UpdateSQL 컴포넌트루 하라는 성의없는 대답은 하지 마시구요...

>

> ex)

> with Query1 do

> begin

> close;

> SQL.Add('insert into abc');

> SQL.Add('(id, irum)'

> SQL.Add('values');

> SQL.Add('(:p_id, :p_irum)');

>

> For i := 0 to count -1 do

> begin

> ParamByName('p_id').AsString := arr_id[i];

> ParamByName('p_irum').AsString := gs_irum;

> ExecSQL;

> end;

>

> end;