|
发表于 2011-5-24 16:08:53
|
显示全部楼层
江苏省苏州市
本帖最后由 孤心人 于 2011-5-24 16:16 编辑
找了一下,看到有位大虾写了这个,不知能不能用,你自己测试一下,我没有OFFICE2007,把下面的代码复制进E
.版本 2
.子程序 子程序_打开ACCESS2007数据库, 逻辑型, , 调用格式: 〈逻辑型〉 子程序_打开ACCESS2007数据库([外部数据库 外部数据库控件],[文本型ACCESS数据文件路径],[文本型 数据库密码],[逻辑型 是否只读],[逻辑型 不显示ODBC连接对话框]) - Juck 编写ACCESS2007数据库操作
.参数 参数_外部数据库控件, 外部数据库, , 外部数据库控件
.参数 参数_数据库地址, 文本型, , 需提供 ACCESS2007 绝对路径
.参数 参数_密码, 文本型, 可空, 如果有密码请输入该数据库密码 无密码则留空
.参数 参数_是否只读, 逻辑型, 可空, 参数名称为“是否只读”,数据类型为“逻辑型(bool)”。注明:指定是否以只读方式打开。如果参数被省略,默认值为假。
.参数 参数_不显示ODBC连接对话框, 逻辑型, 可空, 参数名称为“不显示ODBC连接对话框”,数据类型为“逻辑型(bool)”。注明:指定当数据源连接失败的时候,是否自动显示ODBC的数据源连接对话框。如果参数被省略,默认值为假。
.如果真 (是否为空 (参数_密码) = 真)
参数_密码 = “”
.如果真结束
.如果真 (是否为空 (参数_是否只读) = 真)
参数_是否只读 = 假
.如果真结束
.如果真 (是否为空 (参数_不显示ODBC连接对话框) = 真)
参数_不显示ODBC连接对话框 = 假
.如果真结束
返回 (参数_外部数据库控件.打开 (“ODBC;DSN=MS Access Database;DBQ=” + 参数_数据库地址 + “;Driver={Microsoft Access Driver (*.mdb, *.accdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;PWD=” + 参数_密码 + “;”, 参数_是否只读, 参数_不显示ODBC连接对话框))
记住,要安装ACCESS2007的驱动 |
|