Fórum Como trabalhar com FDQuery e FDUpdateSQL para Updates e Inserts no FireDac #498843

  function InsertAlgo(const Algo: TAlgo): System.Boolean;
  const
      SQLInsert: String = 'INSERT INTO TABELAALGO' + sLineBreak +
                                     '(CODIGO, DESCRICAO, STATUS)VALUES' + sLineBreak +
                                     '(:CODIGO, :DESCRICAO, :STATUS)';
  begin
     try
       Query.SQL.Clear;
       Query.SQL.Add(SQLInsert);
       Query.ParamByName('CODIGO').AsInteger := Algo.FCodigo;
       Query.ParamByName('DESCRICAO').AsString := Algo.FDescricao;
       Query.ParamByName('STATUS').AsString := Algo.FStatus;
       Query.ExecSQL; // procedimento nativo do FireDac
       Connection.CommitSQL;  // procedimento que fiz para comitar diretamente pela conexão com o banco de dados;
       Result := System.True;
     except
       raise;
     end;
  end;