Обработка исключения EOleException в цикле for при массовом UPDATE в Delphi

Delphi , Синтаксис , Циклы

При работе с базами данных в приложениях на Delphi нередко возникают исключения, которые могут прервать выполнение цикла, в котором производятся массовые операции UPDATE. Одним из таких исключений является EOleException с сообщением "Query timeout expired". В данной статье мы рассмотрим, как правильно обрабатывать это исключение, чтобы гарантировать обработку всех записей, даже если они вызвали исключение несколько итераций назад.

Диагностирование проблемы

Рассмотрим следующий фрагмент кода, где в цикле for выполняются операции UPDATE на удаленной базе данных SQL Server:

try
  for i := 0 to RS.RecordCount-1 do
  begin
    // Оmitting the quotes for brevity
    CN.Execute('my_stored_proc ' + RS.Fields['Dummy'].Value);
    RS.MoveNext;
  end;
except
  on E: Exception do
  begin
    // В данный момент здесь просто отображается сообщение об исключении, которое было вызвано
    ShowMessage(E.ClassName + ': ' + E.Message);
  end;
end;

При выполнении этого кода может возникать исключение EOleException с сообщением "Query timeout expired". Это означает, что поток ожидает ответа от SQL Server и затем прерывает текущий запрос. В результате поток отправляет новое значение i, игнорируя предыдущее. Таким образом, если исключение EOleException было вызвано на i = 613, обработчик просто перейдет к i = 614 и продолжит работу, оставив 613 нетронутой.

Решение проблемы

Чтобы гарантировать обработку всех записей, даже если они вызвали исключение, необходимо обрабатывать исключения внутри цикла, а не снаружи. Также не следует использовать свойство RecordCount. instead, use the Eof property.

Вот пример кода, который демонстрирует правильную обработку исключения EOleException в цикле:

try
  while not RS.Eof do
  begin
    try
      // Оmitting the quotes for brevity
      CN.Execute('my_stored_proc ' + RS.Fields['Dummy'].Value);
    except
      on E: EOleException do
      begin
        if E.Message = 'Query timeout expired' then
          Continue;
        raise;
      end;
    end;
    RS.MoveNext;
  end;
except
  on E: Exception do
  begin
    // В данный момент здесь просто отображается сообщение об исключении, которое было вызвано
    ShowMessage(E.ClassName + ': ' + E.Message);
  end;
end;

В этом примере, если исключение EOleException с сообщением "Query timeout expired" возникает во время выполнения цикла, оно обрабатывается внутри цикла. Если сообщение исключения соответствует "Query timeout expired", выполняется инструкция Continue, которая переходит к следующей итерации цикла, оставляя текущую запись нетронутой. Если сообщение исключения не соответствует "Query timeout expired", исключение перехватывается и обрабатывается в блоке except, следующим за циклом.

Вывод

При работе с базами данных в приложениях на Delphi важно правильно обрабатывать исключения, особенно те, которые могут прервать выполнение цикла, в котором производятся массовые операции UPDATE. В данной статье мы рассмотрели, как правильно обрабатывать исключение EOleException с сообщением "Query timeout expired", чтобы гарантировать обработку всех записей, даже если они вызвали исключение несколько итераций назад. Правильная обработка исключений внутри цикла позволяет избежать потери данных и гарантирует правильную работу приложения.

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

Обработка исключения EOleException в Delphi для предотвращения потери данных при массовом UPDATE в цикле for.

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

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

:: Главная :: Циклы ::