string ls_defaultdir,ls_dbq
//数据库所在路径
ls_defaultdir=GetCurrentDirectory()
ls_dbq=ls_defaultdir+'/test.mdb'
SQLCA.DBParm = "ConnectString='DSN=MS Access Database;UID=admin;PWD=;DefaultDir="+ls_defaultdir+";DBQ="+ls_dbq+";'"
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = True
connect using sqlca;
if sqlca.sqlcode<>0 then
messagebox('err','sad'+sqlca.sqlerrtext)
else
messagebox('..','not sad')
end if
博客展示了一段代码用于连接Access数据库。代码先获取数据库所在路径,然后设置连接参数,指定数据库管理系统为ODBC,开启自动提交,最后进行连接操作,并根据连接结果给出相应提示。
1148

被折叠的 条评论
为什么被折叠?



