Как настроить CommandTimeout в Delphi для компонентов ADOConnection и ADOQuery

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

Вопрос, заданный пользователем, касается настройки свойства CommandTimeout в компонентах ADOConnection и ADOQuery в среде разработки Delphi. Пользователь столкнулся с проблемой, что установка значения CommandTimeout для ADOConnection не влияет на выполнение запросов, в то время как установка этого же свойства для ADOQuery приводит к ожидаемому результату. В контексте обсуждения также упоминается, что CommandTimeout на уровне ADOConnection может использоваться для фоновых задач, связанных с установлением соединения.

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

Пользователь использует компоненты ADOConnection и ADOQuery в Delphi 10.4.2 для работы с базой данных MSSQL через OLEDB. При работе с большими таблицами, которые требуют больше времени на выполнение запросов, пользователь обнаруживает, что установка CommandTimeout на 600 секунд для ADOQuery решает проблему с таймаутом, в то время как аналогичная настройка CommandTimeout для ADOConnection не приводит к ожидаемому результату.

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

Согласно документации Microsoft, свойство CommandTimeout для каждого объекта ADO устанавливается независимо:

Свойство CommandTimeout объекта Connection не влияет на свойство CommandTimeout объекта Command, использующего то же соединение; другими словами, свойство CommandTimeout объекта Command не наследует значение свойства CommandTimeout объекта Connection.

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

Пользователь также интересуется, для чего предназначено свойство CommandTimeout на уровне ADOConnection, предполагая, что оно может использоваться для фоновых задач, связанных с установлением соединения, например, при перечислении хранимых процедур на сервере.

Пример кода

Для демонстрации работы свойства CommandTimeout можно использовать следующий пример кода на Object Pascal:

program ADOCommandTimeoutExample;
{$APPTYPE CONSOLE}
uses
  ActiveX,
  AdoDb,
  System.SysUtils;

procedure TestADOCommandTimeout;
var
  Conn: TADOConnection;
  Qry: TADOQuery;
  SQLDelay: Integer;
begin
  Conn := TADOConnection.Create(nil);
  Qry := TADOQuery.Create(nil);
  try
    Conn.LoginPrompt := False;
    Conn.ConnectionString := 'Provider=SQLOLEDB.1;Data Source=localhost\sqlexpress;Initial Catalog=TestCustomer;Integrated Security = SSPI;';
    Conn.Connected := True;
    Qry.Connection := Conn;
    Writeln('Соединение с БД установлено');
    SQLDelay := 10;
    Conn.CommandTimeout := 5;
    try
      Writeln(Format('Ожидание %d секунд, таймаут соединения: %d секунд', [SQLDelay, Conn.CommandTimeout]));
      Conn.Execute(Format('WAITFOR DELAY ''00:00:%.2d''', [SQLDelay]));
      Writeln('Таймаут не наступил');
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
    Qry.CommandTimeout := 30;
    try
      Writeln(Format('Ожидание %d секунд, таймаут запроса: %d секунд, таймаут соединения: %d секунд', [SQLDelay, Qry.CommandTimeout, Conn.CommandTimeout]));
      Qry.SQL.Text := Format('WAITFOR DELAY ''00:00:%.2d''', [SQLDelay]);
      Qry.ExecSQL;
      Writeln('Таймаут не наступил');
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
    // Теперь повторим тест, установив таймаут соединения равным таймауту запроса
    Qry.CommandTimeout := 15;
    Conn.CommandTimeout := Qry.CommandTimeout;
    try
      Writeln(Format('Ожидание %d секунд, таймаут запроса: %d секунд, таймаут соединения: %d секунд', [SQLDelay, Qry.CommandTimeout, Conn.CommandTimeout]));
      Qry.SQL.Text := Format('WAITFOR DELAY ''00:00:%.2d''', [SQLDelay]);
      Qry.ExecSQL;
      Writeln('Таймаут не наступил');
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    Qry.Free;
    Conn.Free;
  end;
end;

begin
  try
    try
      CoInitialize(nil);
      TestADOCommandTimeout;
    finally
      CoUninitialize;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

Этот код демонстрирует, что CommandTimeout для ADOConnection и ADOQuery работают независимо, и изменение значения CommandTimeout для ADOConnection не влияет на выполнение запросов через ADOQuery, если только не установлено соответствующее значение CommandTimeout для самого ADOQuery.

Выводы

• Свойство CommandTimeout для ADOConnection и ADOQuery предназначено для установки временного ограничения на выполнение операций, связанных с командами.
• Значение CommandTimeout для ADOConnection не наследуется ADOQuery и наоборот.
• Для корректной настройки таймаута необходимо явно устанавливать CommandTimeout для каждого компонента, с которым планируется работа.

Пользователям, работающим с компонентами ADOConnection и ADOQuery, важно понимать, что настройка таймаутов для каждого компонента должна выполняться отдельно, и что эти настройки не влияют друг на друга.

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

Пользователь пытается настроить свойство `CommandTimeout` в компонентах `ADOConnection` и `ADOQuery` в Delphi для контроля времени выполнения запросов к базе данных.

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

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

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