易语言的外部数据库怎么读写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.关闭 ()

MDB数据库不能远程链接，只能本地读写。如果要 *** 作远程数据库，还得弄sql的。　如果要想读MDB7924就只能把数据库从FTP下载到本地 *** 作　然后在上传数据库，这样很麻烦　最简单的方法，就是　易语言　配合　网站编程　读入MDB数据库。

就是SQL语句，利用数据库连接1和记录集就可以了

.版本 2

.支持库 eDB

.如果真 (数据库连接1.连接Access (取运行目录 () ＋ “\MDB.mdb”, “”) ＝ 假)

    信息框 (“连接数据库失败！”, 0, )

    返回 ()

.如果真结束

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

.版本 2

.支持库 eDB

sql ＝ “insert into 通讯表(姓名,电话,地址) values ('” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框3.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “')”

.如果 (_启动窗口.数据库连接1.执行SQL (sql) ＝ 假)

    信息框 (“添加记录失败！”, 0, )

.版本 2

.支持库 iext

.支持库 eDB

临时 ＝ “update 通讯表 set 姓名='” ＋ 编辑框1.内容 ＋ “',电话='” ＋ 编辑框3.内容 ＋ “',地址='” ＋ 编辑框2.内容 ＋ “' where 编号=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)

.如果 (_启动窗口.数据库连接1.执行SQL (临时) ＝ 假)

    信息框 (“更改数据失败”, 0, )

    编辑框2.内容 ＝ 临时

.版本 2

.支持库 iext

.支持库 eDB

SQL ＝ “delete from 通讯表 where 编号=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)

.如果 (_启动窗口.数据库连接1.执行SQL (SQL) ＝ 假)

    信息框 (“删除数据失败！@”, 0, )

.否则

---