PB开发笔记之连接Access(原创)

目标机器必须安装MDAC。程序代码如下：

string ls_string,GS_Apppath
GS_APPPATH=GetCurrentDirectory ( )
GS_APPPATH = GS_APPPATH + "/"
//判断系统是否已经安装Access驱动
string ls_sys,ls_install
ls_sys="HKEY_LOCAL_MACHINE/Software/ODBC/ODBCINST.INI/ODBC DRIVERS"
RegistryGet(ls_sys, "Microsoft Access Driver (*.mdb)", RegString!,ls_install)
if trim(ls_install)<> "Installed" then
 messagebox("错误","未安装Microsoft Access Driver")
 halt
end if
ls_string="db1.mdb"
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = false
SQLCA.DBParm = "ConnectString='DRIVER=Microsoft Access Driver (*.mdb);" + &
"UID=admin;" + &
"PWD=;" + &
"UserCommitSync=Yes;"+ &
"Threads=3;"+ &
"SafeTransactions=0;"+ &
"PageTimeout=5;"+ &
"MaxScanRows=8;"+ &
"MaxBufferSize=2048;"+ &
"FIL=MS Access;"+ &
"DriverId=25;"+ &
"DefaultDir= "+GS_APPPATH+";"+&
"dbq="+ls_string+"'"

Connect ;
if sqlca.sqlcode = 0 then
   open(w_main)
else
   halt
end if
/*需要以下动态库
pbodb90.dll
pbdwe90.dll
pbvm90.dll
libjcc.dll
libjlog.dll

*/