Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.09.2010, 13:38
HAL HAL вне форума
Прохожий
 
Регистрация: 14.09.2010
Сообщения: 1
Репутация: 10
По умолчанию Изменение месторасположения PDOXUSRS.NET-файла во время работы

Кто-нибудь знает как изменить месторасположение файла PDOXUSRS.NET
во время выполнения программы?

Тем, кого волнует этот вопрос, могу ответить - Элементарно, Ватсон!

В Delphi, и в BilderC++ тоже, существует невизуальный компоненент Session,
который осуществляет общее управление связыванием приложения с базами
данных. Свойства и Методы этого компанента подробно изложены в книге
А.Я. Архангельского "Delphi 7 справочное пособие". Издательство "БИНОМ"
Москва, 2003 год, на страницах 711 - 716.

Используя выше сказанное предлагаю свой код программы.

Код на Delphi
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
    Session.AutoSessionName := False;     //Запретить создание сессии автоматически 
    Session.SessionName := 'New Session';//Задать имя сессии, какое Вам нравится
    Table1.SessionName := Session.SessionName; //Присвоить свойству таблици имя сессии
    //Указать директортю для файла PDOXUSRS.NET
    Session.NetFileDir := Table1.DatabaseName; //Это директория БД  
    //Или нужная Вам директория, например
    //Session.NetFileDir := 'D:\';
    Session.Active := True;              //Активизировать новую сессию
    Table1.TableType := ttParadox;      //Присвоить свойству Таблици значение
    Table1.Active := True;              //Активировать Таблицу
end;
Код на Bilder C++
Код:
void __fastcall TForm1::FormCreate(TObject *Sender)
{

    Session->AutoSessionName = false;//Запретить создание сессии автоматически 
    Session->SessionName = "New Session";//Задать имя сессии, какое Вам нравится
    Table1->SessionName = Session->SessionName; //Присвоить свойству таблици имя сессии
    //Указать директортю для файла PDOXUSRS.NET
    Session->NetFileDir = Table1->DatabaseName; //Это директория БД
    //Или нужная Вам директория, например
    //Session->NetFileDir = "D:\\";
    Session->Active = true; //Активизировать новую сессию
    Table1->TableType = ttParadox; /.Присвоить свойству Таблици значение
    Table1->Active = true; //Активировать Таблицу
}
Admin: Пользуемся тегами!

Элементарней некуда!

Последний раз редактировалось Admin, 14.09.2010 в 13:44.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:50.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter