動態(tài)的連接到數(shù)據(jù)庫的方法：
這里我們創(chuàng)建一個后綴為ini的文件system.ini，在system.ini文件中寫入如下代碼：
[dbms_profiles]
current=odbc
profiles=
[profile ]
dbms=
database=
userid=
databasepassword=
logpassword=
servername=
logid=
lock=
dbparm=connectstring='dsn=ora8;uid=;pwd=' //ora8指數(shù)據(jù)庫服務(wù)器名
prompt=0
autocommit=0
這樣在應(yīng)用程序的open事件中寫入下代碼：
string ls_inifile
ls_inifile = "system.ini"
// profile system
sqlca.dbms =profilestring(ls_inifile,"database", "dbms", "")
sqlca.database =profilestring(ls_inifile,"database", "database", "")
sqlca.userid =profilestring(ls_inifile,"database", "userid", "")
sqlca.dbpass =profilestring(ls_inifile,"database", "dbpass", "")
sqlca.logid =profilestring(ls_inifile,"database", "logid", "")
sqlca.logpass =profilestring(ls_inifile,"database", "logpassword","")
sqlca.servername =profilestring(ls_inifile,"database", "servername" ,"")
sqlca.dbparm =profilestring(ls_inifile,"database", "dbparm", "")
connect using sqlca;
open(w_frame)
if sqlca.sqlcode<>0 then
messagebox("不能連接到數(shù)據(jù)庫",sqlca.sqlerrtext)
return
end if
*****代碼測試通過pb8.0
