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

最新推荐文章于 2020-09-08 16:44:35 发布

一手软一手硬

最新推荐文章于 2020-09-08 16:44:35 发布

阅读量4.3k

点赞数

分类专栏：编程文章标签： access microsoft string

本文链接：https://blog.csdn.net/whchen/article/details/495154

版权

编程专栏收录该内容

14 篇文章

订阅专栏

博客给出程序连接Microsoft Access的代码。目标机器需安装MDAC，代码先判断系统是否安装Access驱动，若未安装则报错。之后设置数据库连接参数进行连接，连接成功则打开主窗口，还列出了所需的动态库。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

目标机器必须安装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+"'"