MyException - 我的异常网
当前位置:我的异常网» PB » PB怎么自动注册Mysql数据源

PB怎么自动注册Mysql数据源(2)

www.MyException.Cn  网友分享于:2015-08-26  浏览:20次

registryset(ls_user_path1,"EngineName",regstring!,"T3-DOWN")
registryset(ls_user_path1,"Compress",regstring!,"No")
registryset(ls_user_path1,"ConnectionName",regstring!,"yzzj")
registryset(ls_user_path1,"Debug",regstring!,"No")
registryset(ls_user_path1,"DisableMultiRowFetch",regstring!,"No")
registryset(ls_user_path1,"Integrated",regstring!,"No")
------解决方案--------------------
最近刚好做了一个
//***********************************************
// 函数名: gf_setodbc_mysql
// 功能: 完成mysql数据源的注册功能
// 输入参数:
// as_server 服务器名称
// as_database 数据库名
// as_user 用户名
// as_pwd 密码
// 返回值:
// true 表示自动配置成功
// false 表示自动配置失败
// 设计者: Adamswater
// 完成时间: 2010年03月
//***************************************************
boolean lb_rtn
string ls_root,ls_root_dsn,ls_root_Jet,ls_root_Engines
integer li_rtn
string ls_dsnname,ls_dbfullname,ls_driver,temp,ls_version 
string ls_apppath
//
//integer rtn
 
//生成驱动程序所在路径gs_appdir为应用目录
ls_driver = gs_appdir + "myodbc5.dll"
lb_rtn = true
ls_root = "HKEY_LOCAL_MACHINE\software\odbc\odbc.ini"
//数据源名字为:文件名字+“_DT”
ls_dsnname = as_database + "_DT" 
ls_root_dsn = ls_root + "\" + ls_dsnname
//ls_root_Engines = ls_root_dsn + "\" + "Engines"
//ls_root_Jet = ls_root_Engines + "\" + "Jet"
ls_dbfullname = as_database
//注册数据源的名字
li_rtn = registryset(ls_root,ls_dsnname,regstring!,"")
if li_rtn= - 1 then
return false
end if
//注册数据库名字
li_rtn = registryset(ls_root_dsn,"DATABASE",regstring!,ls_dbfullname)
if li_rtn= - 1 then
return false
end if
//注册数据库驱动程序
li_rtn = registryset(ls_root_dsn,"Driver",regstring!,ls_driver)//"C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.dll")//"C:\WINNT\system32\odbcjt32.dll")
if li_rtn= - 1 then
return false
end if
//注册端口号
li_rtn = registryset(ls_root_dsn,"PORT",regstring!,"3306")
if li_rtn= - 1 then
return false
end if
li_rtn = registryset(ls_root_dsn,"Description",regstring!,"视频图片入库程序")
if li_rtn= - 1 then
return false
end if
//注册数据库服务器
li_rtn = registryset(ls_root_dsn,"SERVER",regstring!,as_server)
if li_rtn= - 1 then
return false
end if
//注册数据库用户名
li_rtn = registryset(ls_root_dsn,"UID",regstring!,as_user)
if li_rtn= - 1 then
return false
end if
//注册数据库密码
li_rtn = registryset(ls_root_dsn,"PWD",regstring!,as_pwd)
if li_rtn= - 1 then
return false
end if
//OPTION
li_rtn = registryset(ls_root_dsn,"OPTION",regstring!,"4096")
if li_rtn= - 1 then
return false
end if
return lb_rtn

文章评论

 程序员的样子
程序员的样子
我的丈夫是个程序员
我的丈夫是个程序员
编程语言是女人
编程语言是女人
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
为什么程序员都是夜猫子
为什么程序员都是夜猫子
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
程序员和编码员之间的区别
程序员和编码员之间的区别
程序员的鄙视链
程序员的鄙视链
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
旅行,写作,编程
旅行,写作,编程
那些争议最大的编程观点
那些争议最大的编程观点
那些性感的让人尖叫的程序员
那些性感的让人尖叫的程序员
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
程序员必看的十大电影
程序员必看的十大电影
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
每天工作4小时的程序员
每天工作4小时的程序员
漫画:程序员的工作
漫画:程序员的工作
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
总结2014中国互联网十大段子
总结2014中国互联网十大段子
程序员都该阅读的书
程序员都该阅读的书
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
2013年中国软件开发者薪资调查报告
2013年中国软件开发者薪资调查报告
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
老程序员的下场
老程序员的下场
如何成为一名黑客
如何成为一名黑客
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
Google伦敦新总部 犹如星级庄园
Google伦敦新总部 犹如星级庄园
一个程序员的时间管理
一个程序员的时间管理
代码女神横空出世
代码女神横空出世
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
我是如何打败拖延症的
我是如何打败拖延症的
2013年美国开发者薪资调查报告
2013年美国开发者薪资调查报告
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
Java程序员必看电影
Java程序员必看电影
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有