Прописать путь до базы данных

@Jaydens_Blues · Регистрация: 15.10.2014

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

Всем доброго дня! Я догадываюсь, что в первую очередь меня направят по соседним темам, но сразу оговорюсь, что я там был.

Итак. Есть программа которая открывает базу данных, находящуюся по уже заданному пути. Требуется сделать так, чтобы перед открытием пользователь мог сам выбрать БД, которую хочет открыть.

Для начала я пытаюсь изменить путь открываемой БД и у меня ничего не получается. Понятное дело, что при перемещении БД, условно, из "C:\bd\1" в "C:\bd\2" выдается ошибка, что "Path not found. File: .... history.db". Т.е. не находит открываемую таблицу базы данных - history.db.

В коде путь до БД нигде не прописан, я нашел путь только открыв элемент Database1 (TDatabase) через SQL Explorer. В поле PATH он и прописан.
Я нашел такие варианты его менять через код:

1) Database1.Params.Values["PATH"]:='C:\bd\2';
2) Database1.Params.Add('PATH=C:\bd\2');

К сожалению, куда бы не вставлял - выдаются ошибки. Либо та, что выше (не находит таблицу по старому пути), либо другие (может быть не туда сую эти строки?).
Все элементы, имеющие отношение к базам данных находятся в отдельном юните, в составе TDataModule.

Заранее очень благодарен за помощь.

Razdolbait · 15.10.2014, 17:44

По соседним темам лень лазить даже ради того чтобы было куда послать.
Но есть же гугл: http://kak-iskat.ru/?q=%D0%BF%... %B2+delphi
Вот тут неплохо написано: http://devdelphi.ru/?p=16
Еще как вариант можно узнать как работает прога у того у кого ты ее содрал)

@Jaydens_Blues · 16.10.2014, 06:16 **[ТС]**

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

Еще как вариант можно узнать как работает прога у того у кого ты ее содрал)

Да прогу эту человек написал лет восемь назад, я его даже не знаю. Много чего там уже поправил, несмотря на то, что именно с БД в Delphi столкнулся недавно. Проблемы именно с открытием произвольной БД, а не той, которая изначально существует и с которой работает программа.

@Доцент · 16.10.2014, 13:30

Так ну давайте уточним, что за база используется?
Вам нужно добавить новый функционал? Т.е. вы добавляете этот выбор бд?
Обязательно пользователь должен выбирать базу? мб вынести в ини файл?

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

Ещё поподробнее опишите механизм работы с базой? параметры накиданы в дизайнере? или какт оподгружаются?

@Jaydens_Blues · 16.10.2014, 14:01 **[ТС]**

Спасибо, что присоединились к беседе!

Сообщение от Доцент

Вам нужно добавить новый функционал? Т.е. вы добавляете этот выбор бд?

Функционал планируется такой: выбор папки, в которой находится открываемая БД со всеми ее таблицами, с возможностью "вырезать" данные из этих таблиц и вставлять их в таблицы новой БД такой же структуры. Грубо говоря, в изначальной БД у нас есть информация по "хлебу" и "молоку", а при помощи программы мы можем экспортировать информацию только, например, по "молоку" или по другим признакам.

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

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

Delphi
1
2
3
4
5
6
7
Session.AddStandardAlias(alias,Dir,'DBASE');//Создаём стандартный алиас
Session.SaveConfigFile;
Params:= TStringList.Create;
Params.Add('PATH='+'Необходимая директория');
Session.ModifyAlias(Alias,Params);
Session.SaveConfigFile;
Params.Clear;

Но как я понял, это способ в большей степени для постоянки - один раз прописал новый путь и забыл (например, при работе на другом ПК). А нужно, чтобы путь мог меняться много раз, ведь полученных БД из изначальной может быть много. Т.е. через диалог выбрали папку, база оттуда и загрузилась.

БД в программе выглядит как-то так

@Доцент · 16.10.2014, 14:30

Вы не ответили ни на один вопрос)

@Jaydens_Blues · 16.10.2014, 17:13 **[ТС]**

Сообщение от Доцент

Вы не ответили ни на один вопрос)

Про базу могу сказать, что она была создана не в Access, там таблицы .db, похоже, что Paradox, я их открывал и редактировал через Database Desktop - менял типы данных, удалял/добавлял столбцы/строки и т.д. Да, нужно ввести новый функционал, я написал о нем выше, но сейчас больше всего волнует начала - выбор папки с БД, которую нужно открыть. Да, пользователь должен сам выбирать папку, в которой база.
На изображении выше показаны все элементы, их параметры в коде не встречаются. В коде только запись/чтение

@Доцент · 16.10.2014, 17:28

