Неверный путь к файлу базы

[Kazik]

Добрый день дорогие форумчане. При написании программы возникла проблема:
База: MS Access
Технология: ADO
Используя компонент ADOConecction строю строку к базе данных. Путь указан явно (именно в папке с программой), т.е. нет разницы, где лежит программа. Программа запускается при старте Windows и сразу выдает ошибку типа: "Не могу найти файл: "путь в какую либо системную папку (как правило "system32" или "WOW64")". В чем может быть проблема?

[Аватар]

В чем может быть проблема?

Ну наверно путь не правильно задан или доступа нет по заданному пути

[Kazik]

Сообщение от Аватар

Ну наверно путь не правильно задан или доступа нет по заданному пути

Provider=Microsoft.Jet.OLEDB.4.0;
User ID=Admin;
Data Source=main.mdb;
Mode=Share Deny None;
Jet OLEDB:System database="";
Jet OLEDB:Registry Path="";
Jet OLEDB:Database Password="";
Jet OLEDB:Engine Type=5;
Jet OLEDB:Database Locking Mode=1;
Jet OLEDB:Global Partial Bulk Ops=2;
Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";
Jet OLEDB:Create System Database=False;
Jet OLEDB:Encrypt Database=False;
Jet OLEDB:Don't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;
Jet OLEDB:SFP=False;

вот строка подключения...Data Source=main.mdb; говорит о том, что базу нужно искать в папке с программой.

[Аватар]

Data Source=main.mdb; говорит о том, что базу нужно искать в папке с программой

Не-а. Говорит о том, что файл искать в текущем каталоге. А он не обязан совпадать с каталогом программы. А здесь видимо автозапуск, то он и не совпадает

[Kazik]

reg := tregistry.create;
  reg.rootkey := hkey_local_machine;
  reg.lazywrite := false;
  reg.openkey('software\microsoft\windows\currentversion\run', false);
  reg.writestring('Alert', application.exename); 
  reg.closekey;
  reg.free;

вот код добавления в автозагрузку. с ним что-то не так?
может лучше так прописывать?

reg.writestring('Alert', ExtractFilePath(application.exename));

[Аватар]

может лучше так прописывать?

А в проге нормально сделать? Не считая того, что куча параметров излишни

  s:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%smain.mdb;'+
     'Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
     'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;'+
     'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;'+
     'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;'+
     'Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;'+
     'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
  ADOConnection1.ConnectionString:=Format(s,[ExtractFilePath(Application.ExeName)]);