Delphi и Базы данных → Alias → Имитируем псевдоним PdoxWIN PRIV


var
d : TDataBase;
begin
d := TDataBase.Create(Application);
d.DataBaseName := ′PRIV′;
d.DriverName := ′STANDARD′;
d.Params.Add(′PATH=′+Session.PrivateDir);
d.Connected := True;
end;
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Меняем псевдоним прямо во время выполнения программы


var
d : TDatabase;
begin
d := TDatabase.Create(Application);
d.DataBaseName := ′TEST_ALIAS′;
d.DriverName := ′STANDARD′;
d.Params.Add(′PATH=C:DBDEMOS′);
d.Connected := True;
end;
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Как программно задать псевдоним


procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Tablename:= ′CUSTOMER′;
Table1.Active:= True;
end;
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Как добавить или изменить пользовательский ODBC DSN-источник для доступа к MS SQL-серверу


{ **** UBPFD *********** by delphibase.endimus.com ****
>> Добавляет (модифицирует) указанный пользовательский
ODBC DSN-источник для доступа к MS SQL-серверу

Модуль управления источниками DSN

Состоит из одной функции добавления (а при наличии - содержимое
модицицируется) пользовательского DSN-источника для доступа к MS
SQL-серверу. Кроме того в клиентских настройках прописывается протокол
TCP/IP и порт 1433 (за эту часть 100% уверенности нет в том смысле, что мне
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → 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г.


RSS-материал

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