易语言高级表格读取数据库内容

我的是这样弄的：

版本 2

支持库 iext

子程序 _主窗口_创建完毕

如果 (文件是否存在 (取运行目录 () ＋ “\data\” ＋ “特种设备台账edb”) ＝ 假)

信息框 (“数据表不存在！”, 16, “提示”)

否则

打开 (取运行目录 () ＋ “\data\” ＋ “特种设备台账edb”, , , 4, , “”, )

如果结束

_监控时钟_周期事件 ()

读取行 ()

透明标签1左边 ＝ 主窗口宽度 － 透明标签1宽度 － (选择夹1宽度 － 透明标签1宽度) ÷ 2

当前时间时钟周期 ＝ 1000

版本 2

支持库 eGrid

子程序 读取行

局部变量 变量1, 整数型

高级表格置列宽 (0, 0)

高级表格置列宽 (1, 20)

高级表格置数据 (0, 1, 1, “序号”)

高级表格置列宽 (2, 100)

高级表格置数据 (0, 2, 1, “设备名称”)

高级表格置列宽 (3, 100)

高级表格置数据 (0, 3, 1, “单位内编码”)

高级表格置列宽 (4, 100)

高级表格置数据 (0, 4, 1, “规格型号”)

高级表格置列宽 (5, 100)

高级表格置数据 (0, 5, 1, “安装部位”)

高级表格置列宽 (6, 100)

高级表格置数据 (0, 6, 1, “使用证编号”)

高级表格置列宽 (7, 100)

高级表格置数据 (0, 7, 1, “年度检验日期”)

高级表格置列宽 (8, 100)

高级表格置数据 (0, 8, 1, “年度检验有效期”)

高级表格置列宽 (9, 100)

高级表格置数据 (0, 9, 1, “定期检验日期”)

高级表格置列宽 (10, 100)

高级表格置数据 (0, 10, 1, “定期检验有效期”)

高级表格置列宽 (11, 100)

高级表格置数据 (0, 11, 1, “安装就位日期”)

高级表格置列宽 (12, 100)

高级表格置数据 (0, 12, 1, “报废停用日期”)

高级表格置列宽 (13, 100)

高级表格置数据 (0, 13, 1, “重大维修日期”)

计次循环首 (取记录数 (), 变量1)

跳到 (变量1)

高级表格插入行 (“”, 高级表格行数)

高级表格置数据 (高级表格行数 － 1, 1, 1, 读 (1))

高级表格置数据 (高级表格行数 － 1, 2, 1, 读 (2))

高级表格置数据 (高级表格行数 － 1, 3, 1, 读 (3))

高级表格置数据 (高级表格行数 － 1, 4, 1, 读 (4))

高级表格置数据 (高级表格行数 － 1, 5, 1, 读 (5))

高级表格置数据 (高级表格行数 － 1, 6, 1, 读 (6))

高级表格置数据 (高级表格行数 － 1, 7, 1, 读 (7))

高级表格置数据 (高级表格行数 － 1, 8, 1, 读 (8))

高级表格置数据 (高级表格行数 － 1, 9, 1, 读 (9))

高级表格置数据 (高级表格行数 － 1, 10, 1, 读 (10))

高级表格置数据 (高级表格行数 － 1, 11, 1, 读 (11))

高级表格置数据 (高级表格行数 － 1, 12, 1, 读 (12))

高级表格置数据 (高级表格行数 － 1, 13, 1, 读 (13))

计次循环尾 ()

编号排序 ()

方法/步骤

利用易语言编程环境创建一个“Windows窗口程序”。点击菜单“工具”->“支持库配置”项。

在打开的窗口中，找到并勾选“通用对象支持库 20版”，并点击“确定”以添加“超级列表框”组件。

接下来在“启动窗口”中绘制如图所示的界面，其中包括一个“外部数据库”和一个“超级列表框”（从扩展面板中可以找到）组件。

然后利用Excel创建一个名为“jiancexls”的Excel文件。其内容如图所示：

注：将该文件与易语言程序本身放置在同一目录下。

确保选中“启动窗口”，然后为其添加“创建完毕”事件。

接着输入如图所示的易语言代码：

版本 2

支持库 iext

如果真 (外部数据库1打开 (“ODBC;DBQ=” ＋ 取当前目录 () ＋ “\jiancexls;Driver={Microsoft Excel Driver (xls)};DriverId=790;FIL=excel 80;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”, , ) ＝ 假)

