易语言数据库操作类例子

易语言数据库操作类演示源码是易语言模块Module.ec的应用例程。

.如果 (数据库.连接Access (数据库文件) ＝ 真) ' 先连接上数据库才可以执行下一步
记录集.置连接 (数据库)
SQL语句 ＝ “Select * From Comet_Class”
' 查询表[Comet_Class]的所有字段
记录集.打开 (SQL语句, 1)
列表框1.清空 ()
.判断循环首 (记录集.尾记录后 () ＝ 假)
整数变量 ＝ 记录集.读变体型 (“ClassID”).取数值 () ' 读字段名为[ClassID]的值
文本变量 ＝ 记录集.读变体型 (“ClassName”).取文本 () ' 读字段名为[ClassName]的值
输出调试文本 (文本变量)
列表框1.加入项目 (文本变量, 整数变量)
记录集.到下一条 ()
.判断循环尾 ()
记录集.关闭 () ' 关闭当前记录集
数据库.关闭 () ' 断开连接
.否则
信息框 (数据库.最后错误 (), 16 ＋ 0, “提示”)