Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.05.2009, 22:41   #1
M|a|G
 
Аватар для M|a|G
 
Регистрация: 19.02.2009
Сообщений: 4
Восклицание Проблема с Базой Данных

Вобщем проблема пустяковая, но решить я ее никак не могу, запутался.

Сабж: Разработал приложение с БД по технологии BDE, на своем компе установил для этой БД Alias, все работает. Но перенеся программу на другой комп (там тоже есть Delphi) она работать не будет, нет прописанного в проге Alias`а (точнее путь к БД недействителен).

Как же это избежать, сделать инсталятор или еще как-то, подскажите пожайлуста начинающему.
M|a|G вне форума
Старый 15.05.2009, 11:12   #2
M|a|G
 
Аватар для M|a|G
 
Регистрация: 19.02.2009
Сообщений: 4
По умолчанию Динамический Alias

Проблема решена.
Все было довольно просто.
Итак, рекомендую подключить к главной форме следующие модули:
  • DBGrids
  • Db
  • DBTables
  • DBCtrls
Они понадобятся при работе с БД.
Потом нужно создать непосредственно сам динамический псевдоним. Для этого в процедуре создания формы (событие onCreate) нужно написать следующий код:

Примечание: Если у Вас в проекте больше одной формы, то представленный ниже код нужно вписывать в событие OnCreate той формы, где расположены компоненты DBTable.

Цитата:
//Создадим динамический псевдоним
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias('PRtest', ExtractFilePath(ParamStr(0)) + 'DB\', 'PARADOX');//Добавим созданный Alias в стандартный набор псевдонимов
//Откроем таблицы БД
fDM.Tusers.Active:=true;
fDM.tPerformance.Active:=true;
fDM.Tstaff.Active:=true;
fDM.Tvopros.Active:=true;
fDM.Ttest.Active:=true;
finally
ConfigMode := cmAll;
end;//try
end;//begin
Примечание:
В коде цветом обозначено:
  • Красным - название создаваемого Alias`а. Предварительно он должен быть указан в свойстве DatabaseName в компоненте(ах) DBTable или DBQuery, а всвойство Active у DBTable должно быть установлено в False
  • Фиолетовым - каталог где хранятся файлы БД. Процедура ExtractFilePath(ParamStr(0)) возвращает адрес каталога в котором запущена программа. Если файлы БД хранятся во вложенной папке, то нужно просто добавить к результату функции (тип данных с которыми работает функция - String) нужный каталог (как у меня + 'DB\')
  • Темно-зеленым - драйвер для работы с БД


P.S. Надеюсь, что кому-нибудь пригодится эта информация. Всем удачного кодига!
M|a|G вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с базой данных. Jonner Общие вопросы C/C++ 6 24.02.2009 20:10
Тест с Базой Данных dimitriy1987 БД в Delphi 1 10.10.2008 19:42
проблема с базой 4321 Общие вопросы Delphi 1 19.09.2008 16:00
Проблема с базой данных или хостингом Distant PHP 4 02.08.2008 22:46