怎样编写程序配置oracle10g的tnsname.ora

Question

本帖最后由 6rl 于 2010-11-01 16:34:30 编辑

Answer 1

Oracle\product\10.1.0\Client_1\NETWORK\ADMIN\tnsname.ora

Answer 2

从注册表找到oracle安装的位置，然后使用文件查询功能找到tnsname.ora文件，然后改。然后保存。

Answer 3

搜的 应该是注册表获取路径
function funGetOraclNetPath():string;
var
   reg : TRegistry;            ///注册表对象
begin
   Result :='';                  ///如果没有的话，返回空值
   reg :=Tregistry.Create;    ///生成注册表对象
   with reg do
   begin
     RootKey := HKEY_LOCAL_MACHINE;
     if OpenKey('\SOFTWARE\ORACLE\KEY_OraDb10g_home1',False) then
            ///判断是否为服务器端,如果是就打开注册表
         begin
           Result := ReadString('ORACLE_HOME')+'\NETWORK\ADMIN\tnsnames.ora';
           ///得到orcal数据库的Net配置文件位置
         end
     else if   OpenKey('\SOFTWARE\ORACLE\KEY_OraClient10g_home1',False) then
           ///判断是否为客户端,如果是就打开注册表
         begin
           Result := ReadString('ORACLE_HOME')+'\NETWORK\ADMIN\tnsnames.ora';
           ///得到orcal数据库的Net配置文件位置
         end
     else
         showmessage('没有安装数据库客户端或服务器端,请安装后使用!');
   end;
   reg.Free;
   ///释放注册表对象
end;

Answer 4

oracle有接口来控制配置tnsname吗？