易语言逐条读access数据_易语言实现读取任意ACCESS到高级表格

这篇文章主要介绍了易语言实现读取任意ACCESS到高级表格功能,结合数据库、记录集、高级表格相关操作技巧,实现快速读取access到高级表格，需要的朋友可以参考下

.版本 2

.支持库 eDB

.支持库 eGrid

.子程序 ACCESS到高级表格, 逻辑型, 公开, 将已知ACCESS数据库内容导入到指定窗口的高级表格组件上，注意，指定窗口必须同时具有数据库连接，记录集和高级表格组件。

.参数 数据库连接, 数据库连接

.参数 记录集, 记录集

.参数 ACCESS数据库, 文本型, , 全路径ACCESS数据库名

.参数 数据库表名称, 文本型

.参数 密码, 文本型, 可空

.参数 高级表格, 高级表格

.局部变量 字段数, 整数型

.局部变量 记录数, 整数型

.局部变量 文本, 文本型

.局部变量 i

.局部变量 k

.如果 (数据库连接.连接Access (ACCESS数据库, 密码))

记录集.置连接 (数据库连接)

记录集.打开 (数据库表名称, #数据表名)

字段数 ＝ 记录集.字段数量 ＋ 1

记录数 ＝ 记录集.记录数量 ＋ 1

高级表格.行数 ＝ 记录数

高级表格.列数 ＝ 字段数

.变量循环首 (1, 字段数, 1, i)

高级表格.置数据 (0, i, #表格常量.文本型, 记录集.取字段名 (i － 1))

.变量循环尾 ()

.变量循环首 (1, 记录数, 1, i)

高级表格.置数据 (i, 0, #表格常量.文本型, 到文本 (i))