读书人

怎行powerbuilder自的PFC示例解

发布时间: 2012-03-24 14:00:46 作者: rapoo

怎行powerbuilder自的PFC示例
如,想教一下,把接的到表中和用ini 中有什麽不一,表的方式,哪得到些然後入,如果是用我的程序的那,那知道什麽不直接用,要自己打services.msc表呢,不知道怎原理?大家指教,我不是想知道pb表的函。

[解决办法]
注册表和ini功能都是一样的,就是把连接参数等信息写在外面,程序都有个窗口能设置这些参数!
运行后可以读取了!
这样做就是为了灵活使用,
数据库的参数不一定固定的!服务器,数据库名,用户密码等
不能因为改一次密码什么的就得重新修改编译一程序!

程序员自己定义的,当然知道这些的意思!

[解决办法]
在n_exampleappmanager的pfc_open事件里面,有一段连接的代码是这样的:

ls_regkey = of_GetUserKey ( ) + "\PFC Examples DB"
if RegistryGet ( ls_regkey, "DBMS", ls_temp ) = -1 Then
RegistrySet ( ls_regkey, "DBMS", "odb" )
RegistrySet ( ls_regkey, "DBParm", "ConnectString='DSN=EAS Demo DB V4;UID=dba;PWD=sql'" )
end if

// Initialize SQLCA
SQLCA.of_Init ( ls_regkey )


//Connect to application database.
If SQLCA.of_connect ( ) <> 0 Then
MessageBox ( "Cannot Connect to Database", SQLCA.sqlerrtext, stopsign! )
Halt Close
Return
End If





//-----------------------------------------------//我把它改成这样:
//-----------------------------------------------
ls_regkey = of_GetUserKey ( ) + "\PFC Examples DB"
if RegistryGet ( ls_regkey, "DBMS", ls_temp ) = -1 Then
RegistrySet ( ls_regkey, "DBMS", "odb" )
RegistrySet ( ls_regkey, "DBParm", "ConnectString='DSN=EAS Demo DB V4;UID=dba;PWD=sql'" )
end if

// Initialize SQLCA
SQLCA.of_Init ( ls_regkey )









//这是我新加进来的
//不管它上面连接了哪里,都被我这个新的连接取代。

// Profile EAS Demo DB V9
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=EAS Demo DB V9;UID=dba;PWD=sql'"












//Connect to application database.
If SQLCA.of_connect ( ) <> 0 Then
MessageBox ( "Cannot Connect to Database", SQLCA.sqlerrtext, stopsign! )
Halt Close
Return
End If

读书人网 >PB

热点推荐