ADOConnection

[Optigood]

Здравствуйте! Подскажите пожалуйста, как сделать, чтобы программа брала файл mdb из папки с исходниками, а не с другого места?
Т.к. если кинуть exe-файл на флешку и запустить на другом компе, прога просит файл БД из директории, указанной при проектировании.

[Grag]

  DbPath:=ExtractFilePath(Application.ExeName)+DbName;
  ADOConnection.ConnectionString:=ADOProvider+DBPath;
  ADOConnection.Open;

ADOProvider='Provider=Microsoft.Jet .OLEDB.4.0; Data Source=';

[Optigood]

Grag, спасибо за то, что помогаете .
Сделал как вы написали, не помогло (базу не видит):

DbPath:=ExtractFilePath(Application .ExeName)+DbName;
ADOConnection.ConnectionString:=ADO Provider+DBPath;
ADOConnection.Open;

А это куда нужно вставлять? Простите, в делфи новичок... Если просто в код кинуть, то выделяет красным DBPath и Exename.

[Grag]

Я это обычно вставляю в FormCreate...
При создании формы определяю путь запуска приложения ExtractFilePath(Application .ExeName), DbName - это имя базы данных,

[Optigood]

Не даёт запуститься программе.

[Grag]

Ну и кто же так пишет-то???!!!

DbPath:=ExtractFilePath(Application.ExeName)+'db1.mdb'

Возможно нужен еще и слэш '\', точно не помню, нужно в отладчике глянуть, что возвращает ExtractFilePath....

ADOProvider='Provider=Microsoft.Jet .OLEDB.4.0; Data Source='; - это строковая константа...

[Optigood]

Я в delphi плохо разбираюсь. На видео-уроках могу ещё что-то сделать...
ругается на DBPath...

[DoDge_VipeR]

var dbpath:string;
begin
ADOProvider='Provider=Microsoft.Jet .OLEDB.4.0; Data Source=';
DbPath:=ExtractFilePath(Application.ExeName)+'Db1.mdb';
ADOConnection.ConnectionString:=ADOProvider+DBPath;
ADOConnection.Open;
end;

а еще проще нажмите build и при выборе базы сотрите полный путь оставив только db1.mdb

[Optigood]

Не помогло...

[Grag]

Я такие подключения использую сплошь и рядом для оперативного переключения между различными базами данных на различных носителях, для оперативной перезагрузки БД после коррекции сторонними программами. Ни разу еще не было сбоев и ошибок... Программы коммерческие...
Значит что-то делаешь не так...

Вот кусок из рабочей программы:

  readln(fTxtFile,DBPath);  //из некоторого файла INI получаю нужную БД, из предыдущего сеанса
  slrADOConnection.ConnectionString:=ADOProvider+DBPath;
  slrADOConnection.Open;
  MainStatBar.Panels[0].Text:='  База данных - '+DBPath;

В твоем случае я уже писал
1 Получаешь путь к Экзешнику ExeDir:=ExtractFilePath(Application .ExeName);
2. Формируешь путь к БД DbPath:=ExeDir+'db1.mdb'
3 И, наконец,

ADOConnection.ConnectionString:=ADOProvider+DBPath;
ADOConnection.Open;