Путь к БД, находящейся в папке программы

[kion3]

Здравствуйте! Мне необходимо сделать чтобы при перемещении моей программы не выдавало ошибки: Не найдена БД (или что-то в это роде).
Прописал код:

procedure TForm1.FormCreate(Sender: TObject);
Const
  ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s\Database91.mdb;';
begin
 ADOConnection1.ConnectionString := Format(ConnectionString,[ExtractFileDir(ParamStr(0))]);
 ADOConnection1.LoginPrompt := False;
 try
  ADOConnection1.Open;
 except
  on E: Exception do ShowMessage(E.Message);
 end;
end;

Не работает Вылазит ошибка: 'Операция не допускается, если объект открыт'. Что делать? Не могли бы вы помочь с корректировкой кода....

[ReportCube]

Попробуйте перед присвоением строки соединению его закрыть.

[kion3]

Сообщение от ReportCube

Попробуйте перед присвоением строки соединению его закрыть.

То есть так?
ADOConnection1.Connected := False; ???

[ReportCube]

Полагаю, что именно это и нужно сделать. Вы в программе установили значение True в компоненте. При старте приложения пытаетесь изменить значение, не закрыв соединения.

[Stilet]

То есть так?

Да. Так. В самом начале процедуры.
Но лучше конечно же в дизайнере выключить Active

[kion3]

Сообщение от ReportCube

Полагаю, что именно это и нужно сделать. Вы в программе установили значение True в компоненте. При старте приложения пытаетесь изменить значение, не закрыв соединения.

О дааа.... Наконецто! До меня дошло! Большое спасибо! Всё получилось.
Я прописал эту строчку, но потом БД не отображалась. И затем до меня долшо что и ADOQuery надо поставить в Active-true. Вот и получился финальный код:

procedure TForm1.FormCreate(Sender: TObject);
Const
ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;D ata Source=%s\Database91.mdb;';

begin
ADOConnection1.Connected := False;
ADOConnection1.ConnectionString := Format(ConnectionString,[ExtractFileDir(ParamStr(0))]);
ADOConnection1.LoginPrompt := False;
ADOQuery1.Active := True;

try
ADOConnection1.Open;
except
on E: Exception do ShowMessage(E.Message);
end;

end;

Благодарю вас за помощь

[Аватар]

ADOQuery1.Active := True;

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