易语言删除数据库中的内容

午夜lous

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

善的圆

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

yxj320623

看看，学学拉

尘莫央

1.记录集置连接放到窗口创建完毕事件中
数据库连接1.连接SQL(,,,,)
记录集1.置连接(数据库连接1)
2. 直接用记录集打开语句,无需用调用外部数据库
3.SQL语句的格式问题
4.每个记录集执行完命令后注意执行记录集关闭命令


.子程序 _删除_被选择
超级列表框1.删除列(超级列表框1.现行选中项)
记录集1.打开 (“delete from 信息 where Id='" + 超级列表框1.取标题 (超级列表框1.现行选中项, 0)+"'”, 1)
记录集1.关闭

tianlmax

{:3_219:}占个沙发,{:3_213:}

lpstudio

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

kgdwltao

收藏备用了!贴子很不错

kgdwltao

收藏备用了!贴子很不错

lvzhi_123

学   学   拉

亦诚

学习了，易数据库不好用吗？