oracle数据库连接模块

需要用NLS_CHARSET_ID获取该字符集的编号：SQL> select nls_charset_id('zhs16gbk') from dual;NLS_CHARSET_ID('ZHS16GBK')852
.判断开始 (是否为空 (字符集))
.如果真 (OCIEnvCreate (句柄oci_全.环境句柄, 0, 0, 0, 0, 0, 0, 0) ≠ 0) ' OCIEnvNlsCreate和OCIEnvCreate区别是可以设定字符集
最后错误_私 ＝ “创建环境句柄失败”
返回 (假)
.如果真结束

.判断 (注册项是否存在 (#本地机器, “SOFTWARE\ORACLE\NLS_LANG”))
实例名_局 ＝ 取文本注册项 (#本地机器, “SOFTWARE\ORACLE\NLS_LANG”, )
删除注册项 (#本地机器, “SOFTWARE\ORACLE\NLS_LANG”)
.如果真 (OCIEnvNlsCreate (句柄oci_全.环境句柄, 0, 0, 0, 0, 0, 0, 0, 字符集, 字符集) ≠ 0) ' OCIEnvNlsCreate和OCIEnvCreate区别是可以设定字符集
最后错误_私 ＝ “创建环境句柄失败”
写注册项 (#本地机器, “SOFTWARE\ORACLE\NLS_LANG”, 实例名_局)
返回 (假)
.如果真结束
写注册项 (#本地机器, “SOFTWARE\ORACLE\NLS_LANG”, 实例名_局)
.默认
.如果真 (OCIEnvNlsCreate (句柄oci_全.环境句柄, 0, 0, 0, 0, 0, 0, 0, 字符集, 字符集) ≠ 0) ' OCIEnvNlsCreate和OCIEnvCreate区别是可以设定字符集
最后错误_私 ＝ “创建环境句柄失败”
返回 (假)