Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/34: Рейтинг темы: голосов - 34, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 15.10.2014
Сообщений: 30

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

15.10.2014, 12:23. Показов 6794. Ответов 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
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.10.2014, 12:23
Ответы с готовыми решениями:

Изменить путь сохранения базы данных
Добрый день! Подскажите , пожалуйста, есть база данных access, архив которой хранится на дискете. Когда я открываю базу на...

C# и Firebird. Путь к файлу базы данных
Версия fb 2.5, код подключения ниже. Проблема также ниже на скриншоте. Путь по разному пытался прописывать, но никак не получается. ...

Путь к фото в поле базы данных
Приветствую, коллеги. Честное слово - тестировать не когда. Вопрос задаю по пути с решением других задач. Итак, вопрос: Размещение...

16
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
0 / 0 / 0
Регистрация: 15.10.2014
Сообщений: 30
16.10.2014, 06:16  [ТС]
Цитата Сообщение от Razdolbait Посмотреть сообщение
Еще как вариант можно узнать как работает прога у того у кого ты ее содрал)
Да прогу эту человек написал лет восемь назад, я его даже не знаю. Много чего там уже поправил, несмотря на то, что именно с БД в Delphi столкнулся недавно. Проблемы именно с открытием произвольной БД, а не той, которая изначально существует и с которой работает программа.
0
2 / 2 / 1
Регистрация: 23.04.2012
Сообщений: 115
16.10.2014, 13:30
Так ну давайте уточним, что за база используется?
Вам нужно добавить новый функционал? Т.е. вы добавляете этот выбор бд?
Обязательно пользователь должен выбирать базу? мб вынести в ини файл?

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

Ещё поподробнее опишите механизм работы с базой? параметры накиданы в дизайнере? или какт оподгружаются?
0
0 / 0 / 0
Регистрация: 15.10.2014
Сообщений: 30
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;
Но как я понял, это способ в большей степени для постоянки - один раз прописал новый путь и забыл (например, при работе на другом ПК). А нужно, чтобы путь мог меняться много раз, ведь полученных БД из изначальной может быть много. Т.е. через диалог выбрали папку, база оттуда и загрузилась.

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

0
2 / 2 / 1
Регистрация: 23.04.2012
Сообщений: 115
16.10.2014, 14:30
Вы не ответили ни на один вопрос)
0
0 / 0 / 0
Регистрация: 15.10.2014
Сообщений: 30
16.10.2014, 17:13  [ТС]
Цитата Сообщение от Доцент Посмотреть сообщение
Вы не ответили ни на один вопрос)
Про базу могу сказать, что она была создана не в Access, там таблицы .db, похоже, что Paradox, я их открывал и редактировал через Database Desktop - менял типы данных, удалял/добавлял столбцы/строки и т.д. Да, нужно ввести новый функционал, я написал о нем выше, но сейчас больше всего волнует начала - выбор папки с БД, которую нужно открыть. Да, пользователь должен сам выбирать папку, в которой база.
На изображении выше показаны все элементы, их параметры в коде не встречаются. В коде только запись/чтение
0
2 / 2 / 1
Регистрация: 23.04.2012
Сообщений: 115
16.10.2014, 17:28
Ой ой ой, а вы не хотите перевести это на другую базу? это же BDE, это же древнее всё... Да и потом там используются алиасы для доступа к базе... Лично я уже не помню ньансов работы с БДЕ, но могу сказать следующее...
Вам нужно вначале сделать форму скнопкой (или ещё чтото) что позволит вызвать опен диалог, пользователь выберает каталог. И только после этого делать коннект к таблицам...
0
0 / 0 / 0
Регистрация: 15.10.2014
Сообщений: 30
16.10.2014, 18:06  [ТС]
Цитата Сообщение от Доцент Посмотреть сообщение
Ой ой ой, а вы не хотите перевести это на другую базу? это же BDE, это же древнее всё... Да и потом там используются алиасы для доступа к базе... Лично я уже не помню ньансов работы с БДЕ, но могу сказать следующее...
Вам нужно вначале сделать форму скнопкой (или ещё чтото) что позволит вызвать опен диалог, пользователь выберает каталог. И только после этого делать коннект к таблицам...
Ну вот так... Я не знаю, что из себя будет предполагать перевод этой базы на базу другого типа, где, что и как конвертировать и переписывать... Информации там много, как я уже говорил, программе много лет. В последней вставке кода я как раз привел пример, как можно с этими алиасами открывать базу, если она находится не там, где была изначально. У меня сложилось впечатление, что пример этот вряд ли годится для постоянного выбора нового местоположения,т.к. создается новый алиас с новым именем и для выбора новой папки нужно создавать новый алиас с новым именем, иначе delphi пишет ошибку "Name Not Unique In This Context".

