[nattive]

Есть приложение Делфи на флешке.

БД с которой работает приложение установлена в той же папке что и само приложение (на флешке).

Соединение с БД при помощи ADOConnection и UDL файла.
При запуске программы на другом пк теряет путь к базе.

Прописывать новый путь в UDL файле ни к чему не приводит - БД не найдена.

Вижу как вариант: при запуске программы необходимо проверять путь,
если он не совпадает с указанным путем в своействах ADOConnection,
есть смысл выдать сообщение с окном, где можно легко указать расположение UDL файла
и расположение файла будет прописываться в свойсвах ADO Conn.
(при этом в самом UDL файле расположение к базе меняется вручную).

Помогите прописать код.
Решит проблемы использования одного приложения и одной БД на разных ПК.

[Kailon]

Попробуй так... Ни каких файлов и ничего писать не нужно.

Код:

var
  MyPath: String;

procedure TFormGeneral.FormCreate(Sender: TObject);
begin
  GetDir(0, MyPath);
  try
    ADOConnect.ConnectionString :=
      'Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=' + MyPath +
      '\NameBase.mdb;' + 'Persist Security Info=False;';
    ADOConnect.Connected := True;
    ADOTableWorker.Active := True;
  except
    MessageBox(Handle,
                 'Произошла ошибка при подключении к базе данных!',
                 'Ошибка!',
                 MB_ICONERROR + MB_OK);
    Application.Terminate;
  end;
end;