易语言操作access数据库

❶ 易语言怎么连接access数据库

说到易语言与ACCESS数据库配合使用，就必须要有数据库文件(*.mdb文件)。今天笔者就准备好一个数据库文件，以便测试使用。

运行“易语言”主程序，打开“新建工程”对话框，选择“Windows窗口程序”，点击“确定”按钮，进入“Windows窗口程序”设计界面

在“Windows窗口界面”上绘制标签组件、编辑框组件、拖放对象及按钮组件各一个，调整好各组件的位置和大小。

修改各组件的相关属性和名称，做到规范命名，这对后面的编写代码是至关重要的。有利于明晰我们的编程思路和加快开发速度。

下面就开始编写代码，首先，注册一下拖放对象，然后就是将拖放对象的“接

收文件”属性设置为真，继续编写“_拖放对象_mdb数据库_得到文件”事件子程序的代码部分

编写“打开”按钮的“_按钮_打开_被单击”事件子程序，为了测试方便，这里声明一个名为“结果”的逻辑型局部变量，然后借助信息框来弹出结果。如图：

接下来，代码编写完毕就是测试了。果断猛戳“F5”键，运行我们的程序，将mdb数据库文件拖拽到编辑框中，点击“打开”按钮，等待结果。根据反馈结果，数据库打开成功。

❷ 易语言如何读取Access数据库中多个字段、表名、条件。

【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,
循环变量)
.计次循环尾
().否则

❸ 易语言access数据库的清空和写入求高手进来指教下！谢谢。

.版本
2.支持库
iext
.子程序
__启动窗口_将被销毁.局部变量
sql,
文本型.局部变量
x,
整数型
外部数据库1.打开MDB数据库
(“123.mdb”,
,
,
,
).计次循环首
(超级列表框1.取表项数
(),
x)
sql
＝
“insert
into
table_name(a)
values('”
＋
超级列表框1.取表项数值
(x
－
1)
＋
“')”
外部数据库1.执行
(sql,
).计次循环尾
()外部数据库1.关闭
()