Цитата Сообщение от Доцент Посмотреть сообщение
Вам нужно вначале сделать форму скнопкой (или ещё чтото) что позволит вызвать опен диалог, пользователь выберает каталог. И только после этого делать коннект к таблицам...
Это я понимаю, вопрос как раз и состоит в том, как коннектиться к таблицам, которые расположены не там, где было задумано изначально, а в любой папке. В свойствах объекта Database1(на рисунке) есть параметр PATH, но он виден только при открытии элемента через SQL Explorer, из контекстного меню Delphi, но в самом Delphi его нет. Вот я и думал, что достаточно будет поменять его в программе, т.е. при выборе папки с БД ее путь будет подставляться туда. Но вот ничего пока не получается.
0
2 / 2 / 1
Регистрация: 23.04.2012
Сообщений: 115
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;
0
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
0 / 0 / 0
Регистрация: 15.10.2014
Сообщений: 30
17.10.2014, 12:52  [ТС]
Цитата Сообщение от Доцент Посмотреть сообщение
Ну так просто чтото действительно дельно подсказать не могу, только догадки надо ковырять код...
Копаю. Про BDE почитал и сложилось впечатление, что требуемого функционала в лучшем случае удастся добиться только "костылями"
0
2 / 2 / 1
Регистрация: 23.04.2012
Сообщений: 115
17.10.2014, 13:15
BDE это уже устаревшая модель доступа к данным да и парадокс это далеко не база это если я не ошибаюсь обычныйе файлы с раширением db. попробуйте перекинут ьвсё эт ов нормлаьную базу MySQl или FireBird
0
0 / 0 / 0
Регистрация: 15.10.2014
Сообщений: 30
17.10.2014, 13:18  [ТС]
Цитата Сообщение от Доцент Посмотреть сообщение
попробуйте перекинут ьвсё эт ов нормлаьную базу MySQl или FireBird
Я так понимаю, это сулит переписку программы
0
2 / 2 / 1
Регистрация: 23.04.2012
Сообщений: 115
17.10.2014, 14:04
ну смотря как реализована работа с базой, если у вас в каждой кнопке реализован прямая работа с компанентами работы бд, то да а если работа с базой инкапслирована в какоето подобие прослойки то нет
0
0 / 0 / 0
Регистрация: 15.10.2014
Сообщений: 30
23.10.2014, 12:45  [ТС]
В принципе, как вариант... При создании новой базы нужно будет создать алиас (как показано выше: с новым путем до таблиц и т.д.), после этого, для открытия этой новой базы, нужно всего-то поменять имя алиаса перед открытием таблиц.

Delphi
1
Database1.AliasName:='имя открываемого алиаса';
И все, открываются те таблицы, которые указаны в PATH открываемого алиаса.
По крайней мере, это работает при старте программы. Теперь надо будет разобраться, как это все относительно грамотно реализовать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.10.2014, 12:45
Помогаю со студенческими работами здесь

Как правильно указать путь к файлу базы данных
Создаю соединение: Dim Connect As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\путь\файл.mdb") ...

Прописать путь?
Ребят вопрос просто для лузеров) как правильно прпоисать в файле index.php путь к файлу- если этот присловутый 111.php находится в...

Прописать путь
Ребята, у меня появилась проблема. В BitBtn я добавила картинку, все работает, но когда открываешь exe файл с другого компа или не из...

Прописать путь GitHub
Как в убунту зайти в терминал GitHub и прописать путь к проектам AndroidStudio? Добавлено через 46 минут Если более конкретно, то...

Как прописать путь?
Есть функция, находящаяся в Корень сайта/forum/include/functions_posting.php, в ней я подсоединяю файл следующим образом:require_once...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 19.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru