안녕하세요..

워낙 미숙한지라 제대로 설명이 될지 걱정입니다..

1. 환경
- Oracle DB, Delphi 4.0

2. 질문내용
아래 소스 일부에서 보듯 Query OPEN 시점에서 발생하는
Exception 을 제어하기 위한 질의 내용입니다..

사용환경상 한 프로그램 내에서 2개의 DB Component 를 사용하고 있습니다..
A 라는 DB Component 에 해당하는 Query 가 진행된 후
B 에 해당하는 DB Component 의 Query 가 진행됩니다..
(아래소스는 B에 해당됨)

B 의 Query OPEN 시점에서 DB Connect 가 불가능한 상황이라
Exception 이 발생합니다..

여기서 발생하는 Exception 을 무시하고 이미 진행이된 A DB Component 의
Query 결과를 Quick Report 로 출력하고자 하는 내용입니다..

아래 소스의 내용과 같이 코딩을 했지만 Exception 을 무시할 수 가 없더군요..

현재 Main Form 에서 String 변수를 선언했고 (aa = 'N')
아래 B DB Component 의 Query 내용에서
Try ~ Except 문을 사용하여 제어하려 했습니다..

발생하는 Exception 을 변수로 처리했고
Main Form 에서 선언된 변수와 함께 조건을 비교하여
Exit 하려고 했는데..

잘 처리가 되지 않아서요..

   if aa = 'Y' then exit;
  
   with Query5 do
          .
          .
          .

      sql.add('order by gbn, b.prdt_seq                               ');

      try
      Open;
      except on EDBEngineError do aa := 'Y';
      end;

두서없는 질문이지만 감잡히시는분이 계시다면
좋은 답변 부탁 드리겠습니다..

그럼 좋은 하루되시구요.. 즐코하세요~~