레코드가 변경 될 때 테이블 타임 스탬프 필드 업데이트

Question

데이터베이스로 절대 데이터베이스를 사용하고 있습니다. 절대 데이터베이스는 트리거를 지원하지 않으므로 내 자신의 UPDATE 트리거를 작성해야합니다. 나는이 방법을 시도 :

procedure TDataModule2.ABSQuery6AfterPost(DataSet: TDataSet); 
begin 
    ABSQuery4.Close; 
    ABSQuery4.SQL.Clear; 
    ABSQuery4.SQL.Text :='UPDATE MYTABLE SET RECORDCHANGED=CURRENT_TIMESTAMP'; 
    ABSQuery4.ExecSQL; 
end; 

하지만이 방법은 내가 전체 테이블을 업데이 트입니다. 변경된 레코드 (행) 만 업데이트하려면 어떻게합니까?

편집 : 이것은 내가 그것을

당신은 당신의 쿼리에 ''절에 추가해야

procedure TDataModule2.ABSQuery6AfterPost(DataSet: TDataSet); 
begin 
with ABSQuery4 do begin 
ABSQuery4.Close; 
ABSQuery4.SQL.Clear; 
ABSQuery4.SQL.Text :='UPDATE MYTABLE SET RECORDCHANGED=CURRENT_TIMESTAMP WHERE T_ID=:a1'; 
ABSQuery4.Params.ParamByName('a1').AsInteger := ABSQuery6.FieldByName('T_ID').AsInteger; 
ABSQuery4.ExecSQL; 
end; 
end; 

Answer 1

을 작동하게하는 방법이다. 은 SQL 그것은 마지막의 ID를 전달하는 것이 가장 좋습니다

update mytable 
set recordchanged = current_timestamp 
where id = id_of_last_changed_record 

이는 TDataSet.BeforePost 이벤트와 매우 정직하고 해결할 수

with ABSQuery4 do 
begin 
    Close; 
    SQL.Clear; 
    SQL.Text :='UPDATE MYTABLE SET RECORDCHANGED=CURRENT_TIMESTAMP WHERE ID = :P1'; 
    sql.params[0].asinteger:= id_of_last_changed_record; 
    ExecSQL; 
end; 

Answer 2

코드 만드는 매개 변수를 통해 기록을 변경하게된다 (또한이) .... ???? ... docwiki에서 code sample)

procedure TDataModule2.ABSQuery6BeforePost(DataSet: TDataSet); 
begin 
    DataSet['RECORDCHANGED'] := now; 
end;