信息框 (“数据库连接失败！”, #错误图标, )

返回 ()

如果真结束

查询语句 ＝ “select from [Sheet1$]”

记录集 ＝ 外部数据库1查询 (查询语句)

如果真 (记录集 ＝ 0)

信息框 (“查询失败!”, #错误图标, )

返回 ()

如果真结束

外部数据库1到首记录 (记录集)

局部_计次 ＝ 1

超级列表框1插入列 (, “序号”, 80, , , )

超级列表框1插入列 (, “姓名”, 80, , , )

超级列表框1插入列 (, “性别”, 80, , , )

超级列表框1插入列 (, “年龄”, 80, , , )

判断循环首 (外部数据库1尾记录后 (记录集) ＝ 假)

局部_临时A ＝ 外部数据库1读 (记录集, 1)

局部_临时B ＝ 外部数据库1读 (记录集, 2)

局部_临时C ＝ 到文本 (外部数据库1读 (记录集, 3))

索引 ＝ 超级列表框1插入表项 (, , , , , )

超级列表框1置标题 (索引, 0, 到文本 (局部_计次))

超级列表框1置标题 (索引, 1, 局部_临时A)

超级列表框1置标题 (索引, 2, 局部_临时B)

超级列表框1置标题 (索引, 3, 局部_临时C)

外部数据库1到后一记录 (记录集)

局部_计次 ＝ 局部_计次 ＋ 1

判断循环尾 ()

外部数据库1关闭记录集 ()

7

最后点击“运行”按钮，就可以看到易语言成功引用Excel表格中的数据啦。

“account_id='” ＋ id ＋ “'” '好象这多了2个引号，数字是不用加引号的

如果 (account_id ＝ 角色id)

超级列表框1全部删除 ()

读取人物宝宝 (“player_id='” ＋ 角色id ＋ “'”)

输出信息 (“读取完毕!”)

否则

信息框 (“查询失败，没有账号的角色数据！”, 该48, “提示”)

上面这段应该是这样才对吧，查询到ID就查询另一个信息，你是查询到了就删除了，还查什么？

1连接Access数据库代码！ 版本 2 支持库 eDB 如果

2填充树形框字段到父项目代码！ 版本 2 支持库 eDB

3填充表名到树形框子项目并过滤树形框存在的重复项

1连接Access数据库代码！版本 2

支持库 eDB 如果 (数据库连接连接Access (MDB数据库, “”) ＝ 真)

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

排序条件 ＝ “字段，表名，条件”

如果 (记录集打开并排序 (MDB数据表, 排序条件) ＝ 真) 否则 销毁 ()

2填充树形框字段到父项目代码！版本 2

支持库 eDB

支持库 iext局部变量 分类变量, 文本型

局部变量 树项目总数, 整数型

局部变量 树循环循环, 整数型

局部变量 临时项目文本, 文本型

局部变量 是否存在重复, 整数型

记录集到首记录 ()

判断循环首 (记录集尾记录后 ＝ 假)

记录集读文本 (“字段”, 分类变量)

树项目总数 ＝ 树型框取项目数 ()

如果 (树项目总数 ＝ 0)

树型框加入项目 (, 分类变量, , , )

否则

计次循环首 (树项目总数, 树循环循环)

临时项目文本 ＝ 树型框取项目文本 (树循环循环 － 1)

如果 (临时项目文本 ＝ 分类变量)

是否存在重复 ＝ 1

跳出循环 ()

否则

是否存在重复 ＝ 0

如果结束

树循环循环 ＝ 树循环循环 ＋ 1

计次循环尾 ()

如果真 (是否存在重复 ＝ 0)

树型框加入项目 (, 分类变量, , , )

如果真结束 如果结束 记录集到下一条 ()

判断循环尾 ()

3填充表名到树形框子项目并过滤树形框存在的重复项！版本 2

支持库 iext

支持库 eDB局部变量 原项目变量, 整数型

局部变量 原项目循环, 整数型

局部变量 项目数组, 文本型, , "0"

局部变量 原项目文本, 文本型

局部变量 新项目变量, 整数型

局部变量 新项目循环, 整数型

局部变量 新项目文本, 文本型

局部变量 新项目标题, 文本型

局部变量 过滤语句, 文本型

局部变量 文本数组, 文本型, , "0"

局部变量 文本变量, 文本型

局部变量 数组成员, 整数型

局部变量 数组循环, 整数型

局部变量 次数数量, 整数型

局部变量 项目变量, 整数型

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

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

原项目变量 ＝ 树型框取项目数 ()

原项目循环 ＝ 1

计次循环首 (原项目变量, 原项目循环)

加入成员 (项目数组, 树型框取项目文本 (原项目循环 － 1))

计次循环尾 ()

数组成员 ＝ 取数组成员数 (项目数组)原项目文本 ＝ 项目数组 [数组循环]

过滤语句 ＝ “字段” ＋ “=” ＋ “'” ＋ 原项目文本 ＋ “'”

如果 (记录集过滤记录 (过滤语句) ＝ 真)

次数数量 ＝ 记录集记录数量

清除数组 (文本数组)

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

记录集读文本 (“表名称”, 文本变量)

加入成员 (文本数组, 文本变量)

次数循环 ＝ 次数循环 ＋ 1

记录集到下一条 ()

计次循环尾 ()

项目变量 ＝ 树型框取项目数 ()

计次循环首 (项目变量, 循环变量)

树型框置项目数值 (循环变量 － 1, 循环变量)

计次循环尾 ()否则

以上就是关于易语言高级表格读取数据库内容全部的内容，包括:易语言高级表格读取数据库内容、如何用易语言读取excel表格内容、易语言mysql数据读取等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！