Среда, 18.06.2025, 08:26
Приветствую Вас Гость | RSS
Меню сайта
fff
  • Индексация
  • Девочки
    Форма входа
    Категории раздела
    Теория алгоритмов [3]
    Теория алгоритмов
    Code Snippets [1]
    Code Snippets
    Все о PHP [20]
    Все о PHP
    Visual C++ [13]
    Visual C++
    WIN32 API [7]
    WIN32 API
    Delphi [72]
    Delphi
    ASP [2]
    ASP
    Java [67]
    Java
    VBScript [6]
    VBScript
    CGI [2]
    CGI
    VRML [2]
    VRML
    PERL [9]
    PERL
    HTML [4]
    HTML
    XML [10]
    XML
    Архив записей

    Статьи по Оптимизации

    ПРОГРАММИРОВАНИЕ! СОЗДАНИЕ САЙТОВ И ИХ ОПТИМИЗАЦИЯ

    Главная » Статьи » Программирование » Delphi

    Настройка BDE - как это делается
    Настройка BDE - как это делается
    В статье описан процесс регистрации базы данных в BDE из программы.

    Для доступа к BDE будем использовать компонент Session (вкладка BDE на панели компонент). Поместим его на форму, пусть это будет Session1. Положим на форму также компонеты Table, DataSource и DBGrid.

    1. Простая регистация базы данных (алиаса)

    Для добавления стандартного алиаса можно воспользоваться методом AddStandardAlias(Name, Path, DefaultDriver) объекта Session1, где Name - имя алиаса, Path - физический путь к базе данных, DefaultDriver - тип базы данных.

    Для стандарного алиаса DefaultDriver может быть трех типов: Paradox, DBASE, ASCIIDRV. Перед запуском метода AddStandardAlias должно быть определено значение SessionName.

    Пример:
    Session1.SessionName:='init';
    Session1.AddStandardAlias('GamesAlias', 'c:new_bd', 'PARADOX');
    Table1.DatabaseName:='GamesAlias';
    Table1.TableName:='games.db';
    Table1.Active:=True;

    2. Регистация базы данных (алиаса)

    Регистарция базы данных в BDE производится методом AddAlias(Name, Driver, List) объекта Session1, где Name - имя алиаса, Driver - используемый драйвер БД, List - список параметров.

    Вот пример кода, выполняющего действия, аналогичные описанным в пункте 1.
    var List: TStringList;
    ...
    Session1.SessionName:='init';
    List := TStringList.Create;
    List.Add('PATH=c:new_bd');
    List.Add('DEFAULT DRIVER=paradox');
    Session1.AddAlias('GamesAlias', 'STANDARD', List);
    List.Free;
    ...
    Table1.DatabaseName:='GamesAlias';
    Table1.TableName:='games.db';
    Table1.Active:=True;

    3. Удаление базы данных (алиаса) из BDE

    Здесь все просто, запускаем метод Alias с указанием имени алиаса.
    Session1.Alias('GamesAlias');

    Проверить, существует ли интересующий нас алиас можно с помощью методa IsAlias.
    Session1.IsAlias('games1');

    Категория: Delphi | Добавил: Merlin (07.12.2009)
    Просмотров: 414 | Рейтинг: 0.0/0
    Всего комментариев: 0
    Имя *:
    Email *:
    Код *: