易语言连接excel
<p>.版本 2<br>.支持库 eDB<br>.支持库 iext</p><p>.局部变量 连接文本, 文本型<br>.局部变量 文件地址, 文本型<br>.局部变量 SQL语句, 文本型<br>.局部变量 循环次数, 整数型<br>.局部变量 循环计次, 整数型<br>.局部变量 文本变量, 文本型, , "6"<br>.局部变量 表项索引, 整数型<br>.局部变量 打开SQL, 逻辑型<br>.局部变量 有效存货条目, 整数型<br>.局部变量 顾客条目, 整数型<br>.局部变量 总存货, 整数型<br>.局部变量 表显总存货, 整数型<br>.局部变量 临时信息, 文本型</p>
<p>.' 如果真 (通用对话框1.打开 ())<br> ' 编辑框1.内容 ＝ 通用对话框1.文件名<br>.如果真结束<br>文件地址 ＝ 编辑框1.内容<br>' (“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=” ＋ 文件地址 ＋ “;DefaultDir=” ＋ 文件地址 ＋ “;”)<br>' (“ODBC;DBQ=” ＋ 文件地址 ＋ “;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;FIL=excel 12.0;”)<br>.如果 (数据库连接1.连接 (“Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=790;Dbq=” ＋ 文件地址 ＋ “;”) ＝ 真)<br> ' 信息框 (“数据库接成功！”, 0, , )<br> .如果真 (记录集1.置连接 (数据库连接1) ＝ 假)<br> 返回 ()<br> .如果真结束<br> ' 信息框 (“记录集连接成功！”, 0, , )<br> SQL语句 ＝ “select * from [月存取货$]”<br> 打开SQL ＝ 记录集1.打开 (SQL语句, #SQL语句, )<br> .如果 (打开SQL ＝ 真)<br> 循环次数 ＝ 记录集1.记录数量<br> 有效存货条目 ＝ 0<br> 顾客条目 ＝ 0<br> 总存货 ＝ 0<br> 表显总存货 ＝ 0</p>
<p> .计次循环首 (循环次数, 循环计次)<br> .如果 (循环计次 ＞ 3)<br> 记录集1.读文本 (3, 文本变量 )<br> 记录集1.读文本 (4, 文本变量 )<br> 记录集1.读文本 (24, 文本变量 )<br> 记录集1.读文本 (0, 文本变量 )<br> .如果真 (文本变量 ＝ “合计”)<br> 表显总存货 ＝ 到整数 (文本变量 )<br> .如果真结束<br> 文本变量 ＝ 到文本 (到整数 (文本变量 ))<br> .如果真 (文本变量 ≠ “” 且 文本变量 ≠ “” 且 文本变量 ≠ “0”)<br> 表项索引 ＝ 超级列表框1.插入表项 (, , , , , )<br> 超级列表框1.置标题 (表项索引, 0, 文本变量 )<br> 超级列表框1.置标题 (表项索引, 1, 文本变量 )<br> 超级列表框1.置标题 (表项索引, 2, 文本变量 )<br> 总存货 ＝ 总存货 ＋ 到整数 (文本变量 )<br> 有效存货条目 ＝ 有效存货条目 ＋ 1</p>
<p> .如果真结束</p>
<p> 循环计次 ＝ 循环计次 ＋ 1<br> 顾客条目 ＝ 顾客条目 ＋ 1<br> 记录集1.到下一条 ()<br> .否则<br> 循环计次 ＝ 循环计次 ＋ 1<br> 记录集1.到下一条 ()<br> .如果结束</p>
<p> </p>
<p> .计次循环尾 ()<br> .如果 (表显总存货 ＝ 总存货)<br> 临时信息 ＝ “成功！表里存货与计算出的总存货一致！”<br> .否则<br> 临时信息 ＝ “失败！表里存货与计算出的总存货不一致！”<br> .如果结束<br> 信息框 (“有效条目：” ＋ 到文本 (有效存货条目) ＋ #换行符 ＋ “总存货：” ＋ 到文本 (总存货) ＋ #换行符 ＋ 临时信息, 0, , )<br> .否则<br> 信息框 (“没有找到月存取货表！”, 0, , )<br> .如果结束</p>
<p>.否则<br> 信息框 (“连接失败”, 0, , )<br>.如果结束</p>
<p> </p><br><br>
来源：https://www.cnblogs.com/hhf821244793/p/13047133.html
頁:
[1]