не вызывается событие OnBeforePost

← →
12345 (2013-09-30 12:12) [0]

Q := TQuery.Create(nil); try Q.SessionName := Session.SessionName; Q.DatabaseName := Database.DatabaseName; Q.SQL := "SELECT * FROM item WHERE flag = 1"; Q.RequestLive := True; Q.Open; if Q.RecordCount > 0 then begin Q.First; while not Q.Eof do begin Q.Edit; Q.Post; Q.Next; end; end; except Q.Free; end;

← →
MBo © (2013-09-30 12:34) [1]

А где назначен обработчик?

← →
12345 (2013-09-30 13:12) [2]

А где назначен обработчик?

Вся обработка выполняется в триггере. Проблема в том, что если не изменялось значение какого-либо из полей, обработчик не вызывается. Приходится вставлять такой вот костыль:

Q.Edit;
Q.FieldByName("url").AsString := " ";
Q.Post;

← →
Необычный порошок (2013-09-30 13:28) [3]

Вранье.

procedure TDataSet.Post;
begin
UpdateRecord;
case State of
dsEdit, dsInsert:
begin
DataEvent(deCheckBrowseMode, 0);
DoBeforePost;
CheckOperation(InternalPost, FOnPostError);
FreeFieldBuffers;
SetState(dsBrowse);
Resync([]);
DoAfterPost;
end;
end;
end;

procedure TDataSet.DoBeforePost;
begin
if Assigned(FBeforePost) then FBeforePost(Self);
end;

← →
Плохиш © (2013-09-30 13:52) [4]

> 12345 (30.09.13 13:12) [2]

Причём здесь событие OnBeforePost?

> Вся обработка выполняется в триггере.

Делфи здесь каким боком?

> Q := TQuery.Create(nil);

Q.OnBeforePost :=

← →
Необычный порошок (2013-09-30 14:01) [6]

чувак хочет чтобы сработал триггер на апдейт.
причем даже тогда, когда бде не посылает на сервер никакого апдейта так как в датасете ничего не изменилось.

не вызывается событие OnBeforePost Найти похожие ветки