易语言mysql清空一个表_易语言中如何删除数据库中内容

我采用的是右键菜单删除的方式，但是使用后只能把超级列表框中的数据清除掉，不能删除数据库中的数据，请问代码应该如何更改，我使用的数据库是ACCESS，数据库已连接成功并且可以读出...

我采用的是右键菜单删除的方式，但是使用后只能把超级列表框中的数据清除掉，不能删除数据库中的数据，请问代码应该如何更改，我使用的数据库是ACCESS，数据库已连接成功并且可以读出数据。

代码

①连接数据库代码

.版本 2

.支持库 eDB

右键菜单.可视 ＝ 假

.判断开始 (文件是否存在 (取运行目录 () ＋ “\data\data.mdb”) ＝ 假) ' 初始化建立数据库数据

信息框 (“所需数据库不存在！”, 0, )

.默认

数据库连接 ＝ 数据库连接1

记录集 ＝ 记录集1

数据库连接1.连接Access (取运行目录 () ＋ “\data\data.mdb”, “”)

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

读数据 () ‘调用读取数据库的子程序

②子程序

.版本 2

.子程序 读数据

.局部变量 编号, 文本型

.局部变量 账号, 文本型

.局部变量 类型, 文本型

.局部变量 等级, 文本型

.局部变量 昵称, 文本型

局部变量 索引 整数型

.版本 2

.支持库 eDB

.支持库 iext

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

记录集1.打开 (“信息”, #数据表名)

超级列表框1.全部删除 ()

.计次循环首 (记录集1.记录数量, 索引)

记录集1.读文本 (“编号”, 编号)

记录集1.读文本 (“账号”, 账号)

记录集1.读文本 (“类型”, 类型)

记录集1.读文本 (“等级”, 等级)

记录集1.读文本 (“昵称”, 昵称)

.版本 2

.支持库 iext

索引 ＝ 超级列表框1.插入表项 (-1, 编号, , , , )

超级列表框1.置标题 (索引, 1, 到文本 (账号))

超级列表框1.置标题 (索引, 2, 到文本 (类型))

超级列表框1.置标题 (索引, 4, 到文本 (等级))

超级列表框1.置标题 (索引, 3, 到文本 (昵称))

③删除代码

.版本 2

.子程序 _删除_被选择

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

记录集1.打开 (“信息”, #数据表名)

超级列表框1.删除列(超级列表框1.现行选中项)

外部数据库1.执行 (“delete from 信息 where Id= +超级列表框1.取标题 (超级列表框1.现行选中项, 0)”, )

展开