易语言写的程序操作MySQL数据库加入不了新的数据
大侠们帮看看怎么回事就是编译后mysql数据库不执行加入不了数据下面是源码.版本2.支持库iext.子程序_超级按钮3_被单击.局部变量结果,逻辑型.局部变量SQL,文本...
大侠们帮看看怎么回事 就是编译后mysql数据库不执行 加入不了数据
下面是源码
.版本 2
.支持库 iext
.子程序 _超级按钮3_被单击
.局部变量 结果, 逻辑型
.局部变量 SQL, 文本型
.局部变量 记录集, 整数型
.如果真 (mysql句柄 = 0)
信息框 (“还未连接数据库,请先连接数据库”, #错误图标, “提示”)
返回 ()
.如果真结束
.如果 (编辑框6.内容 ≠ “”)
.否则
信息框 (“请填写幻兽ID”, #错误图标, “提示”)
.如果结束
SQL = “Select * from cq_action where id ='1081” + 编辑框6.内容 + “0'” ' 判断数据库是否存在重复数据
记录集 = 外部数据库1.查询 (SQL)
外部数据库1.到首记录 (记录集)
.如果真 (外部数据库1.读 (记录集, “id”) = 编辑框6.内容)
提示.标题 = “★幻兽ID已经存在,请重新输入★”
编辑框5.获取焦点 ()
返回 ()
外部数据库1.启动事务 ()
.如果真结束
SQL = “Insert into cq_action (id,id_next,id_nextfail,type,data,param) values ('1081” + 编辑框6.内容 + “0','1081” + 编辑框6.内容 + “1'1081'” + 编辑框6.内容 + “4','0508','0','1 0 52')”
.如果 (外部数据库1.执行 (SQL, 到字节集 (编辑框6.内容)))
提示.标题 = “★加入成功★”
外部数据库1.提交事务 ()
.否则
提示.标题 = “★加入失败★”
外部数据库1.回滚事务 ()
.如果结束 展开
下面是源码
.版本 2
.支持库 iext
.子程序 _超级按钮3_被单击
.局部变量 结果, 逻辑型
.局部变量 SQL, 文本型
.局部变量 记录集, 整数型
.如果真 (mysql句柄 = 0)
信息框 (“还未连接数据库,请先连接数据库”, #错误图标, “提示”)
返回 ()
.如果真结束
.如果 (编辑框6.内容 ≠ “”)
.否则
信息框 (“请填写幻兽ID”, #错误图标, “提示”)
.如果结束
SQL = “Select * from cq_action where id ='1081” + 编辑框6.内容 + “0'” ' 判断数据库是否存在重复数据
记录集 = 外部数据库1.查询 (SQL)
外部数据库1.到首记录 (记录集)
.如果真 (外部数据库1.读 (记录集, “id”) = 编辑框6.内容)
提示.标题 = “★幻兽ID已经存在,请重新输入★”
编辑框5.获取焦点 ()
返回 ()
外部数据库1.启动事务 ()
.如果真结束
SQL = “Insert into cq_action (id,id_next,id_nextfail,type,data,param) values ('1081” + 编辑框6.内容 + “0','1081” + 编辑框6.内容 + “1'1081'” + 编辑框6.内容 + “4','0508','0','1 0 52')”
.如果 (外部数据库1.执行 (SQL, 到字节集 (编辑框6.内容)))
提示.标题 = “★加入成功★”
外部数据库1.提交事务 ()
.否则
提示.标题 = “★加入失败★”
外部数据库1.回滚事务 ()
.如果结束 展开
若以下回答无法解决问题,邀请你更新回答
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询