xlsx导入MDB

btsd2021

没有人能帮帮我吗？

MYSTERDEVIL

已经给你写好了！！

来自123云盘的分享：xls或xlsx导入mdb.rar链   接：https://www.123684.com/s/NOoLVv-R0aVh提取码：AyP6

MYSTERDEVIL

btsd2021 发表于 2025-8-28 08:53
没有人能帮帮我吗？

来自123云盘的分享：xls或xlsx导入mdb.rar链   接：https://www.123684.com/s/NOoLVv-R0aVh提取码：AyP6

走一回

成功的代码：

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
数据库绝对路径	文本型
运行目录	文本型
jb	整数型
局_et文件名	文本型
局_ODBC	文本型
局_数据库句柄	整数型
局_text	文本型

通用对话框1.过滤器 ＝ “Excel表格(*.xls,*.xlsx)|*.xls;*.xlsx|WPS表格(*.et)|*.et|两种表格(*.xls,*.xlsx,*.et)|*.xls;*.xlsx;*.et”
通用对话框1.文件名 ＝ “”
通用对话框1.打开 ()
局_et文件名 ＝ 通用对话框1.文件名
外部数据库1.打开 (ODBC_xlsx (局_et文件名), , 假)
局_数据库句柄 ＝ 外部数据库1.cha询 (“select * from [信息设备台账$]”)
调试输出 (外部数据库1.读 (局_数据库句柄, 3))

子程序名	返回值类型	公开	备 注
ODBC_xlsx	文本型
参数名	类 型	参考	可空	数组	备 注
参_数据库绝对路径	文本型				全路径：C:\文件夹\数据库文件名.xls

变量名	类 型	静态	数组	备 注
局_ODBC	文本型
局_运行目录	文本型			无数据库名的路径

局_运行目录 ＝ 取文本左边 (参_数据库绝对路径, 倒找文本 (参_数据库绝对路径, “\”, , 假) － 1)
局_ODBC ＝ “ODBC;DBQ=” ＋ 参_数据库绝对路径 ＋ “;DefaultDir=” ＋ 局_运行目录 ＋ “;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;FIL=excel 12.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=1;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”
返回 (局_ODBC)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数据库绝对路径, 文本型<br /> .局部变量 运行目录, 文本型<br /> .局部变量 jb, 整数型<br /> .局部变量 局_et文件名, 文本型<br /> .局部变量 局_ODBC, 文本型<br /> .局部变量 局_数据库句柄, 整数型<br /> .局部变量 局_text, 文本型<br /> <br /> 通用对话框1.过滤器 ＝ “Excel表格(*.xls,*.xlsx)|*.xls;*.xlsx|WPS表格(*.et)|*.et|两种表格(*.xls,*.xlsx,*.et)|*.xls;*.xlsx;*.et”<br /> 通用对话框1.文件名 ＝ “”<br /> 通用对话框1.打开 ()<br /> 局_et文件名 ＝ 通用对话框1.文件名<br /> 外部数据库1.打开 (ODBC_xlsx (局_et文件名), , 假)<br /> 局_数据库句柄 ＝ 外部数据库1.cha询 (“select * from [信息设备台账$]”)<br /> 调试输出 (外部数据库1.读 (局_数据库句柄, 3))<br /> <br /> .子程序 ODBC_xlsx, 文本型<br /> .参数 参_数据库绝对路径, 文本型, , 全路径：C:\文件夹\数据库文件名.xls<br /> .局部变量 局_ODBC, 文本型<br /> .局部变量 局_运行目录, 文本型, , , 无数据库名的路径<br /> <br /> 局_运行目录 ＝ 取文本左边 (参_数据库绝对路径, 倒找文本 (参_数据库绝对路径, “\”, , 假) － 1)<br /> 局_ODBC ＝ “ODBC;DBQ=” ＋ 参_数据库绝对路径 ＋ “;DefaultDir=” ＋ 局_运行目录 ＋ “;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;FIL=excel 12.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=1;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”<br /> 返回 (局_ODBC)

下面是输出的结果：

  

┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
* 321.000000

┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛<br /> * 321.000000