自动注册 ODBC 数据源 (ASA 数据库) 到 系统注册表中

在 你的项目目录下 建立 文件 system.ini 文件 (文本文件 改扩展名 为.INI)

内容如下:

[start]
first=1

必须 先 运行 PBCLTRT105.MSI  安装好 ODBC ASA 数据库驱动

 

在 pb中 的 open 事件里写 (在 连接数据库的 前面 写)

//自动注册    ODBC 数据源 (ASA 数据库) 到 系统注册表中 ( Mr 是 ASA 数据库名字)
integer OLEDB_init
String ls_path,ls_path_sub

String odbc_path,odbc_path_sub

ls_path='HKEY_CURRENT_USER/Software/Sybase/PowerBuilder/10.5/DatabaseProfiles/PowerBuilder'
ls_path_sub='HKEY_CURRENT_USER/Software/Sybase/PowerBuilder/10.5/DatabaseProfiles/PowerBuilder/Mr'

odbc_path = "HKEY_CURRENT_USER/Software/ODBC/ODBC.INI"
odbc_path_sub= "HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/Mr"

 OLEDB_init = profileint("system.INI","start","first",1)
If  OLEDB_init = 1 Then
 registryset(odbc_path,"Mr",regstring!,"")
 
 registryset(odbc_path_sub,"AutoStop",regstring!,"yes")
 registryset(odbc_path_sub,"DatabaseFile",regstring!,"D:/MeiRong/mr.db")
 registryset(odbc_path_sub,"DatabaseName",regstring!,"mr")
 registryset(odbc_path_sub,"Driver",regstring!,"C:/Program Files/Sybase/SQL Anywhere 9/win32/dbodbc9.dll")
 registryset(odbc_path_sub,"PWD",regstring!,"SQL")
 registryset(odbc_path_sub,"UID",regstring!,"DBA")
 
 //自动注册   ODBC (数据库 连接信息) 到 系统注册表中
 registryset(ls_path,"Mr",regstring!,"")
 
 registryset(ls_path_sub,"AutoCommit",regstring!,"FALSE")
 registryset(ls_path_sub,"DBMS",regstring!,"ODBC")
 registryset(ls_path_sub,"DBParm",regstring!,"Connectstring='DSN=mr'")
  
 setprofilestring("system.INI","start","first","0")
End IF