델파이 6 에서 ADO 사용시 트랙젝션 처리 방법 때문에 문의를
드립니다.
아래의 예제처럼 저장 실패시에 RDBMS로 부터 전달되는
메세지를 받아보고 싶습니다.
그런데 아래처럼 코딩을 하면 잘 안됩니다. 무결성 제약 위배시
라든가, 여타 에러시에 메세지를 받아 볼수 가 없습니다.

고수님들의 조언을 바랍니다.


procedure TfrmA701e.A_ETC_MSTPost(PostChk : Integer); // 저장
var
    ErrMsg : String;
begin
                :
                :
                :
                :
                :
                :
    frmA000m.ADOConnection1.BeginTrans;
    try
        adodA_ETC_MST.UpdateBatch(arCurrent);
        frmA000m.ADOConnection1.CommitTrans;
        except on E:EADOError do begin
            ErrMsg := '저장 실패 !' + #13 + E.Message;
            ShowMessage(ErrMsg);
            frmA000m.ADOConnection1.RollbackTrans;
            Exit;
        end;
    end;
end;