Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как поймать ошибку в OnDeleteError событии TOraQuery / 9 сообщений из 9, страница 1 из 1
30.11.2018, 12:44
    #39740791
AdamAry
AdamAry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поймать ошибку в OnDeleteError событии TOraQuery
При использовании ODAC (EhLib) на уровне события сессии TOraSession всё проcто:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.OSessionError(Sender: TObject; E: EDAError; var Fail: Boolean);
var
  StrErrorCode: string;
begin
  StrErrorCode := IntToStr(E.ErrorCode);
  ShowMessage(StrErrorCode);
  ShowMessage('Ошибка на уровне БД: ' + E.Message);
end;



Как быть на уровне экземпляра TOraQuery
Код: pascal
1.
procedure TForm1.OMyQueryDeleteError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);



т.е. как поймать ошибку например?:
Код: plsql
1.
ORA-02292
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2018, 13:16
    #39740814
zinpub
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поймать ошибку в OnDeleteError событии TOraQuery
AdamAry,

Ловите OraSession.OnError - там ошибка E:EDAError - в ней есть код оракловый
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2018, 13:25
    #39740819
AdamAry
AdamAry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поймать ошибку в OnDeleteError событии TOraQuery
zinpub,
это я знаю, но мне нельзя использовать события TOraSession (OraSession.OnError).

Мне необходимо вытащить ошибку именно из
procedure TForm1.OMyQueryDeleteError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
из E, если быть более точным.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2018, 13:37
    #39740838
devart
devart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поймать ошибку в OnDeleteError событии TOraQuery
AdamAry,

событие OnDeleteError возникает при ошибке удаления при вызове метода OraQuery.Delete.
Если в OraQuery вы задали явное удаление, т.е.

Код: pascal
1.
OraQuery.SQL.Text := 'DELETE FROM ......';



то ошибку нужно ловить либо в событии OraSession.OnError либо в блоке try...except

Код: pascal
1.
2.
3.
4.
5.
6.
  try
    OraQuery.Execute;
  except
    on e: EOraError do
      ShowMessage(IntToStr(e.ErrorCode) + ': ' + e.Message);
  end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2018, 14:14
    #39740891
AdamAry
AdamAry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поймать ошибку в OnDeleteError событии TOraQuery
devart,
удаление не явное, а через
Код: pascal
1.
HorzScrollBar, через ExtraPanel, nbDeleteEh.



Нельзя использовать событие
Код: pascal
1.
OraSession.OnError



Надо использовать событие
Код: pascal
1.
TOraQuery OnDeleteError.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2018, 14:26
    #39740914
zinpub
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поймать ошибку в OnDeleteError событии TOraQuery
AdamArydevart,
удаление не явное, а через
Код: pascal
1.
HorzScrollBar, через ExtraPanel, nbDeleteEh.



Нельзя использовать событие
Код: pascal
1.
OraSession.OnError



Надо использовать событие
Код: pascal
1.
TOraQuery OnDeleteError.



Объясните пожалуйста, просто в целях образования, почему Session нельзя использовать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2018, 15:14
    #39740968
devart
devart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поймать ошибку в OnDeleteError событии TOraQuery
AdamAry,

При удалении через DBGridEh extraPanel, при возникновении ошибки событие OraQuery.OnDeleteError вызывается, и ошибка приходит корректно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2018, 15:34
    #39741006
AdamAry
AdamAry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поймать ошибку в OnDeleteError событии TOraQuery
devart,
как получить номер ошибки из?:
Код: pascal
1.
procedure TForm1.MyOraQueryDeleteError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);


из
Код: pascal
1.
E: EDatabaseError


из
Код: pascal
1.
E
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2018, 15:46
    #39741023
devart
devart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поймать ошибку в OnDeleteError событии TOraQuery
AdamAry,

Проверить что класс ошибки EOraError, привести E к EOraError, и смотреть свойство ErrorCode

Код: pascal
1.
2.
3.
4.
5.
procedure TForm1.OraQueryDeleteError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
if E is EOraError then
  ShowMessage(IntToStr(EOraError(E).ErrorCode))
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как поймать ошибку в OnDeleteError событии TOraQuery / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 523ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040058]:
 0ms
get settings:
 10ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 193ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 240ms
total:  523ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]