Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 TOraQuerry - перехват ошибок  [new]
Руслан И
Member

Откуда: Уфа
Сообщений: 13
При открытии TOraQuery.Open; хотелось бы перехватить ошибку SQL и вывести ошибочный SQL запрос. Кто нибудь находил решения?
У меня получалось только перехватывать ошибку у TOraSession (Событие OnError), но текст запроса получить не могу в этом случае.
Delphi 7
ODAC 5.10.0.5
Сервер Oracle 11G
9 янв 18, 14:32    [21090111]     Ответить | Цитировать Сообщить модератору
 Re: TOraQuerry - перехват ошибок  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 24148
Руслан И
но текст запроса получить не могу в этом случае.

Почему?

+
E.Component
9 янв 18, 14:35    [21090119]     Ответить | Цитировать Сообщить модератору
 Re: TOraQuerry - перехват ошибок  [new]
Руслан И
Member

Откуда: Уфа
Сообщений: 13
wadman,
Спасибо огромное за помощь!
9 янв 18, 14:40    [21090148]     Ответить | Цитировать Сообщить модератору
 Re: TOraQuerry - перехват ошибок  [new]
softwarer
Member

Откуда: 127.0.0.1
Сообщений: 53438
Блог
Руслан И
Кто нибудь находил решения?

Тут незачем искать решение, поскольку при правильной архитектуре приложения это вообще не проблема.

"Проблема" возникает только из-за употребления порочной практики прямого использования чужих компонент в своём коде. Адекватное решение - в тот момент, когда хочется использовать чужой компонент, делать для него обёртку и использовать в этой обёртке. Тогда задача решается за минуту примерно следующим образом:

procedure TMyQuery.InternalOpen;
begin
  try
    inherited;
  except
    { Шо вы там хотели сделать с исключением? }
  end;
end;
9 янв 18, 15:49    [21090506]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить