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选择publicReturnType选择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数据源管理器或注册表查看运行结果就会看到数据库已经成功的注册了。
青果云香港CN2_GIA主机测评青果云香港多线BGP网络,接入电信CN2 GIA等优质链路,测试IP:45.251.136.1青果网络QG.NET是一家高效多云管理服务商,拥有工信部颁发的全网云计算/CDN/IDC/ISP/IP-VPN等多项资质,是CNNIC/APNIC联盟的成员之一。青果云香港CN2_GIA主机性能分享下面和大家分享下。官方网站:点击进入CPU内存系统盘数据盘宽带ip价格购买地...
justhost怎么样?justhost是一家俄罗斯主机商,2006年成立,提供各种主机服务,vps基于kvm,有HDD和SSD硬盘两种,特色是200Mbps不限流量(之前是100Mbps,现在升级为200Mbps)。下面是HDD硬盘的KVM VPS,性价比最高,此外还有SSD硬盘的KVM VPS,价格略高。支持Paypal付款。国内建议选择新西伯利亚或者莫斯科DataLine。支持Paypal付...
这个月11号ShockHosting发了个新上日本东京机房的邮件,并且表示其他机房可以申请转移到日本,刚好赵容手里有个美国的也没数据就发工单申请新开了一个,这里做个简单的测试,方便大家参考。ShockHosting成立于2013年,目前提供的VPS主机可以选择11个数据中心,包括美国洛杉矶、芝加哥、达拉斯、杰克逊维尔、新泽西、澳大利亚、新加坡、日本、荷兰和英国等。官方网站:https://shoc...