Ой ой ой, а вы не хотите перевести это на другую базу? это же BDE, это же древнее всё... Да и потом там используются алиасы для доступа к базе... Лично я уже не помню ньансов работы с БДЕ, но могу сказать следующее...
Вам нужно вначале сделать форму скнопкой (или ещё чтото) что позволит вызвать опен диалог, пользователь выберает каталог. И только после этого делать коннект к таблицам...

@Jaydens_Blues · 16.10.2014, 18:06 **[ТС]**

Сообщение от Доцент

Ой ой ой, а вы не хотите перевести это на другую базу? это же BDE, это же древнее всё... Да и потом там используются алиасы для доступа к базе... Лично я уже не помню ньансов работы с БДЕ, но могу сказать следующее...
Вам нужно вначале сделать форму скнопкой (или ещё чтото) что позволит вызвать опен диалог, пользователь выберает каталог. И только после этого делать коннект к таблицам...

Ну вот так... Я не знаю, что из себя будет предполагать перевод этой базы на базу другого типа, где, что и как конвертировать и переписывать... Информации там много, как я уже говорил, программе много лет. В последней вставке кода я как раз привел пример, как можно с этими алиасами открывать базу, если она находится не там, где была изначально. У меня сложилось впечатление, что пример этот вряд ли годится для постоянного выбора нового местоположения,т.к. создается новый алиас с новым именем и для выбора новой папки нужно создавать новый алиас с новым именем, иначе delphi пишет ошибку "Name Not Unique In This Context".

Сообщение от Доцент

Вам нужно вначале сделать форму скнопкой (или ещё чтото) что позволит вызвать опен диалог, пользователь выберает каталог. И только после этого делать коннект к таблицам...

Это я понимаю, вопрос как раз и состоит в том, как коннектиться к таблицам, которые расположены не там, где было задумано изначально, а в любой папке. В свойствах объекта Database1(на рисунке) есть параметр PATH, но он виден только при открытии элемента через SQL Explorer, из контекстного меню Delphi, но в самом Delphi его нет. Вот я и думал, что достаточно будет поменять его в программе, т.е. при выборе папки с БД ее путь будет подставляться туда. Но вот ничего пока не получается.

@Доцент · 16.10.2014, 18:45

Delphi
1
2
3
4
5
6
7
Session.AddStandardAlias(alias,Dir,'DBASE');//откуда берётся Dir
Session.SaveConfigFile;
Params:= TStringList.Create;
Params.Add('PATH='+'Необходимая директория');//а попробуйте сюда вместо русских букв писть значение из опендиалог! не?)
Session.ModifyAlias(Alias,Params);
Session.SaveConfigFile;
Params.Clear;

@Jaydens_Blues · 16.10.2014, 19:03 **[ТС]**

Да об этом я тоже в курсе

Для начала я просто пробую прописать конкретный путь вместо русских букв, вроде 'С:\Folder'. Как я уже писал выше, лишь отчасти получилось: программа открыла первую таблицу из папки, которую должна открывать на старте. Но при запросе остальных таблиц - ошибка - их программа уже не может найти. Да и при создании алиаса с каким-то именем, второй раз уже не получится с этим же именем создавать, ошибку пишет, приходится писать уже не Alias, а Alias1, например, иначе не компилируется.

Вот я поэтому обратился за помощью к вам, может быть я чего-то очевидного не замечаю или просто не знаю... Казалось бы, тривиальная задача - программно менять путь папки с БД! Но пока что не выходит

@Доцент · 17.10.2014, 12:35

Ну так просто чтото действительно дельно подсказать не могу, только догадки надо ковырять код...

@Jaydens_Blues · 17.10.2014, 12:52 **[ТС]**

Сообщение от Доцент

Ну так просто чтото действительно дельно подсказать не могу, только догадки надо ковырять код...

Копаю. Про BDE почитал и сложилось впечатление, что требуемого функционала в лучшем случае удастся добиться только "костылями"

@Доцент · 17.10.2014, 13:15

BDE это уже устаревшая модель доступа к данным да и парадокс это далеко не база это если я не ошибаюсь обычныйе файлы с раширением db. попробуйте перекинут ьвсё эт ов нормлаьную базу MySQl или FireBird

@Jaydens_Blues · 17.10.2014, 13:18 **[ТС]**

Сообщение от Доцент

попробуйте перекинут ьвсё эт ов нормлаьную базу MySQl или FireBird

Я так понимаю, это сулит переписку программы

@Доцент · 17.10.2014, 14:04

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

@Jaydens_Blues · 23.10.2014, 12:45 **[ТС]**

В принципе, как вариант... При создании новой базы нужно будет создать алиас (как показано выше: с новым путем до таблиц и т.д.), после этого, для открытия этой новой базы, нужно всего-то поменять имя алиаса перед открытием таблиц.

Delphi
1
Database1.AliasName:='имя открываемого алиаса';

