[原创]PB9.0动态连接MSSQL数据库

开发环境：win2000 Advanced Server +MS SQL Server Enterprise Edition+PowerBuilder 9.0

一、建立INI文件
新建文本文档，输入以下字符：

[Database]
DBMS=MSSQL SQL Server 2000
Database=mymessage  
UserId=
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、运行即可