| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Научите в ODAC обрабатывать ошибки. [D7]

12 ©   (2011-01-31 11:56:00) 

Как ошибку остановить всплывать/добавить свой текст к ней?
В общем, поиметь к ней доступ.

(А в общем, стоит задача юзера ставить в известность, что запись была изменена, пока он ее редактировал.)

smrtqry1: TSmartQuery; Поставил CheckMode := cmException;

orhndlr1: TOraErrorHandler;
//срабатывает, показывает message, refreshит. Как ошибку остановить всплывать?

procedure TForm1.orhndlr1Error(Sender: TObject; E: Exception;
 ErrorCode: Integer; const ConstraintName: String; var Msg: String);
begin
 ShowMessage( 'Обработчик: Попробуем обновить запись' );
 smrtqry1.RefreshRecord;
end;

procedure TForm1.aplctnvnts1Exception(Sender: TObject; E: Exception);
//не ловит ошибку
//aplctnvnts1: TApplicationEvents;
begin
 ShowMessage('aplctnvnts1Exception ' + E.Message );
end;



// --------- тестовые кнопочки
procedure TForm1.btn3Click(Sender: TObject);
begin
  smrtqry1.Refresh;
end;

procedure TForm1.btn1Click(Sender: TObject);  // обновить запись в другой сессии
begin
 oq1.SQL.Text := 'update  branch b set b.bname = ' + QuotedStr('№1 НОВОЕ НАПРАВЛЕНИЕ')+ ' where b.id_branch =  5378';
 oq1.ExecSQL;
end;

procedure TForm1.btn2Click(Sender: TObject);// обновить запись в другой сессии
begin
 oq1.SQL.Text := 'update  branch b set b.bname = ' + QuotedStr('№2 новое направление')+ ' where b.id_branch =  5378';
 oq1.ExecSQL;
end;


Ошибка рождается тут

unit DB;

procedure DatabaseError(const Message: string; Component: TComponent = nil);
begin
 if Assigned(Component) and (Component.Name <> '') then
   raise EDatabaseError.Create(Format('%s: %s', [Component.Name, Message])) else
   raise EDatabaseError.Create(Message); //  
<<----
end;

стек вызовов
DatabaseError('Record was changed by another user.',nil)
TCustomDADataSet.PerformSQL('SELECT * FROM branch'#$D#$A'WHERE'#$D#$A'  ROWID = :OLD_ROWID'#$D#$A'FOR UPDATE NOWAIT',[stLock,stCheck])
TOraDataSet.PerformSQL('SELECT * FROM branch'#$D#$A'WHERE'#$D#$A'  ROWID = :OLD_ROWID'#$D#$A'FOR UPDATE NOWAIT'#$D#$A,[stLock,stCheck])
TCustomSmartQuery.InternalBeforeEdit
TCustomDADataSet.InternalEdit
TCustomSmartQuery.InternalEdit
TDataSet.CheckOperation($923970,nil)
TDataSet.Edit
TDataSource.Edit
TDataLink.Edit
TCustomDBGridEh.CanEditModifyText
TCustomDBGridEh.CanEditModify
TInplaceEdit.KeyPress('5')
TDBGridInplaceEdit.KeyPress('5')
TWinControl.DoKeyPress((258, 53, 0, 4980737, 0))
TWinControl.WMChar((258, 53, 0, 4980737, 0))
TControl.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TWinControl.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TInplaceEdit.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TDBGridInplaceEdit.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TWinControl.MainWndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
StdWndProc(2428022,258,53,4980737)
TApplication.ProcessMessage((2428022, 258, 53, 4980737, 171902656, (542, 410)))
TApplication.HandleMessage
TApplication.Run
Project1

---

Паша   (2011-02-06 13:25:00) [1]

ну, вдогонку. та есть такая себе для этого случая удобная компонента. для совсем ленивых гыгы

---

12   (2011-02-01 13:47:00) [2]

т.е., не надо так вообще делать, смотреть надо в демку в каталоге ODAC

---

12   (2011-02-01 13:20:00) [3]

закрыто, разобрался :)

---

12   (2011-01-31 12:07:00) [4]

причем, если пишу

procedure TForm1.orhndlr1Error(Sender: TObject; E: Exception;
 ErrorCode: Integer; const ConstraintName: String; var Msg: String);
begin
 ShowMessage( 'Обработчик: Попробуем обновить запись' );
     Msg := 'asasas';
 smrtqry1.RefreshRecord;
end;
стандартное, делфевое окно с красным кружочком будет "asasas";
а если Msg := '';
, то "Record was changed by another user."

---

12   (2011-01-31 12:02:00) [5]

т.е., нажимаю кнопкку, в другой сессии значение меняется.
В гриде, показавыется еще старое. Все ок.
Редактирую в гриде - вываливается "Обработчик: Попробуем обновить запись".
Запись обновляеется. Все ок.

И тут выскакивает "Record was changed by another user." - стандартное, делфевое окно с красным кружочком.
(aplctnvnts1Exception  + E.Message не выскакивает)

Родили его в unit DB;
procedure DatabaseError(const Message: string; Component: TComponent = nil);
begin
if Assigned(Component) and (Component.Name <> '') then
  raise EDatabaseError.Create(Format('%s: %s', [Component.Name, Message])) else
  raise EDatabaseError.Create(Message); //  <<----
end;

Как его перехватить?

---

Наверх