祝愿大家身体健康!

 站点注册  找回密码
 站点注册

QQ登录

只需一步,快速开始

查看: 1665|回复: 1

[学习笔记] PB在用代码里自动注册ODBC连接的方式。

  [复制链接]

[学习笔记] PB在用代码里自动注册ODBC连接的方式。

  [复制链接]
ehxz

主题

0

回帖

56万

积分

管理员

积分
567733
贡献
在线时间
小时
2023-5-11 16:20:34 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?站点注册

×
【路人】CHOATE(372704175)  16:18:10
是啊。我客户端不用设置就这样运行软件自动注册
  1. String ls_system_dir ,ls_barcode_file ,ls_driver_file
  2. String ls_reg_key = 'HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\'
  3. String ls_source_name = 'BESTAR BARCODE'
  4. ulong li_buf

  5. li_buf = 144
  6. ls_system_dir = Space(144)
  7. GetSystemDirectoryA(ls_system_dir, li_buf)

  8. ls_reg_key = ls_reg_key + ls_source_name
  9. ls_barcode_file = gs_current_path + '\barcode.mdb'
  10. ls_driver_file  = ls_system_dir + '\odbcjt32.dll'

  11. RegistrySet(ls_reg_key ,'DBQ'    ,RegString! ,ls_barcode_file)
  12. RegistrySet(ls_reg_key ,'Driver' ,RegString! ,ls_driver_file)
  13. RegistrySet(ls_reg_key ,'DriverId' ,ReguLong! ,25)
  14. RegistrySet(ls_reg_key ,'FIL' ,RegString! ,'MS Access;')
  15. RegistrySet(ls_reg_key ,'SafeTransactions' ,ReguLong! ,0)
  16. RegistrySet(ls_reg_key ,'UID' ,RegString! ,'Admin')

  17. //在ODBC Data Sources中加入数据源,以便在控制台的ODBC32中能出现
  18. String ls_profile[] ,ls_source_engine
  19. Integer li_rtn ,li_loop ,li_pos
  20. Boolean lb_flag

  21. lb_flag = False
  22. ls_reg_key = 'HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI'
  23. li_rtn = RegistryKeys(ls_reg_key ,ls_profile[])
  24. For li_loop = 1  To UpperBound(ls_profile[])
  25.          li_pos = Pos(ls_profile[li_loop] ,'(*.mdb)')
  26.          If li_pos > 0 Then
  27.                  ls_source_engine = ls_profile[li_loop]
  28.                  lb_flag = True
  29.                  Exit
  30.          End If
  31. Next

  32. //注册到当前户的ODBC数据源中
  33. ls_reg_key = 'HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources'
  34. If lb_flag = True Then
  35.         RegistrySet(ls_reg_key ,ls_source_name ,RegString! ,ls_source_engine)
  36. End If

  37. tr_barcode = Create Transaction ;
  38. tr_barcode.DBMS = "ODBC"
  39. tr_barcode.AutoCommit = False
  40. tr_barcode.DBParm = "ConnectString='DSN=BESTAR BARCODE;UID=Admin;PWD='"
  41. Connect Using tr_barcode ;
复制代码

你们试一下,我用了10多年,
共享共进共赢Sharing And Win-win Results
SYBASEBBS - 免责申明1、欢迎访问“SYBASEBBS.COM”,本文内容及相关资源来源于网络,版权归版权方所有!本站原创内容版权归本站所有,请勿转载!
2、本文内容仅代表作者观点,不代表本站立场,作者自负,本站资源仅供学习研究,请勿非法使用,否则后果自负!请下载后24小时内删除!
3、本文内容,包括但不限于源码、文字、图片等,仅供参考。本站不对其安全性,正确性等作出保证。但本站会尽量审核会员发表的内容。
4、如本帖侵犯到任何版权问题,请立即告知本站 ,本站将及时删除并致以最深的歉意!客服邮箱:admin@sybasebbs.com
preter666

主题

0

回帖

304

积分

中级会员

积分
304
贡献
在线时间
小时
2023-5-27 13:54:05 | 显示全部楼层
全局函數都放上來
共享共进共赢Sharing And Win-win Results
您需要登录后才可以回帖 登录 | 站点注册

本版积分规则

免责声明:
本站所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Admin@SybaseBbs.com

QQ|Archiver|PowerBuilder(PB)BBS社区 ( 鲁ICP备2021027222号-1 )

GMT+8, 2024-3-28 19:11 , Processed in 0.036860 second(s), 9 queries , MemCached On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表