PB连接access数据库

最新推荐文章于 2021-03-18 03:34:47 发布

liyongjie

最新推荐文章于 2021-03-18 03:34:47 发布

阅读量1.8k

点赞数

文章标签： access 数据库数据库驱动程序

本文链接：https://blog.csdn.net/liyongjie/article/details/8275347

版权

该函数`f_reg_db_access`用于注册和连接Microsoft Access数据库。它首先检查数据库是否已通过ODBC注册，如果不是，则通过读取系统注册表设置ODBC数据源，包括驱动程序路径、数据源名称和数据库详细信息。如果过程中遇到错误，程序会弹出警告框并终止运行。

摘要由CSDN通过智能技术生成

/*********************************************************************************
*函数名称:f_reg_db_access
*参数列表:无
*返回值:0-失败,1-成功
*作者:李永结
*函数功能:注册数据库(微软access)
*创建时间:2011/10/03
*说明:需要文件:
*********************************************************************************/

long ll_rtn
string ls_driver,ls_db_path,ls_db_name,ls_ds_name,ls_dbms

//设置数据库路径及文件名
ls_db_path = gs_rootpath +"\modeldb.accdb"
//设置数据库名称
ls_db_name = "modeldb.accdb"
//设置ODBC数据源名称
ls_ds_name = "modeldb.accdb"

//如果连接数据库方式不是ODBC,则不需要注册数据库
ls_dbms = trim(profilestring("system.ini","database","DBMS","ODBC"))
if upper(ls_dbms) <> "ODBC" then
f_log("连接数据库方式不是ODBC,不需注册数据库")
return 1
end if

//检查数据库是否已经注册
ll_rtn=RegistryGet("HKEY_current_user\Software\ODBC\ODBC.INI\ODBC Data Sources","modeldb.accdb",RegString!,ls_driver)
IF ll_rtn=1 THEN
f_log(ls_db_name+"数据库已经注册,不需要再注册")
RETURN 2
ELSE
f_log(ls_db_name+"数据库没有注册,准备注册")
END IF

//取得数据库驱动程序的路径
ll_rtn=RegistryGet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\Microsoft Access Driver (*.mdb, *.accdb)","driver",RegString!,ls_driver)
IF ll_rtn=-1 TH