PowerBuilder10自动注册OLE DB数据源(sql server 2000)

//在程序的工作目录下建立 system.INI 文件

[start]
first=1

// 在open事件下写

 

integer OLEDB_init
String ls_path,ls_path_sub

ls_path='HKEY_CURRENT_USER/Software/Sybase/PowerBuilder/10.5/DatabaseProfiles/PowerBuilderl'
ls_path_sub='HKEY_CURRENT_USER/Software/Sybase/PowerBuilder/10.5/DatabaseProfiles/PowerBuilder/his_zg'

 OLEDB_init = profileint("system.INI","start","first",1)
If  OLEDB_init = 1 Then
 registryset(ls_path,"his_zg",regstring!,"")
 
 registryset(ls_path_sub,"AutoCommit",regstring!,"FALSE")
 registryset(ls_path_sub,"DatabasePassword",regstring!,"00")
 registryset(ls_path_sub,"DBMS",regstring!,"OLE DB")
 registryset(ls_path_sub,"DBParm",regstring!,"PROVIDER='SQLOLEDB',DATASOURCE='ZHIDASOF-SERVER',PROVIDERSTRING='database=his_zg'")
 registryset(ls_path_sub,"LogId",regstring!,"sa")
 registryset(ls_path_sub,"LogPassword",regstring!,"0013")
 registryset(ls_path_sub,"Prompt",regstring!,"FALSE") 
 
 setprofilestring("system.INI","start","first","0")
End IF