oracle數據庫別名的自動設置 (2001年3月19日) 

網友更新  分類:數據庫   作者:閻磊  推薦:yanlei   閱讀次數:414  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
uses DBTables;
procedure set_allias(server_name,user_name,db_type,alias_name:string);
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('SERVER NAME='+server_name);
Add('USER NAME='+user_name);
add('SQLQRYMODE=LOCAL');
end;
if Session.IsAlias(alias_name) then
session.DeleteAlias(alias_name);

Session.AddAlias(alias_name,db_type, MyList);
finally
MyList.Free;
end;

end;
調用：
set_allias('yl','yl','oracle','oracle1');