Question

易语言 一个子程序执行多条sql语句

.版本 2
.支持库 iext
.支持库 spec

.子程序 _超级列表框1_左键单击表项

选中船只船名 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
选中船只填表日期 ＝ 选择日期
信息框 (选中船只船名, 0, )
信息框 (选中船只填表日期, 0, )

.子程序 _超级列表框1_右键单击表项

弹出菜单 (右键菜单, , )

.子程序 _转到锚地_被选择

数据库 ＝ 外部数据库1
SQL ＝ “update rb set tbqk='mdcb'where cm='” ＋ 选中船只船名 ＋ “'” ＋ “and tabledate='” ＋ 选中船只填表日期 ＋ “'”
调试输出 (SQL)
.如果真 (数据库.执行 (SQL, ))
信息框 (“成功”, 0, )
返回 ()
.如果真结束

以上部分能顺利执行，但是我想利用同一触发条件执行下面的语句无法执行，已知下面的语句没问题，我重新做了一个按钮来触发下面的语句就可以完成，但是我希望能执行完上面的修改后就直接删除临时表，求教该如何写
数据库 ＝ 外部数据库1
SQL ＝ “drop table bws”
调试输出 (SQL)
.如果真 (数据库.执行 (SQL, ))
返回 ()

Answer 1

.版本 2

.子程序 子程序_执行SQL, 逻辑型
.参数 SQL, 文本型

返回( 数据库.执行 (SQL, ))

写成公用子程序，直接调用就是了；只要是SQL语句，就没问题

追问

您这里面返回的数据库是命令还是参数还是变量呢？

追答

数据库 首先，这个是外部数据库组件，如果是写成类的话，这个就是组件变量

我个人写软件要用到数据库的，肯定会写一个公用的调用类，不然，到处都是外部数据库.执行（）或查询什么的，以后要修改，很不方便；

返回的数据，是 执行是否成功 的逻辑判断，也是组件默认的判断；执行成功返回真，失败返回假

严格来说，为了防止意外断开，在调用执行前是要判断 连接是否有效的，无效就重新连接数据库，这样才能保证执行的成功率

Answer 2

连在一起不能执行成功是吗 要分2步

追问

易语言不认连着的

追答

那你加个时钟 要执行的时候 启动时钟 周期多少自己看着办 然后建立个全局变量 操作索引

启动时钟的时候 操作索引=1 然后时钟周期事件里判断 操作索引=1 就执行第一条 执行完 操作索引=2 继续判断操作索引=2 执行第二条 一直排下去 执行完操作索引=0 时钟周期=0

追问

初学者，理解稍微有点困难，以我目前的这个里面，能帮忙简单写下么？

追答

可以提供源码么？ 你可以吧关键性代码删除掉 我帮你改 然后你测试和研究下

追问

怎么给你

追答

你这里可以上传附件吧

Answer 3

外部数据库＋事务

完全可以做到。