Q&A

  • 서로다른 DB Insert 하는 방법?
개인기초 DB 에서 필요한 필드를 받아서 월간근태등록 DB에 Insert 하는 구문입니다.



procedure Tgunsang1_n.BitBtn15Click(Sender: TObject);

begin

if Idok = Application.Messagebox('정말로 연결하시겠습니까?', '인사정보연결',

MB_Okcancel + MB_Iconquestion) then

begin

DM4.Query1.Close;

DM4.Query1.SQL.Clear;

DM4.Query1.SQL.Add('Insert into 월간근태등록(Sa_no,Busea,Name_k,Jic_ch)');

DM4.Query1.SQL.Add(' select Sa_no, Name_k, Busea, Jic_ch from 개인기초');

DM4.Query1.SQL.Add(' Where Gn_gun = "재직"');

DM4.Query1.Open;



end;

end;



end.



###################################################################################

실행시 에러메세지

Project Project1.exe raised xception class ENOResultSet With message 'Error creating

cursor handle','Process stopped, Use step or Run to continue.



상기와 같이 에러 메세지가 나옵니다.

SQL Explorer 에서는 실행이 됩니다.

Query, dataset, dbgrid 의 속성중에 특별히 조정해야하는 부분이 있나요....

2  COMMENTS
  • Profile
    방경주 2001.01.12 22:19
    DM4.Query1.Open; 을



    DM4.Query1.ExecSql; 로 바꾸어 보세여....DML문은 이것으루 한답니다...



    김범수 wrote:

    > 개인기초 DB 에서 필요한 필드를 받아서 월간근태등록 DB에 Insert 하는 구문입니다.

    >

    > procedure Tgunsang1_n.BitBtn15Click(Sender: TObject);

    > begin

    > if Idok = Application.Messagebox('정말로 연결하시겠습니까?', '인사정보연결',

    > MB_Okcancel + MB_Iconquestion) then

    > begin

    > DM4.Query1.Close;

    > DM4.Query1.SQL.Clear;

    > DM4.Query1.SQL.Add('Insert into 월간근태등록(Sa_no,Busea,Name_k,Jic_ch)');

    > DM4.Query1.SQL.Add(' select Sa_no, Name_k, Busea, Jic_ch from 개인기초');

    > DM4.Query1.SQL.Add(' Where Gn_gun = "재직"');

    > DM4.Query1.Open;

    >

    > end;

    > end;

    >

    > end.

    >

    > ###################################################################################

    > 실행시 에러메세지

    > Project Project1.exe raised xception class ENOResultSet With message 'Error creating

    > cursor handle','Process stopped, Use step or Run to continue.

    >

    > 상기와 같이 에러 메세지가 나옵니다.

    > SQL Explorer 에서는 실행이 됩니다.

    > Query, dataset, dbgrid 의 속성중에 특별히 조정해야하는 부분이 있나요....

  • Profile
    xdelphi 2001.01.12 22:18
    김범수 wrote:

    > 개인기초 DB 에서 필요한 필드를 받아서 월간근태등록 DB에 Insert 하는 구문입니다.

    >

    > procedure Tgunsang1_n.BitBtn15Click(Sender: TObject);

    > begin

    > if Idok = Application.Messagebox('정말로 연결하시겠습니까?', '인사정보연결',

    > MB_Okcancel + MB_Iconquestion) then

    > begin

    > DM4.Query1.Close;

    > DM4.Query1.SQL.Clear;

    > DM4.Query1.SQL.Add('Insert into 월간근태등록(Sa_no,Busea,Name_k,Jic_ch)');

    > DM4.Query1.SQL.Add(' select Sa_no, Name_k, Busea, Jic_ch from 개인기초');

    > DM4.Query1.SQL.Add(' Where Gn_gun = "재직"');

    > DM4.Query1.Open;

    >

    > end;

    > end;

    >

    > end.

    >

    > ###################################################################################

    > 실행시 에러메세지

    > Project Project1.exe raised xception class ENOResultSet With message 'Error creating

    > cursor handle','Process stopped, Use step or Run to continue.

    >

    > 상기와 같이 에러 메세지가 나옵니다.

    > SQL Explorer 에서는 실행이 됩니다.

    > Query, dataset, dbgrid 의 속성중에 특별히 조정해야하는 부분이 있나요....



    혹시나해서.....

    이것때문이 아닐까요...????

    DM4.Query1.Open; ---> DM4.Query1.ExecSQL;