말 그대로 입니다.
이상하게 안 타더군요
도움말을 보아도 이런 내용은 없고 하던데요
그리드 하나에 qry, upsql, Dts 를 각각 연결하고
중복 오류를 냈을시에
except문을 안 타던데 어떤 현상인지 짐작이 안 가는군요
혹시 아시는 고수님덜..
도움좀. 주십시요.
그럼 감사. ^^
밑에 소스는 그냥 테스트로 걸어 본 내용인데
타지를 안습니다.
그럼.
Query3.FieldByName('TOOL_CD').AsString := '1';
Query3.FieldByName('TOOL_CLS').AsString := '111111';
Query3.FieldByName('EXISTS_CLS').AsString := '1';
try
Query3.ApplyUpdates;
except
on E:EDatabaseError do
begin
Query3.Cancel;
showmessage('주보고류');
end;
end;
이 소스대로라면 post가 되지 않았으므로
ApplyUpdates는 케쉬에 들어있는것만
계속 실행 합니다. 그러니 에러가 발생 안되죠...
그리고 ApplyUpdates는 케쉬에 들어 있는
내용을 실행 하는것이므로 에러가 발생 할 수 없죠.
이렇게 한번 바꿔 보세요.
try
Append; //Edit;
Query3.FieldByName('TOOL_CD').AsString := '1';
Query3.FieldByName('TOOL_CLS').AsString := '111111';
Query3.FieldByName('EXISTS_CLS').AsString := '1';
Post;
Query3.ApplyUpdates;
except
on E:EDatabaseError do
begin
Query3.Cancel;
showmessage('주보고류');
end;
end;
좋은 하루 되십시오.