Как подключить бд в АДО чтобы при запусках на других компах не выдавало ошибку пути подключения бд?

[jawa250t]

Не получается, однако)

[Аватар]

Коннектиться при старте программы, предварительно указав в строке соединения путь к базе

[jawa250t]

ну путь то я указал! а как сделать так чтоб при следующих запусках прога не привязывалась к тому месту, где при разработке лежала у меня бд

что то типа с\рабочий стол\и тд

[Аватар]

предварительно указав в строке соединения путь к базе

Имеется ввиду не во время разработки, а во время выполнения. Можно базу в каталог проги поместить, тогда найти этот путь особых проблем нет

[jawa250t]

у меня база лежит в папке с экзешником, у меня семерка, если запускать на хр то путь же уже другой будет и будет ошибку выдавать

[Аватар]

Application.ExeName возвращает путь и имя вашего исполнимого файла. Уберите имя файла - останется путь и подставте его в строку соединения. И какая разница 7-ка или XP? И посмотрите функцию ExtractFilePath

[jawa250t]

все понял, убрал в подключении полностью весь путь оставил токо имя бд и все заработало! спасибо!

[Rin]

var StringText:WideString;
........................
   StringText:=
  'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
  'Source='+GetCurrentDir+'\db.mdb'+
  ';Mode=ReadWrite;Extended Properties="";Persi' +
  'st Security Info=True;Jet OLEDB:System database="";Jet OLEDB:Reg' +
  'istry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engin' +
  'e Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Part' +
  'ial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Ne' +
  'w Database Password="";Jet OLEDB:Create System Database=False;Je' +
  't OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Co' +
  'mpact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet O' +
  'LEDB:SFP=False';

ADOConnection1.ConnectionString:=StringText;
ADOConnection1.Connected:=true;
// Если у вас все таблицы и запросы подсоединены к ADOConnection1, то так
TADOTable1.Active:=true;
TADOQuery1.Active:=true;
// Если у вас все таблицы и запросы НЕ подсоединены к ADOConnection, то так
TADOTable1.ConnectionString:=StringText;
TADOQuery1.ConnectionString:=StringText;
TADOTable1.Active:=true;
TADOQuery1.Active:=true;

Если БД у вас запаролена, то пароль (Password=) указывается без кавычек.

[Аватар]

GetCurrentDir - не факт, что будет каталог єкзешника
Надежнее ExtractFilePath(Application.ExeName )

[jawa250t]

аватар, если можно скинь отрывок кода)