函数PB9.0实现自动配置ODBC数据源

odbc数据源  时间:2021-02-27  阅读:()

PB9.0实现自动配置ODBC数据源

目录

1  RegistrySet函数说明

2 程序代码

正文

摘要摘 要 利用PB函数RegistrySet实现自动配置ODBC数据源在WIN98/WINXP环境下利用PB9.0编译运行通过

关键字 PB ODBC配置数据源

本人在开发“通用考试系统”软件时通过大量的运行测试利用PowerBuilder提供的函数RegistrySet对操作系统的注册表进行读写 以达到自动配置数据源的目的。

1  RegistrySet函数说明

修改注册表信息的函数RegistrySet的语法格式为 RegistrySet

key valuename valuetype value 。其中key为字符串数值包含用户想设置的键值的健名 valuename为字符串数值在注册表中的每一个键都有一个未命名的值和若干个命名的值 valuetype为枚举类型表示在注册表中的数据类型 value用来存放修改的值。

2 程序代码

①在主窗口中定义函数其函数结构为 access选择publicReturnType选择integer FunctionName输入reg_autolink_server。

该函数实现的功能为向注册表中某个键值下的某个值名写入相应值 函数代码如下string ls_keynamestring ls_valuenamestring ls_valuestring current_dircurrent_dir = GetCurrentDirectory( )获取当前目录if mid(current_dir len(current_dir)  1)<>"""" thencurrent_dir=current_dir+"

路径未尾保证有""""符号l s_keyname=""HKEY_CURRENT_USEof twareODBCODBC. INI ODBC DataSources"lsls_value=""Adaptive Server Anywhere 8.0""可更名""MY USESysbase SQL AnyWhere 8.0"

RegistrySet(ls_keyname ls_valuename RegString! ls_value)

Regi strySet(""HKEY_CURRENT_USEoftwareODBCODBC. INIexamsystem"" ""autostop"" RegString!  ""Yes"l s_keyname=""HKEY_CURRENT_USEof twareODBCODBC. INI examsy stem"ls_valuename=""Driver""工作站驱动重要ls_value=current_dir+""dbodbc8.dll"

RegistrySet(ls_keyname ls_valuename RegString! ls_value)ls

ls

RegistrySet(ls_keyname ls_valuename RegString! ls_value)l s_valuename=""Debug"ls

RegistrySet(ls_keyname ls_valuename RegString! ls_value)ls_valuename=""DisableMultiRowFetch"

ls_value=""No"

RegistrySet(ls_keyname ls_valuename RegString! ls_value)ls_valuename=""Integrated"ls

RegistrySet(ls_keyname ls_valuename RegString! ls_value)ls_valuename=""CommLinks"

l s_value=""SharedMemory TCP IP{

RegistrySet(ls_keyname ls_valuename RegString! ls_value)l s_valuename=""EngineName"ls

RegistrySet(ls_keyname ls_valuename RegString! ls_value)l s_valuename=""PWD"

ls_value=""sql"

RegistrySet(ls_keyname ls_valuename RegString! ls_value)ls_valuename=""UID"

ls_value=""dba"

RegistrySet(ls_keyname ls_valuename RegString! ls_value)return(1)返回1表示正常结束

②为窗口对象的Open事件添加脚本

this.reg_AutoLink_Server( )首先自动配置数据源连接数据库服务器

S QLCA.DBMS = ""ODBC"

SQLCA.AutoCommit = Fal se

SQLCA.DBParm =

""ConnectString='DSN=examsystem;UID=dba;PWD=sql'connect using sqlca;open(w_login)打开用户登录窗口

编译并运行程序后可以通过控制面板的ODBC数据源管理器或注册表查看运行结果就会看到数据库已经成功的注册了。

pacificrack:VPS降价,SSD价格下降

之前几个月由于CHIA挖矿导致全球固态硬盘的价格疯涨,如今硬盘挖矿基本上已死,硬盘的价格基本上恢复到常规价位,所以,pacificrack决定对全系Cloud server进行价格调整,降幅较大,“如果您是老用户,请通过续费管理或升级套餐,获取同步到最新的定价”。官方网站:https://pacificrack.com支持PayPal、支付宝等方式付款VPS特征:基于KVM虚拟,纯SSD raid...

印象云七夕促销,所有机器7折销售,美国CERA低至18元/月 年付217元!

印象云,成立于2019年3月的商家,公司注册于中国香港,国人运行。目前主要从事美国CERA机房高防VPS以及香港三网CN2直连VPS和美国洛杉矶GIA三网线路服务器销售。印象云香港三网CN2机房,主要是CN2直连大陆,超低延迟!对于美国CERA机房应该不陌生,主要是做高防服务器产品的,并且此机房对中国大陆支持比较友好,印象云美国高防VPS服务器去程是163直连、三网回程CN2优化,单IP默认给20...

选择Vultr VPS主机不支持支付宝付款的解决方案

在刚才更新Vultr 新年福利文章的时候突然想到前几天有网友问到自己有在Vultr 注册账户的时候无法用支付宝付款的问题,当时有帮助他给予解决,这里正好顺带一并介绍整理出来。毕竟对于来说,虽然使用的服务器不多,但是至少是见过世面的,大大小小商家的一些特性特征还是比较清楚的。在这篇文章中,和大家分享如果我们有在Vultr新注册账户或者充值购买云服务器的时候,不支持支付宝付款的原因。毕竟我们是知道的,...

odbc数据源为你推荐
金山杀毒怎么样金山杀毒怎么样?万网核心代理在万网代理商购买万网产品,谁知道价格?知道的说下?数码资源网哪个网站可以直接在线做照片?功能要齐全的`腾讯文章腾讯新闻的精选微信里面收藏的文章在哪里神雕侠侣礼包大全神雕侠侣手游华山论剑礼包有什么 怎么领取数据库损坏数据库坏了,怎么修复?宕机宕机是什么意思?什么是云平台什么是云系统?发邮件怎么发发邮件怎么发?声母是什么22个声母是什么
域名投资 上海域名注册 免费动态域名 godaddy主机 美元争夺战 59.99美元 wordpress技巧 suspended 网站实时监控 申请空间 上海域名 国外免费全能空间 如何用qq邮箱发邮件 服务器硬件防火墙 网通服务器 上海电信测速 vul 国外网页代理 腾讯数据库 卡巴斯基官网下载 更多