Здравствуйте, SUR2, Вы писали:
SUR>Здравствуйте, Аноним, Вы писали:
А>>Работа с ораклом через бдее без использование алиас как это возможно.. ?(а то софт котором мне надо разобраться так работает)
А>> И где про это можно почитать..
А>> а то напрочь не понимаю компонент TSession
SUR>TSession может создавть временные алиасы
SUR>смотри (пример для InterBase)
SUR>создать алиас:
SUR>SUR> if not dmRouming.dbRINO.Session.IsAlias('NEWCDB26') then begin
SUR> mylist := tstringlist.Create;
SUR> try
SUR> with MyList do begin
SUR> Add('SERVER NAME=' + frmLOGIN.DBName);
SUR> Add('USER NAME=' + frmLOGIN.UserName);
SUR> end;
SUR> dmRouming.dbRINO.Session.AddAlias('NEWCDB26', 'INTRBASE', MyList);
SUR> finally
SUR> mylist.Free;
SUR> end;
SUR> end;
SUR>
SUR>убить алиас
SUR>
SUR> if dmRouming.dbRINO.Session.IsAlias('NEWCDB26') then dmRouming.dbRINO.Session.DeleteAlias('NEWCDB26');
SUR>
SUR>Просто, как дважды-два.
Забыл:
dmRouming — модуль данных
dbRINO — база данных
