Question

易语言中如何删除数据库中内容

我采用的是右键菜单删除的方式，但是使用后只能把超级列表框中的数据清除掉，不能删除数据库中的数据，请问代码应该如何更改，我使用的数据库是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)”, )

Answer 1

你做完删除操作以后..要重新保存数据库..

Answer 2

这么复杂一