PB9.0动态连接MSSQL数据库
开发环境：win2000 Advanced Server +MS SQL Server Enterprise Edition+PowerBuilder 9.0
一、建立INI文件
新建文本文档，输入以下字符：
[Database]
DBMS=MSSQL SQL Server 2005
Database=iinhis
UserId=sa
DatabasePassword=
LogId=sa
LogPassword=
ServerName=localhost
DbParm=
Lock=
Prompt=0
然后选择“文件”--〉“另存为”，保存类型选择“所有文件”，然后存为conn.ini---保存路径为PB工程文件的目录下
说明：mymessage为要连接的数据库名称
localhost为本地服务器,也可用名称或IP代替
2、在PB中任意事件中输入以下代码：
//进行数据库连接------------------------------------------------
sqlca.DBMS = ProfileString ("conn.INI", "database", "dbms", "")
sqlca.database = ProfileString ("conn.INI", "database", "database", "")
sqlca.logid = ProfileString ("conn.INI", "database", "logid", "")
sqlca.logpass = ProfileString ("conn.INI", "database", "LogPassWord","")
sqlca.servername=ProfileString("conn.INI","database", "servername", "")
sqlca.dbparm = ProfileString ("conn.INI", "database", "dbparm", "")
sqlca.autocommit=true;
connect using sqlca;
if sqlca.sqlcode<>0 then
MessageBox("错误提示","无法连接数据库",question!)
HALT Close
return
else
MessageBox("提示","连接数据库成功",question!)
end if
3、运行即可
