Oracle不装客户端的办法

最新推荐文章于 2023-09-07 11:12:26 发布

原创最新推荐文章于 2023-09-07 11:12:26 发布 · 1.2k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#oracle #path #windows #dll #磁盘 #c

本文介绍了一种PB9+Oracle9iR2环境下不安装Oracle客户端的方法，通过拷贝必要的文件及修改注册表和环境变量来实现，整个过程简单高效。

Oracle不装客户端的办法：

PB9 + Oracle9iR2 不装客户端的安装办法,总文件不超过36M。

1，取己安装并配置好的Oracle客户端文件拷贝本地磁盘
目录: ../Oracle/ora92/network/ADMIN/ 必需文件: tansnames.ora
       ../Oracle/ora92/network/mesg/   所有文件
       ../Oracle/ora92/bin/            所有的DLL文件,其他可以不要
       ../Oracle/ora92/ocmmon/nls/ADMIN/DATA/    所有文件
       ../Oracle/ora92/ocmmon/nls/mesg/          所有文件
       ../Oracle/ora92/oracore/mesg/             所有文件
       ../Oracle/ora92/oracore/zoneinfo/         所有文件

2, 增加注册表 (可以通过PB写到注册表内)
[HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/HOME0]
"ORACLE_HOME_NAME"="OraHome92"
"ORACLE_HOME"="C://oracle//ora92" //Oracle客户端文件路径
"NLS_LANG"="SIMPLIFIED CHINESE_CHINA.ZHS16GBK" //字符集

3，增加环境变量
// 注册表路径
[HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager/Environment]
如："Path"="%SystemRoot%/system32;%SystemRoot%;%SystemRoot%/System32/Wbem;c:/oracle/ora92/bin"
// 加在最后

建议把Oracle客户端文件放到当前应用目录下，注册表操作通PB的RegistrySet()写入，如：
// Oracle 客户端文件请放在程序目录下边: gs_directory/Oracle/ora92/...
ls_dir = ls_dir + '/Oracle/ora92'
li_rtn = RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/HOME0", "ORACLE_HOME_NAME", RegString!, "OraHome92")
li_rtn = RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/HOME0", "ORACLE_HOME", RegString!, ls_dir)
li_rtn = RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/HOME0", "NLS_LANG", RegString!, "SIMPLIFIED CHINESE_CHINA.ZHS16GBK")

//环境变量Oracle动态库文件路径: gs_directory/Oracle/ora92/bin/
ls_dir = ls_dir + '/bin'
li_rtn = RegistryGet("HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager/Environment","Path", RegExpandString!, ls_path)
li_pos = Pos(ls_path,ls_dir,1)

If li_rtn <> 1 Then
  Messagebox('错误','注册表读写失败!')
  Return
End If

If li_pos <= 0 Then
  If Len(ls_path) > 0 Then
   ls_path = ls_path + ";"+ls_dir
  ElseIf Len(ls_path) <= 0 Then
   ls_path = ls_dir
  End If
  li_rtn = RegistrySet("HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager/Environment","Path", RegExpandString!, ls_path)
End If

If li_rtn <> 1 Then
  Messagebox('错误','注册表读写失败!')
  Return
End If
Messagebox('提示','配置完毕,请重启Windows生效!')