Путь к бд

@frostyfull · Регистрация: 13.06.2014

Студворк — интернет-сервис помощи студентам

Есть какой нибудь вариант, чтобы база подключалась напрямую из каталога с екзешником?

@northener · 18.06.2014, 17:40

Что значит напрямую?

@frostyfull · 18.06.2014, 17:50 **[ТС]**

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

@pasha@12 · 18.06.2014, 19:51

Delphi
1
2
MainPath := ExtractFilePath(Application.ExeName);
IBDatabase1.DatabaseName := MainPath + 'DATA\BASE.GDB' ;

@frostyfull · 19.06.2014, 10:46 **[ТС]**

pasha@12, MainPath это тип стринговая переменная?

Добавлено через 1 час 16 минут
И если у меня коннект идитет через ADOconnection мне это надо как-то в конекшн стринг вставлять?

@andrey_k3 · 19.06.2014, 11:15

посмотри ЗДЕСЬ - вместо OpenDialog1.FileName пропиши файл бд

@frostyfull · 19.06.2014, 11:28 **[ТС]**

andrey_k3, что такое openDialog1, как я понимаю это мне не нужно да?
Просто мне нужно поместить путь к бд до открытия основной формы программы, я пытался через ExtractFilePath, как бы в моей форме все работает нормально, но при попытке поместить этот код в сам .exe он не понимает что такое ExtractFilePath, и я вот хз что делать

@Фонарик · 19.06.2014, 11:38

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

@frostyfull · 19.06.2014, 11:49 **[ТС]**

Фонарик, так не работает, по крайней мере с OLEDB Jet 4, если не указывать путь, он думает что база должна находиться в папке System32
ну в общем я уже придумал как записать в конекшн стринг, но теперь у меня другой вопрос:
В Connection String есть параметр Jet OLEDB: Don't Copy Locale on Compact, и ковычку в Don't он распознает как ограничитель текста если можно так назвать

Delphi
1
+ExtractFilePath(Application.ExeName)+'\base.mdb;Mode=Share Deny None;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;

как теперь от этого избавиться?)

@northener · 19.06.2014, 11:59

Чтобы кювычка не распознавалась как ограничитель текста, её нужно удвоить.

@frostyfull · 19.06.2014, 13:03 **[ТС]**

northener, В сысле двойную поставить или 2 одинарных или лучше пример скинь

@frostyfull · 20.06.2014, 13:03 **[ТС]**

Кароче вот как я сделал, чтобы путь брался от екзешника
Это происходит на CreateForm основной формы
В переменную s я считываю путь в основной форме, т.к. в дата модуле такие команды не распознаются

Delphi
1
s:= ExtractFilePath(Application.ExeName)+'base.mdb';

Добавил еще 2 элемента АДОконекшн и забил в них по кусочку от моей ConnectionString основного коннекта, т.к. она слишком длинная и делфи ругается
После чего я собираю их в одну строку при создании дата модуля

Delphi
1
ADOConnection1.ConnectionString:=ADOConnection2.ConnectionString+s+ADOConnection3.ConnectionString;

вот так вот, конечно выглядит не очень, но работает прекрасно

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@frostyfull 34 / 34 / 8 Регистрация: 13.06.2014 Сообщений: 509

	Путь к бд 18.06.2014, 17:03. Показов 857. Ответов 11 Метки нет (Все метки) Есть какой нибудь вариант, чтобы база подключалась напрямую из каталога с екзешником? 0

@northener пофигист широкого профиля 4770 / 3205 / 862 Регистрация: 15.07.2013 Сообщений: 18,613
	18.06.2014, 17:40
	Что значит напрямую? 0

@frostyfull 34 / 34 / 8 Регистрация: 13.06.2014 Сообщений: 509
	18.06.2014, 17:50 [ТС]
	northener, ну например пользователь распаковывает мою программу туда, куда ему захочется вместе с базой данных вот я хочу узнать есть ли такой способ, чтобы не надо было париться с путем к бд, а чтобы она бралась просто по названию из каталога с моим екзешником 0

@frostyfull 34 / 34 / 8 Регистрация: 13.06.2014 Сообщений: 509
	19.06.2014, 10:46 [ТС]
	pasha@12, MainPath это тип стринговая переменная? Добавлено через 1 час 16 минут И если у меня коннект идитет через ADOconnection мне это надо как-то в конекшн стринг вставлять? 0

@andrey_k3 129 / 129 / 41 Регистрация: 17.10.2013 Сообщений: 335
	19.06.2014, 11:15
	посмотри ЗДЕСЬ - вместо OpenDialog1.FileName пропиши файл бд 0

@frostyfull 34 / 34 / 8 Регистрация: 13.06.2014 Сообщений: 509
	19.06.2014, 11:28 [ТС]
	andrey_k3, что такое openDialog1, как я понимаю это мне не нужно да? Просто мне нужно поместить путь к бд до открытия основной формы программы, я пытался через ExtractFilePath, как бы в моей форме все работает нормально, но при попытке поместить этот код в сам .exe он не понимает что такое ExtractFilePath, и я вот хз что делать 0

@Фонарик 28 / 28 / 15 Регистрация: 18.11.2012 Сообщений: 79
	19.06.2014, 11:38
	frostyfull, когда создаете соединение и выбрали путь к базе, если она в папке с exe-шником, в строке оставляем только имя базы, см вложение Миниатюры 0

@northener пофигист широкого профиля 4770 / 3205 / 862 Регистрация: 15.07.2013 Сообщений: 18,613
	19.06.2014, 11:59
	Чтобы кювычка не распознавалась как ограничитель текста, её нужно удвоить. 0

@frostyfull 34 / 34 / 8 Регистрация: 13.06.2014 Сообщений: 509
	19.06.2014, 13:03 [ТС]
	northener, В сысле двойную поставить или 2 одинарных или лучше пример скинь 0