Работа с ADOCommand в Delphi: Как получить количество удаленных записей после выполнения SQL-команды удаления?

Delphi , Базы данных , ADO

Вопрос, с которым сталкиваются разработчики, работающие с компонентами ADO в Delphi, заключается в необходимости получить количество удаленных записей после выполнения SQL-команды удаления. Это может быть важно для учета изменений в данных или для отладки.

Ошибка, с которой сталкивается разработчик, указывает на то, что операция подсчета записей не допускается, когда объект закрыт. Это происходит при попытке получить RecordCount после выполнения команды удаления.

Описание проблемы

В коде, представленном разработчиком, используется функция removeRecords, которая пытается выполнить команду удаления и сразу же получить количество обработанных записей через свойство RecordCount объекта _RecordSet. Однако, после выполнения команды удаления, объект _RecordSet закрывается, и доступ к свойству RecordCount становится невозможным.

function TMyClass.removeRecords(...): Integer;
var
  aC: TADOCommand;
  aRS: _RecordSet;
begin
  // ...
  aC := TADOCommand.Create(nil);
  try
    aC.Connection := fConnection;
    aC.CommandText := getDeleteModelSQLCommand(...);
    aRS := aC.Execute;
    {$ifdef debug_AlwaysOne}
      Result := 1;
    {$else}
      Result := aRS.RecordCount; // Ошибка: Operation is not allowed when the object is closed
    {$endif}
  finally
    aC.Free;
  end;
end;

Альтернативный ответ

Изначально предложенный код разработчиком уже содержит попытку решения проблемы, но из-за особенностей работы с объектами ADO, попытка получить RecordCount приводит к ошибке.

Подтвержденный ответ

Для решения этой проблемы следует использовать перегруженную версию метода TADOCommand.Execute, который имеет параметр RecordsAffected для вывода количества обработанных записей:

function Execute(var RecordsAffected: Integer; const Parameters: OleVariant): _Recordset; overload;

Пример использования:

function TMyClass.removeRecords(...): Integer;
var
  aC: TADOCommand;
begin
  aC := TADOCommand.Create(nil);
  try
    aC.Connection := fConnection;
    aC.CommandText := getDeleteModelSQLCommand(...);
    {$ifdef debug_AlwaysOne}
    aC.Execute;
    Result := 1;
    {$else}
    aC.Execute(Result, EmptyParam); // Использование функции EmptyParam из System.Variants
    {$endif}
  finally
    aC.Free;
  end;
end;

В комментариях разработчик упоминает, что при вызове метода Execute с неинициализированным параметром OLEVariant возникает ошибка. Однако, использование функции EmptyParam из модуля System.Variants позволяет корректно передать параметр, который не будет использоваться, и избежать ошибки.

Таким образом, разработчики могут использовать метод Execute с параметром RecordsAffected для получения количества удаленных записей после выполнения SQL-команды удаления, не прибегая к дополнительным запросам к базе данных.

Создано по материалам из источника по ссылке.

Разработчик столкнулся с проблемой в Delphi при попытке получить количество удалённых записей после выполнения SQL-команды удаления, используя компоненты ADO, и обнаружил ошибку, связанную с закрытием объекта после выполнения команды.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: ADO ::