i can get the field name with "Params.Items.Name" and the value with "Params.Items.Value", i would like to get the "Old value" too.
Code: Select all
//code sample to get fieldname and value of modified field
procedure TForm1.MyQueryAfterUpdateExecute(
Sender: TCustomMSDataSet; StatementTypes: TStatementTypes; Params: TMSParams);
var
I : Integer;
sFieldName : string;
vValue : Variant;
begin
inherited;
if StatementTypes = [stUpdate] then
begin
for I := 0 to Params.Count-1 do
begin
// Get modified field name
sFieldName := Params.Items[I].Name;
// Get value of modified field
vValue := Params.Items[I].Value;
end;
end;
end;