PB链接数据库

        数据库的事务链接，之前不多接触，作个东西都是用本地的数据库，没用过远程，数据库事务的链接也都用默认的，因此就形成了对这方面基本知识的不了解，实际上就是很简单东西。

首先得把数据库那边的设置弄好，ODBC也好，OLE DB也好，总之先把数据源建起来。而后就程序中的代码就这么几个东西：

SQLCA.DBMS = "OLE DB"
SQLCA.LogId = gs_logid
SQLCA.LogPass=gs_logpass
SQLCA.AutoCommit = False
SQLCA.dbparm ="PROVIDER='SQLOLEDB',DATASOURCE='"+gs_datasource+"',TimeOut="+string(ltime)+",PROVIDERSTRING='database="+gs_database+"'"

第一行是数据厂商的名称，说白了就是本身的链接方式。而后这几个变量是必须有的：gs_logid用户名，gs_logpass密码(可为空)，gs_datasource数据源，gs_database数据库。timeout的值是设置链接数据库的时间。把这几个变量赋值，而后用语句connect using sqlca就能够练到数据库了，无论是远程的仍是本地的，数据库都会自动给你搞定，不过数据库的链接是很是耗资源的，若是你数据库没开或网络中断，就极可能形成机器很卡。

那天还编了一个测试程序，是链接到一个远程的数据库，若是断开就计数+1，很简单的一个东西，作了好几遍。其实就是一个timer（）事件，让数据库不断的判断链接。

w_testing.setfocus()
int lcount
select count(1) into :lcount from sys_user using sqlca;

if sqlca.sqlcode= 0 then
    st_4.text="已链接上"
ib_lastconnect=true
else
if ib_lastconnect=true then
   gl_counter++
   sle_1.text=string(gl_counter)
   w_main.sle_1.text=string(gl_counter)
end if
ib_lastconnect=false
st_4.text="已断开，正在尝试从新链接"
   
SQLCA.DBMS = "OLE DB"
SQLCA.LogId = gs_logid
SQLCA.LogPass=gs_logpass
SQLCA.AutoCommit =true
SQLCA.dbparm ="PROVIDER='SQLOLEDB',DATASOURCE='"+gs_datasource+"',TimeOut=15,PROVIDERSTRING='database="+gs_database+"'"
disconnect using sqlca;
connect using sqlca;

end if