PB在用代码里自动注册ODBC连接的方式。

ehxz

免费乐捐，感谢支持

【路人】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. 
   
6. li_buf = 144
   
7. ls_system_dir = Space(144)
   
8. GetSystemDirectoryA(ls_system_dir, li_buf)
   
9. 
   
10. ls_reg_key = ls_reg_key + ls_source_name
    
11. ls_barcode_file = gs_current_path + '\barcode.mdb'
    
12. ls_driver_file  = ls_system_dir + '\odbcjt32.dll'
    
13. 
    
14. RegistrySet(ls_reg_key ,'DBQ'    ,RegString! ,ls_barcode_file)
    
15. RegistrySet(ls_reg_key ,'Driver' ,RegString! ,ls_driver_file)
    
16. RegistrySet(ls_reg_key ,'DriverId' ,ReguLong! ,25)
    
17. RegistrySet(ls_reg_key ,'FIL' ,RegString! ,'MS Access;')
    
18. RegistrySet(ls_reg_key ,'SafeTransactions' ,ReguLong! ,0)
    
19. RegistrySet(ls_reg_key ,'UID' ,RegString! ,'Admin')
    
20. 
    
21. //在ODBC Data Sources中加入数据源，以便在控制台的ODBC32中能出现
    
22. String ls_profile[] ,ls_source_engine
    
23. Integer li_rtn ,li_loop ,li_pos
    
24. Boolean lb_flag
    
25. 
    
26. lb_flag = False
    
27. ls_reg_key = 'HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI'
    
28. li_rtn = RegistryKeys(ls_reg_key ,ls_profile[])
    
29. For li_loop = 1  To UpperBound(ls_profile[])
    
30.          li_pos = Pos(ls_profile[li_loop] ,'(*.mdb)')
    
31.          If li_pos > 0 Then
    
32.                  ls_source_engine = ls_profile[li_loop]
    
33.                  lb_flag = True
    
34.                  Exit
    
35.          End If
    
36. Next
    
37. 
    
38. //注册到当前户的ODBC数据源中
    
39. ls_reg_key = 'HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources'
    
40. If lb_flag = True Then
    
41.         RegistrySet(ls_reg_key ,ls_source_name ,RegString! ,ls_source_engine)
    
42. End If
    
43. 
    
44. tr_barcode = Create Transaction ;
    
45. tr_barcode.DBMS = "ODBC"
    
46. tr_barcode.AutoCommit = False
    
47. tr_barcode.DBParm = "ConnectString='DSN=BESTAR BARCODE;UID=Admin;PWD='"
    
48. Connect Using tr_barcode ;

复制代码

你们试一下，我用了10多年，

preter666

全局函數都放上來

冷月

少了东西，没看懂