oracle数据库别名的自动设置 (2001年3月19日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 32 行

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');