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

易语言的外部数据库怎么读写access数据库?,第1张

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

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,

循环变量)

.计次循环尾

().否则


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/6877036.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-03-29
下一篇 2023-03-29

发表评论

登录后才能评论

评论列表(0条)

保存