?? oracle數據庫別名的自動設置 (2001年3月19日).txt
字號:
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');
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -