뽀록이 wrote:

> with Admin_S_Q do

> begin

> Close;

> Sql.Clear;

> Sql.Add(' Insert INTO T_ADMIN_S (USER_ID, ACCESS, PG_CODE) '

> + 'values' + QuotedStr(Edit2.Text) + ','

> + QuotedStr(IntToStr(Item[I].StateIndex)) + ','

> + QuotedStr(IntToStr(Item[I].SelectedIndex));

>

> EXCESQL;

> end;

>

> 일반 커리에서는 이런식으로 실행 하는데

>

> DCOM에서는 어떵게 해야 할지 모르겠습니다.

>

> Admin_S_Q.Close;

> Admin_S_Q.CommandText := '';

> Admin_S_Q.CommandText := Admin_S_Q.CommandText + ' Insert INTO T_ADMIN_S

> (USER_ID, ACCESS, PG_CODE) '

> + 'Values' + QuotedStr(Edit2.Text) + ','

> + QuotedStr(IntToStr(Item[I].StateIndex)) + ','

> + QuotedStr(IntToStr(Item[I].SelectedIndex));

>

> ADMIN_S_Q.Open; <===============오픈하면 에러가 나고 EXCESQL이란 명령어

> 는 없고 어떻게 실행 하는지 모르겠습니다.

>

> 여러 고수님의 조언을 부탁 드립니다.

>

>



Admin_S_Q.Close;

Admin_S_Q.Params.Clear;

Admin_S_Q.CommandText := 'insert aaa (a, b) values (:a, :b)';

with Admin_S_Q.Params do

begin

CreateParam(ftString, 'a', ptInput).asString := '1';

CreateParam(ftString, 'a', ptInput).asString := 'kmh';

end;



Admin_S_Q.Excute;

*쿼리문이 select 일경우에서 Open이라고 해주면 됩니다.



기존에 파라미터가 이미 정의 되어 있다면



Admin_S_Q.Close;

Admin_S_Q.FetchParams;

Admin_S_Q.CommandText := 'insert aaa (a, b) values (:a, :b)';

Admin_S_Q.Params.ParamByName('a').asString := '1';

Admin_S_Q.Params.ParamByName('b').asString := 'kmh';

Admin_S_Q.Excute;