PowerBuilder通过ADO.NET连接数据库

版权声明： https://blog.csdn.net/ClearLoveQ/article/details/81736749

1.ini文件中的内容

[database]
DBMS ="ADO.Net"
Database ="AppDB"
ServerName ="*********"
LogId ="**"   
LogPass ="******"
dbparm="Namespace='System.Data.SqlClient',DataSource='*******',Database='appdb'"

2.程序入口Open事件中代码

//定义系统所在路径
string ls_path
ls_path = GetCurrentDirectory()
Messagebox("当前路径",ls_path)
// Profile carsystemmanger server
SQLCA.DBMS = profilestring(ls_path + '\hylanctest.ini',"database","DBMS","")
SQLCA.LogPass =  profilestring(ls_path + '\hylanctest.ini',"database","LogPass","") 
SQLCA.LogId = profilestring(ls_path + '\hylanctest.ini',"database","LogId","") 
SQLCA.AutoCommit = true

sqlca.dbparm= profilestring(ls_path + '\hylanctest.ini',"database","dbparm","") 


connect using sqlca;
if sqlca.sqlcode < 0 then
		messagebox("错误","SQL Server 数据库连接错误，可能由以下原因导致" + &
	           "~r~n 1." + "SQL Server 数据库系统没有正确安装。" + &
	           "~r~n 2." + "SQL Server  数据库服务器没有启动。" + &
	           "~r~n 2." + "登陆SQL Server 数据库服务器口令不正确。" + &				  
	           "~r~n " + "应用终止。",StopSign!,OK!,1)
	halt
else
	//显示登录窗体
 open(w_login)
 end if