Delphi+Visual FoxPro 9.0

[Devil_Boy]

Добрый день!
Нужна большая помощь.
Подключаю я базу(.dbc) к Delphi через ADOConnection c помощью поставщика Microsoft OLE DB Provider for Visual FoxPro, и программа работает, но, если запустить ее на другом компьютере будет ошибка пути к базе, потому что изначально указывается полный путь к базе.
Как указать не полный путь? Расписывать подробней))

Заранее спасибо)

[Serge_Bliznykov]

во-первых, на другом компьютере нужно предварительно установить Microsoft OLE DB Provider for Visual FoxPro, он сам по себе в Windows не появляется.

а во-вторых, можно при запуске приложения корректировать ADOConnection.ConnectionString (можете воспользоваться поиском по форуму, это здесь обсуждалось неоднократнейше!)
выглядит это примерно так

  sDbfPath := ExeFilePath + '\DATA';
  if Pos(' ',sDbfPath) > 0 then sDbfPath := '"'+sDbfPath+'"';
  ADOConnection1.Connected := false;
  ADOConnection1.ConnectionString :=
   'Provider=VFPOLEDB.1;Data Source='+sDbfPath+';'+
    'Mode=Share Deny None;Extended Properties="";User ID="";Password="";Mask Password=False;Cache Authentication=False;Encrypt Password=False;Collating Sequence=MACHINE;DSN=""';
  ADOConnection1.Connected := true;

[Devil_Boy]

Спасибо.

sDbfPath := ExeFilePath + '\DATA';

sDbfPath я дал тип string? а остальное это что?

[Serge_Bliznykov]

ну я же показал общий подход. Строка соединения у Вас может быть чуть другая! (можете в инспекторе объектов посмотреть и скопировать вашу строку соединения, а потом заменять нужный путь предложенным мной способом)!

ExeFilePath

- путь, где лежит ваш EXEшник.
а '\DATA' - в моём случае в каталоге с EXEшником был подкаталог (вложенная папка) DATA, где и находились файлы данных.
Если у Вас файлы БД лежат рядом с EXEшником, то ничего прописывать не надо.

да и ещё. не помню, ExeFilePath - это стандартная функция или нет.
поэтому, если с ней будут проблемы, то её легко заменить, на, например,

  ExtractFilePath(ParamStr(0))

это вернёт полный путь к вашему EXEшнику..


Главное, что Вы должны были почерпнуть из моего поста, это то,
что есть ADOConnection1.ConnectionString - и эту саму строку соединения Вам и надо изменять в run-time (во время работы приложения)!