Resultado de un Execute con DBxpress

[cesarsoftware]

Empezado por Al González

Eso es lo curioso.

Nuestro atolondrado amigo César ya había comentado algo sobre la alternativa de usar un componente TSQLXXX, que como todos los TSQLXXX nativos forman parte de dbExpress (o DBX), pero al parecer él no lo ve así:

Y es que la propiedad RowsAffected que juanelo atinadamente mencionó, viene a ser lo mismo que tomar el resultado devuelto por el método ExecSQL:

Saludos.

Al, no se si quieres que me mosquee contigo o que te ignore, al menos lo de "atolondrado" te lo podias guardar para ti, al igual que tus correcciones sobre "biblioteca" y "ha ver", si vas a aportar algo positivo sobre delphi hazlo, parece ser que no soy el unico que busca una respuesta en una pregunta.

Y la respuesta es esta, porque al menos procuro trabajar y buscar la solucion mientras converso en este post

Código Delphi [-]
procedure TFormConfTablas.BotonSQLClick(Sender: TObject);
var
  sql, msg: string;
  SQLQuery: TSQLQuery;
begin
  BotonSQL.Enabled := False;
  sql := MemoSQL.Text;
  SQLQuery := TSQLQuery.Create(nil);
  try
    SQLQuery.SQLConnection := FormBBDD.SQLConnection;
    SQLQuery.CommandText := sql;
    SQLQuery.ExecSQL(True);
    Application.MessageBox(PChar(IntToStr(SQLQuery.RowsAffected) +
                           ' Filas afectadas'), PChar(String(NombrePC)), MB_OK);
  except
    on E: Exception do
    begin
      msg := E.Message;
      Application.MessageBox(PChar(msg), 'Atencion', MB_ICONERROR);
    end;
  end;
  SQLQuery.Free;
  BotonSQL.Enabled := True;
end;