И все, открываются те таблицы, которые указаны в PATH открываемого алиаса.
По крайней мере, это работает при старте программы. Теперь надо будет разобраться, как это все относительно грамотно реализовать

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@Jaydens_Blues 0 / 0 / 0 Регистрация: 15.10.2014 Сообщений: 30

	Прописать путь до базы данных 15.10.2014, 12:23. Показов 6874. Ответов 16 Метки нет (Все метки) Всем доброго дня! Я догадываюсь, что в первую очередь меня направят по соседним темам, но сразу оговорюсь, что я там был. Итак. Есть программа которая открывает базу данных, находящуюся по уже заданному пути. Требуется сделать так, чтобы перед открытием пользователь мог сам выбрать БД, которую хочет открыть. Для начала я пытаюсь изменить путь открываемой БД и у меня ничего не получается. Понятное дело, что при перемещении БД, условно, из "C:\bd\1" в "C:\bd\2" выдается ошибка, что "Path not found. File: .... history.db". Т.е. не находит открываемую таблицу базы данных - history.db. В коде путь до БД нигде не прописан, я нашел путь только открыв элемент Database1 (TDatabase) через SQL Explorer. В поле PATH он и прописан. Я нашел такие варианты его менять через код: 1) Database1.Params.Values["PATH"]:='C:\bd\2'; 2) Database1.Params.Add('PATH=C:\bd\2'); К сожалению, куда бы не вставлял - выдаются ошибки. Либо та, что выше (не находит таблицу по старому пути), либо другие (может быть не туда сую эти строки?). Все элементы, имеющие отношение к базам данных находятся в отдельном юните, в составе TDataModule. Заранее очень благодарен за помощь. 0

Razdolbait 25 / 25 / 22 Регистрация: 18.09.2014 Сообщений: 218
	15.10.2014, 17:44
	По соседним темам лень лазить даже ради того чтобы было куда послать. Но есть же гугл: http://kak-iskat.ru/?q=%D0%BF%... %B2+delphi Вот тут неплохо написано: http://devdelphi.ru/?p=16 Еще как вариант можно узнать как работает прога у того у кого ты ее содрал) 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	16.10.2014, 13:30
	Так ну давайте уточним, что за база используется? Вам нужно добавить новый функционал? Т.е. вы добавляете этот выбор бд? Обязательно пользователь должен выбирать базу? мб вынести в ини файл? Ну а по суте если в крацте, то вам нужно перед подключением к базе указать настройки подключения, либо если настройки базы уже были, тогда после выбра базы нужно сначало выключить все компаненты работающие с базой задать новые параметры затем выключить их! всё это можно сделать в рантайме... Ещё поподробнее опишите механизм работы с базой? параметры накиданы в дизайнере? или какт оподгружаются? 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	16.10.2014, 14:30
	Вы не ответили ни на один вопрос) 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	16.10.2014, 17:28
	Ой ой ой, а вы не хотите перевести это на другую базу? это же BDE, это же древнее всё... Да и потом там используются алиасы для доступа к базе... Лично я уже не помню ньансов работы с БДЕ, но могу сказать следующее... Вам нужно вначале сделать форму скнопкой (или ещё чтото) что позволит вызвать опен диалог, пользователь выберает каталог. И только после этого делать коннект к таблицам... 0

@Jaydens_Blues 0 / 0 / 0 Регистрация: 15.10.2014 Сообщений: 30
	16.10.2014, 19:03 [ТС]
	Да об этом я тоже в курсе Для начала я просто пробую прописать конкретный путь вместо русских букв, вроде 'С:\Folder'. Как я уже писал выше, лишь отчасти получилось: программа открыла первую таблицу из папки, которую должна открывать на старте. Но при запросе остальных таблиц - ошибка - их программа уже не может найти. Да и при создании алиаса с каким-то именем, второй раз уже не получится с этим же именем создавать, ошибку пишет, приходится писать уже не Alias, а Alias1, например, иначе не компилируется. Вот я поэтому обратился за помощью к вам, может быть я чего-то очевидного не замечаю или просто не знаю... Казалось бы, тривиальная задача - программно менять путь папки с БД! Но пока что не выходит 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	17.10.2014, 12:35
	Ну так просто чтото действительно дельно подсказать не могу, только догадки надо ковырять код... 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	17.10.2014, 13:15
	BDE это уже устаревшая модель доступа к данным да и парадокс это далеко не база это если я не ошибаюсь обычныйе файлы с раширением db. попробуйте перекинут ьвсё эт ов нормлаьную базу MySQl или FireBird 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	17.10.2014, 14:04
	ну смотря как реализована работа с базой, если у вас в каждой кнопке реализован прямая работа с компанентами работы бд, то да а если работа с базой инкапслирована в какоето подобие прослойки то нет 0