Рубрики




Статьи → Alias → Добавление нового псевдонима функцией DbiAddAlias


var
pszAliasName: PChar; { Имя псевдонима }
pszDriverType: PChar; { Тип драйвера для псевдонима }
pszParams: PChar; { Дополнительные параметры }
bPersist: Bool; { Постоянный или временный псевдоним }
dbiRes: Integer; { Возвращаемый код }
begin
pszAliasName := strAlloc(25);
pszDriverType := strAlloc(25);
pszParams := strAlloc(100);

try
bPersist := True;
strPcopy(pszAliasName, ′Lance′);
strPcopy(pszDriverType, ′PARADOX′);
Опубликовал admin
11 Мар, Вторник 2008г.

Статьи → Alias → Динамическое создание псевдонимов


unit school3_;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Db, DBTables, ExtCtrls, DBCtrls, StdCtrls;

type
TForm1 = class(TForm)
Table1: TTable; // таблица (вся база данных)
Query1: TQuery; // запрос (записи БД, удовлетворяющие критерию выбора)
DataSource1: TDataSource; // источник данных - таблица или запрос
DBGrid1: TDBGrid; // таблица для отображения БД или результата выполнения запроса
DBNavigator1: TDBNavigator;
Опубликовал admin
11 Мар, Вторник 2008г.

Статьи → Alias → Создание псевдонима с указанием пути к папке с базой


{ **** UBPFD *********** by delphibase.endimus.com ****
>> Создание псевдонима базы данных с указанием пути к каталогу с базой

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

Зависимости: DBTables
Автор: Александр, rda@im.net.ua, Мелитополь
Copyright: Help Delphi
Дата: 28 апреля 2002 г.
***************************************************** }
Опубликовал admin
11 Мар, Вторник 2008г.


RSS-материал

Программирование для чайников.