| Статистика |
|
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Как программно создать Alias
procedure TForm1.Button3Click(Sender: TObject);
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB');
Add('USER NAME=MYNAME');
end;
Session1.AddAlias('NewIBAlias', 'INTRBASE', MyList);
finally
MyList.Free;
end;
end;
|
| Категория: Alias | Добавил: Skinner (04.07.2008)
|
| Просмотров: 344
| Рейтинг: 0.0/0 |
|
|
