易语言的外部数据库怎么读写access数据库？

外部数据库组件是一个单独组件,不与其他组件一同使用,主要以

sql语句

为主.

.版本 2

.

程序集

窗口程序集_启动窗口

.

子程序

_按钮1_被单击

.

局部变量

查询

句柄

, 整数型

.如果真 (

取反

(外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\db.mdb”, , , , 真)))

信息框 (“数据库打开失败.”, 0, , )

返回 ()

.如果真结束

' ----------------------------------------判断是否连接到数据库.

查询句柄 ＝ 外部数据库1.查询 (“select * from 表名”)

' 查询句柄,用于读数据,可以添加条件筛选.比如:

' 查询句柄 ＝ 外部数据库1.查询 (“select * from 表名 where name =” ＋ 编辑框2.内容)

' -----------------------------------------开始读取数据

.判断循环首 (取反 (外部数据库1.尾记录后 (查询句柄)))

列表框

1.加入项目 (外部数据库1.读 (查询句柄, 2), )

' 这里的2表示字段位置,也可以直接写名字,比如字段2为name

' 外部数据库1.读 (查询句柄, “name”)

外部数据库1.到后一记录 (查询句柄)

.判断循环尾 ()

外部数据库1.关闭记录集 (查询句柄)

' 记录集使用完毕后及时关闭.

' ----------------------------------------- 写数据很简单,直接执行sql语句.

.判断开始 (外部数据库1.执行 (“insert into 表名 (对应表内字段名称1,对应表内字段名称2) values ('内容','内容')”, ))

信息框 (“成功”, 0, , )

.默认

信息框 (“失败”, 0, , )

.判断结束

' 内容这里注意前后的单引号必须有.示例:

' 外部数据库1.执行 (“insert into 表名 (ID,name) values ('” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “')”, )

' ------------------------------------------修改命令 update

.判断开始 (外部数据库1.执行 (“update 表名 Set ID='” ＋ 编辑框1.内容 ＋ “',name='” ＋ 编辑框2.内容, ))

信息框 (“成功”, 0, , )

.默认

信息框 (“失败”, 0, , )

.判断结束

' ---------------------------------------删除命令 delete

.判断开始 (外部数据库1.执行 (“delete from 表名 where 条件”, ))

' 示例:

' 外部数据库1.执行 (“delete from 表名 where name=” ＋ 编辑框2.内容, )

信息框 (“成功”, 0, , )

.默认

信息框 (“失败”, 0, , )

.判断结束

.子程序 __启动窗口_将被销毁

外部数据库1.关闭 ()

【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,

循环变量)

.计次循环尾

().否则

您好，你的问题，我之前好像也遇到过，以下是我原来的解决思路和方法，希望能帮助到你，若有错误，还望见谅！运行下列SQL代码即可：select max(字段2) AS 最大数值 from abc where 字段1='张三' 以上代码只返回一条记录，一个字段，指针落在第一条记录上，也就是唯一的那条记录。 最大数值7 如果你想返回姓名和其最大值，可以改写如下：select 字段1,max(字段2) AS 最大数值 from abc where 字段1='张三' group by 字段1返回一条记录，指针就落在第一条记录上，也就是名字为“张三”的那条记录上，最大数值为7 字段1 最大数值张三 7 至于如果你要在一个记录集里移动指针，这是另外一个概念，跟SQL语句没有关系。 在记录集里查找一个特定的记录，其中一个可用的办法是用ADO数据访问对象 RECORDSET的FIND方法。查找名为“张三”的最大数值，可以先用SORT属性基于字段1升序排序、字段2降序排序，然后用Find方法从第一条记录开始查找字段1为“张三”的记录，找到“张三”后，记录集指针即落到最大数值为7的那条记录上了。 楼主还有什么疑问的话，可以用百度HI我，因为匿名提问无法与你联系。，非常感谢您的耐心观看，如有帮助请采纳，祝生活愉快！谢谢！

---