易语言服务器数据如何转换成表格,易语言取excel表格数据-如何将Excel表格转换到易语言数据源(表格)源码...

如何将Excel表格转换到易语言数据源(表格)源码

.版本 2

.支持库 eDB

.支持库 eGrid

.子程序 _按钮1_被单击

.局部变量 连接文本, 文本型7a686964616fe58685e5aeb931333337383837

.局部变量 文件地址, 文本型

.局部变量 SQL语句, 文本型

.局部变量 循环次数, 整数型

.局部变量 循环计次, 整数型

.局部变量 文本变量, 文本型, , "26"

.局部变量 表项索引, 整数型

.局部变量 i, 整数型

.局部变量 k, 整数型

文件地址 ＝ 取运行目录 () ＋ “\1.xls”

.如果 (数据库连接.连接 (“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=” ＋ 文件地址 ＋ “;DefaultDir=” ＋ 文件地址 ＋ “;”) ＝ 真)

输出调试文本 (“链接成功！”)

.如果真 (记录集.置连接 (数据库连接) ＝ 假)

返回 ()

.如果真结束

SQL语句 ＝ “select * from [Sheet1$]”

记录集.打开 (SQL语句, #SQL语句)

循环次数 ＝ 记录集.记录数量

.计次循环首 (循环次数, 循环计次)

.计次循环首 (26, i)

记录集.读文本 (i － 1, 文本变量 [i])

.计次循环尾 ()

.计次循环首 (26, k)