[wretch.n]

Помогите пожалуйста.Есть программа АРМ диспетчера ремонтной мастерской. Программа написана с использованием технологии ADO.При запуске постоянно слетает путь Базы Данных и она не открывается, как сделать, что бы открывалось без проблем.Фото прилагается.

[syrj]

Обявляю переменную FilePath-типа String, потом при FormCreate пишу такой код:

FilePath:=ExtractFilePath(Application.ExeName);
IBDKommunal.DatabaseName:=FilePath+'Имя БД.FDB';

P.S. База лежит в той же папке, что и приложение.

[Alegun]

Ещё вариант

Код:

...
table.ConnectionString:=
 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
 extractFileDir(ParamSTR(0)) +
 '\База.mdb;Mode=ReadWrite;Persist Security Info=False';
...

[lmikle]

Сообщение от wretch.n

Помогите пожалуйста.Есть программа АРМ диспетчера ремонтной мастерской. Программа написана с использованием технологии ADO.При запуске постоянно слетает путь Базы Данных и она не открывается, как сделать, что бы открывалось без проблем.Фото прилагается.

а путь-то существует?

Сообщение от syrj

Обявляю переменную FilePath-типа String, потом при FormCreate пишу такой код:

FilePath:=ExtractFilePath(Application.ExeName);
IBDKommunal.DatabaseName:=FilePath+'Имя БД.FDB';

P.S. База лежит в той же папке, что и приложение.

А в чем вопрос-то?
Желательно сделать Close перед и Open после смены путя

[Yurk@]

Сообщение от syrj

Обявляю переменную FilePath-типа String, потом при FormCreate пишу такой код:
FilePath:=ExtractFilePath(Application.ExeName);
IBDKommunal.DatabaseName:=FilePath+'Имя БД.FDB';
P.S. База лежит в той же папке, что и приложение.

если база всегда лежит в той же папке что и программа - то данный код лишний.
достаточно в свойствах IBDKommunal.DatabaseName просто написать имя файла БД и все

[syrj]

Просто если ставить эту программу другим пользователям, то у них может быть путь другой, чем у меня в программе разработки. Вот для этого и пользуюсь этой конструкцией, чтоб не заворачиваться на прописывания пути через ini-файл.