Ошибка подключения FireDAC: как избежать проблемы EFDEException при выполнении запроса в FormCreate

Delphi , Базы данных , Ошибки БД

Введение

FireDAC — это мощный компонент для работы с базами данных в Delphi. Он предоставляет широкий спектр возможностей для подключения к различным типам баз данных и выполнения запросов. Однако, при неправильной настройке или использовании FireDAC могут возникать ошибки, такие как EFDEException, связанная с неактивным соединением.

В этой статье мы рассмотрим, как избежать ошибки EFDEException при выполнении запроса в событии FormCreate и предложим несколько решений.

Проблема

При запуске приложения возникает ошибка EFDEException FireDAC Comp Client -505 Connection [] must be active, когда выполняется запрос в FormCreate или BitbtnGeral. Однако, если выполнить запрос в изоляции, он работает корректно.

Исходный код

Вот исходный код, который вызывает ошибку:

procedure TTESTE.BitbtnGeralClick(Sender: TObject);
begin
  BitbtnGeral.Enabled := False;
  VarBtnGeral := True;
  Button1.Click;
  VarBtnGeral := False;
  BitbtnGeral.Enabled := True;
end;

procedure TTESTE.Button1Click(Sender: TObject);
begin
  if VarBtnGeral then
  begin
    FDQ1.Active := False;
    FDQ1.SQL.Clear;
    FDQ1.SQL.Add('SELECT * FROM BOBINAPESADA');
    FDQ1.Active := True;
  end;
end;

procedure TTESTE.FormCreate(Sender: TObject);
begin
  BitBtnGeral.Click;
end;

Причина ошибки

Ошибка возникает из-за того, что соединение с базой данных неактивно в момент выполнения запроса. В методе Button1Click вызывается FDQ1.Active := False;, который закрывает соединение. Затем, когда вы пытаетесь выполнить запрос, соединение уже закрыто, и возникает ошибка.

Решение

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

Решение 1: Активация соединения перед выполнением запроса

В методе Button1Click необходимо активировать соединение перед выполнением запроса:

procedure TTESTE.Button1Click(Sender: TObject);
begin
  if VarBtnGeral then
  begin
    FDConnection1.Active := True;                     // Активация соединения
    FDQ1.Connection := FDConnection1.Connection;      // Привязка соединения к запросу
    FDQ1.Active := False;
    FDQ1.SQL.Clear;
    FDQ1.SQL.Add('SELECT * FROM BOBINAPESADA');
    FDQ1.Active := True;
  end;
end;

Решение 2: Использование метода Open для выполнения запроса

Можно использовать метод Open для выполнения запроса, что упрощает код и избавляет от необходимости явно управлять состоянием соединения:

procedure TTESTE.Button1Click(Sender: TObject);
begin
  if VarBtnGeral then
  begin
    FDQ1.Close;
    FDQ1.SQL.Clear;
    FDQ1.SQL.Add('SELECT * FROM BOBINAPESADA');
    FDQ1.Open;                                        // Использование метода Open
  end;
end;

Решение 3: Удаление вызова BitbtnGeral.Click из FormCreate

Если выполнение запроса в FormCreate не является обязательным, можно удалить вызов BitbtnGeral.Click из события FormCreate и выполнить запрос в другом месте, например, после завершения инициализации формы:

procedure TTESTE.FormCreate(Sender: TObject);
begin
  // Удаление вызова BitbtnGeral.Click
end;

procedure TTESTE.FormShow(Sender: TObject);
begin
  BitBtnGeral.Click;                                 // Выполнение запроса после отображения формы
end;

Альтернативное решение

Если вы хотите избежать вызова событий вручную, можно использовать метод Execute для выполнения запроса без открытия результата:

procedure TTESTE.Button1Click(Sender: TObject);
begin
  if VarBtnGeral then
  begin
    FDQ1.SQL.Clear;
    FDQ1.SQL.Add('SELECT * FROM BOBINAPESADA');
    FDQ1.ExecSQL;                                     // Использование метода ExecSQL
  end;
end;

Заключение

Ошибка EFDEException при выполнении запроса в FormCreate возникает из-за неактивного соединения с базой данных. Для решения этой проблемы необходимо активировать соединение перед выполнением запроса или использовать методы, которые упрощают управление состоянием соединения. Также рекомендуется избегать вызова событий вручную и использовать методы, которые соответствуют логике приложения.

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

Ошибка подключения FireDAC: как избежать проблемы EFDEException при выполнении запроса в FormCreate.

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

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

:: Главная :: Ошибки БД ::