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数据源管理器或注册表查看运行结果就会看到数据库已经成功的注册了。
GigsGigsCloud是一家成立于2015年老牌国外主机商,提供VPS主机和独立服务器租用,数据中心包括美国洛杉矶、中国香港、新加坡、马来西亚和日本等。商家VPS主机基于KVM架构,绝大部分系列产品中国访问速度不错,比如洛杉矶机房有CN2 GIA、AS9929及高防线路等。目前Los Angeles - SimpleCloud with Premium China DDOS Protectio...
爱用云互联怎么样?爱用云是一家成立于2018年的老牌商家旗下的服务器销售品牌,是正规持证IDC/ISP/IRCS商家,主要销售国内、中国香港、国外服务器产品,线路有腾讯云国外线路、自营香港CN2线路等,都是中国大陆直连线路,非常适合免备案建站业务需求和各种负载较高的项目,同时国内服务器也有多个BGP以及高防节点。专注为个人开发者用户,中小型,大型企业用户提供一站式核心网络云端服务部署,促使用户云端...
vollcloud怎么样?vollcloud LLC创立于2020年,是一家以互联网基础业务服务为主的 技术型企业,运营全球数据中心业务。VoLLcloud LLC针对新老用户推出全场年付产品7折促销优惠,共30个,机会难得,所有产品支持3日内无条件退款,同时提供产品免费体验。目前所有产品中,“镇店之宝”产品性价比高,适用大部分用户基础应用,卖的也是最好,同时,在这里感谢新老用户的支持和信任,我们...