Автор: admin | 14.12.2007 | 1:13 |
В рубриках: 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;
Эта запись была опубликована 14.12.2007в 13:55. В рубриках: Alias, Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.