Привет всем, мне нужно создать запись журнала для этого. Мне нужно захватить sql, выполняемый FDQuery, но я не могу получить текст с параметрами, помещенными в предложение sql.
мой код:
function TModelArea_executante.Inserir: Boolean;
var
Qry: TFDQuery;
begin
Qry := TFDQuery.Create(nil);
try
Qry.Active := False;
Qry.Connection := dmConexao.conDados;
Qry.SQL.Clear;
Qry.SQL.Add('INSERT INTO area_executante ');
Qry.SQL.Add('(area_executante, descricao) ');
Qry.SQL.Add('VALUES');
Qry.SQL.Add('(:area_executante, :descricao) ');
//CodigoGerado := GeraCodigo;
Qry.ParamByName('area_executante').AsString := Area_executante;
Qry.ParamByName('descricao').AsString := Descricao;
try
Qry.ExecSQL;
Result := True;
IncrementarCodigo;
except
on E: Exception do
begin
Result := False;
TCrux.Log('Erro ao tentar salvar Area_executante - ', E.Message);
end;
end;
finally
Qry.DisposeOf;
end;
end;
если кто-нибудь знает, как я могу получить sql с параметрами, замененными на sql, я ценю помощь.