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

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数据源管理器或注册表查看运行结果就会看到数据库已经成功的注册了。