删除超级列表框xx问题

零点行动

本人刚学，请大神指教改下代码能成功。
.版本 2
.支持库 iext

.子程序 _按钮_删除_被单击
.局部变量 局_sql, 文本型

.如果真 (超级列表框_数据删除.取表项数 () ＝ -1)
    信息框 (“没有数据删除”, 0, , )
    返回 ()
.如果真结束
局_sql ＝ “delete * from 数据图片  where ID=” ＋ 到文本 (超级列表框_数据删除.取表项数 ())
.如果真 (全_数据库连接.执行 (局_sql, ) ＝ 假)
    信息框 (“删除数据失败”, 48, , )
    返回 ()
.如果真结束
超级列表框_数据删除.删除表项 (超级列表框_数据删除.现行选中项)
信息框 (“删除数据成功”, 0, , )

fjcy168

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
n	整数型
总项数	整数型
id	文本型
rq	文本型
mc	文本型
cd	文本型
ph	文本型
gg	文本型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

数据库连接1.连接Access (取运行目录 () ＋ “\123.mdb”, “”)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“select * from t1”, 1, )
判断循环首 (记录集1.尾记录后 ＝ 假)
记录集1.读文本 (“id”, id)
记录集1.读文本 (“rq”, rq)
记录集1.读文本 (“mc”, mc)
记录集1.读文本 (“gg”, gg)
记录集1.读文本 (“cd”, cd)
记录集1.读文本 (“ph”, ph)
n ＝ 超级列表框1.插入表项 (-1, “”, , , , )
超级列表框1.置标题 (n, 0, id)
超级列表框1.置标题 (n, 1, rq)
超级列表框1.置标题 (n, 2, mc)
超级列表框1.置标题 (n, 3, gg)
超级列表框1.置标题 (n, 4, cd)
超级列表框1.置标题 (n, 5, ph)
记录集1.到下一条 ()
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮3_被单击

数据库连接1.连接Access (取运行目录 () ＋ “\123.mdb”, “”)
计次循环首 (5, n)
数据库连接1.执行SQL (“insert into t1 (rq,mc,gg,cd,ph) values('2019-01-15','青霉素” ＋ 到文本 (n) ＋ “','规格” ＋ 到文本 (n) ＋ “','产地” ＋ 到文本 (n) ＋ “','批号” ＋ 到文本 (n) ＋ “')”, )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
x	整数型

数据库连接1.连接Access (取运行目录 () ＋ “\123.mdb”, “”)
n ＝ 0
总项数 ＝ 超级列表框1.取表项数 ()
计次循环首 (总项数, x)
id ＝ 超级列表框1.取标题 (n, 0)
如果 (数据库连接1.执行SQL (“delete from t1 where id=” ＋ id, ) ＝ 真)
超级列表框1.删除表项 (n)
信息框 (“删除失败！”, 0, , )
返回 ()

计次循环尾 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 n, 整数型<br /> .程序集变量 总项数, 整数型<br /> .程序集变量 id, 文本型<br /> .程序集变量 rq, 文本型<br /> .程序集变量 mc, 文本型<br /> .程序集变量 cd, 文本型<br /> .程序集变量 ph, 文本型<br /> .程序集变量 gg, 文本型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 数据库连接1.连接Access (取运行目录 () ＋ “\123.mdb”, “”)<br /> 记录集1.置连接 (数据库连接1)<br /> <br /> 记录集1.打开 (“select * from t1”, 1, )<br /> <br /> .判断循环首 (记录集1.尾记录后 ＝ 假)<br />     记录集1.读文本 (“id”, id)<br />     记录集1.读文本 (“rq”, rq)<br />     记录集1.读文本 (“mc”, mc)<br />     记录集1.读文本 (“gg”, gg)<br />     记录集1.读文本 (“cd”, cd)<br />     记录集1.读文本 (“ph”, ph)<br />     n ＝ 超级列表框1.插入表项 (-1, “”, , , , )<br />     超级列表框1.置标题 (n, 0, id)<br />     超级列表框1.置标题 (n, 1, rq)<br />     超级列表框1.置标题 (n, 2, mc)<br />     超级列表框1.置标题 (n, 3, gg)<br />     超级列表框1.置标题 (n, 4, cd)<br />     超级列表框1.置标题 (n, 5, ph)<br />     记录集1.到下一条 ()<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 数据库连接1.连接Access (取运行目录 () ＋ “\123.mdb”, “”)<br /> <br /> .计次循环首 (5, n)<br />     数据库连接1.执行SQL (“insert into t1 (rq,mc,gg,cd,ph) values('2019-01-15','青霉素” ＋ 到文本 (n) ＋ “','规格” ＋ 到文本 (n) ＋ “','产地” ＋ 到文本 (n) ＋ “','批号” ＋ 到文本 (n) ＋ “')”, )<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 x, 整数型<br /> <br /> 数据库连接1.连接Access (取运行目录 () ＋ “\123.mdb”, “”)<br /> n ＝ 0<br /> 总项数 ＝ 超级列表框1.取表项数 ()<br /> .计次循环首 (总项数, x)<br />     id ＝ 超级列表框1.取标题 (n, 0)<br /> <br /> <br /> <br />     .如果 (数据库连接1.执行SQL (“delete from t1 where id=” ＋ id, ) ＝ 真)<br />         超级列表框1.删除表项 (n)<br />     .否则<br />         信息框 (“删除失败！”, 0, , )<br />         返回 ()<br />     .如果结束<br /> <br /> <br /> .计次循环尾 ()

ruboge

零点行动 发表于 2020-4-15 15:50
access数据库，能打个例子吗？

https://wenku.baidu.com/view/9ad1a0c18bd63186bcebbc1c.html
给你参考一下，易语言有专门操作access的模块，你可以去看看

零点行动

ruboge 发表于 2020-4-15 15:21
MySQL？你要删除数据库数据的话，肯定要调用delete from语句去删，只是清空超级列表框没意义啊，你执行完删 ...

access数据库，能打个例子吗？

ruboge

MySQL？你要删除数据库数据的话，肯定要调用delete from语句去删，只是清空超级列表框没意义啊，你执行完删除语句再置一次超级列表框的数据不就没有了吗

ruboge

你要删除数据库的话肯定要调用delete from去删吧，光删除超级列表框的数据没用啊

微妙

你用的什么数据库？删除数据库要用面对数据库的指令，面对删除列表框的没用。

qinzaidj

  

子程序名	返回值类型	公开	备 注
超级列表框清空

超级列表框1.表项 ＝ {  }

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框清空<br /> <br /> 超级列表框1.表项 ＝ {  }

零点行动

qiuguoqie 发表于 2020-4-15 13:52
那就：超级列表框1.全部删除 ()

可删除不了数据库里的。

qiuguoqie

零点行动 发表于 2020-4-15 13:50
一个一个的删除我知道，是全部删除

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

零点行动

qiuguoqie 发表于 2020-4-15 13:42
https://125.confly.eu.org/thread-14554943-1-1.html

一个一个的删除我知道，是全部删除