Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Автоматически закрывать ADOConnection при сборке

Автор: Beltar 2.10.2009, 10:30

Пожалуй самой бесючей ошибкой в работе с БД у меня является TADOConnection, отставшийся открытым после ковыряния с полями, со строкой подключения настроенной на мой комп. Приносишь такую экзешку, а у пользователя она перед тем, как считать правильные параметры пытается полминуты достучаться до моего компа с предсказуемым результатом.
Есть ли способ перед сборкой установить ее Connected в false, даже если я сам это сделать забуду?

Автор: Deniz 2.10.2009, 11:24

Можно попробовать так:

Код

procedure TForm1.ADOConnection1BeforeConnect(Sender: TObject);
begin
  if not EnableConnection then abort;
end;

EnableConnection при старте ставить False, после установки нужной ConnectionString установить True.

Автор: Beltar 7.10.2009, 15:17

Вроде работает, завтра еще поэксперементирую.
С некоторым опозданием +1.