ADOConnection: как обеспечить работу подключаемой БД на другом компьютере ?

[Elegance3]

В программе, работающей с БД, использую компонент ADOConnection. В поле ConnectionString прописывается путь к БД. Сам файл БД находится в той же папке, что и проект. Но при открытии программы на другом компьютере возникают проблемы с указанием пути к БД. И соответственно программа не работает. Подскажите, как обойти эту проблему ??

[Аватар]

Сама база тоже на другой комп копируется? Тогда используйте ExtractFilePath(Application.ExeName ) для настройки ConnectionString

[Elegance3]

да, копируется на комп вся папка с проектом и с БД соответственно.
А можно подробнее куда вписать эту функцию ??

[Аватар]

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

const cConString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
...
ADOConnection1.ConnectionString:=Format(cConString,[ExtractFilePath(Application.ExeName)]);
...

ADD

Это нужно сделать перед соединением с СУБД

[Elegance3]

вот это моя строка в ConnectionString:

Provider=Microsoft.Jet.OLEDB.4.0;Us er ID=Admin;Data Source=C:\D&S\Anastasia\Рабочий стол\Телефонная книга (ргз сапкис)___beta 1.0.0.1\контакты.mdb;Mode=Share Deny None;Extended Properties="";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

то есть я могу прописать вашу строку в DataModule ?
потому что как я понимаю обращение к БД происходит во время запуска программы

[Elegance3]

Вписала Вашу функцию в процедуру создания основной формы - выдает ошибку((

[Аватар]

У вас не путь прописуется, а полное имя файла базы данных. Т.е. вместо ExtractFilePath(Application.ExeName ) нужно испльзовать ExtractFilePath(Application.ExeName )+'контакты.mdb'. Еще раз повторяю, это нужно делать до соединения с СУБД. Т.е. сначала правим ConnectionString, а только после этого делаем ADOConnection1.Connected:=True. В проекте свойство ADOConnection1.Connected должно быть False

то есть я могу прописать вашу строку

Вы должны прописать свою строку

[Serge_Bliznykov]

ну и ещё добавлю, если поискать по форуму по ключевому слову ADOConnection,
то найдётся множество тем, посвящённых тому, как формировать строку коннекта в RunTime...

да и внизу "Похожие темы" все подходят, туда тоже можно сходить...

[Elegance3]

сделала всё, выдает ошибку типа "Acces violation at adress 004C2211"

[Elegance3]

Спасибо))) вышла из положения))))