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

香港九龙湾(27元) 2核2G 20元 香港沙田

弘速云是创建于2021年的品牌,运营该品牌的公司HOSU LIMITED(中文名称弘速科技有限公司)公司成立于2021年国内公司注册于2019年。HOSU LIMITED主要从事出售香港VPS、美国VPS、香港独立服务器、香港站群服务器等,目前在售VPS线路有CN2+BGP、CN2 GIA,该公司旗下产品均采用KVM虚拟化架构。可联系商家代安装iso系统。国庆活动 优惠码:hosu10-1产品介绍...

819云(240元)香港CN2 日本CN2 物理机 E5 16G 1T 20M 3IP

819云是我们的老熟人了,服务器一直都是稳定为主,老板人也很好,这次给大家带来了新活动,十分给力 香港CN2 日本CN2 物理机 E5 16G 1T 20M 3IP 240元0官方网站:https://www.819yun.com/ 特惠专员Q:442379204套餐介绍套餐CPU内存硬盘带宽IP价格香港CN2 (特价)E5 随机分配16G1T 机械20M3IP240元/月日本CN2 (...

这几个Vultr VPS主机商家的优点造就商家的用户驱动力

目前云服务器市场竞争是相当的大的,比如我们在年中活动中看到各大服务商都找准这个噱头的活动发布各种活动,有的甚至就是平时的活动价格,只是换一个说法而已。可见这个行业确实竞争很大,当然我们也可以看到很多主机商几个月就消失,也有看到很多个人商家捣鼓几个品牌然后忽悠一圈跑路的。当然,个人建议在选择服务商的时候尽量选择老牌商家,这样性能更为稳定一些。近期可能会准备重新整理Vultr商家的一些信息和教程。以前...

odbc数据源为你推荐
网络明星想知道3大网络歌手是谁?最新qq空间代码qq空间最新免费代码云播怎么看片云播看不了视频中国论坛大全甘肃论坛都有哪些?苹果5怎么越狱苹果5怎么越狱ios7固件下载iphone自动下载IOS7固件版本怎么删除ios系统ios系统和安卓系统对比起来有什么优点和缺点?二层交换机请教:二层交换机是干什么用的啊?分词技术搜索引擎采用的是什么技术?Qzongqzong皮肤上怎样写字
个人注册域名 香港服务器租用 美国仿牌空间 100m免费空间 国外免费全能空间 徐正曦 cn3 免费美国空间 hdd 免费网络 注册阿里云邮箱 中国联通宽带测速 徐州电信 google搜索打不开 服务器是什么意思 免费服务器 vi命令 vim命令 次世代主机 香港云主机 更多