mysql上传问题

旧梦博客

  

sql ＝ 连接MySql (“ip”, “hu”, “.....”, “ku”, 3306)
执行SQL语句 (sql, “set names'gbk'”)
如果真 (sql ＝ 0)
信息框 (“数据库连接失败”, 0, , )
返回 ()
a ＝ 超级列表框1.取表项数 ()
b ＝ 超级列表框1.取列数 ()
计次循环首 (b, d)
计次循环首 (a ＋ 1, f)
判断 (f ＝ 1)
字段 ＝ 超级列表框1.取列标题 (d － 1)
调试输出 (字段)
判断 (d ＝ 1)
如果真 (执行SQL语句 (sql, “CREATE TABLE `” ＋ “2” ＋ “`(主键 int not null auto_increment, `” ＋ 字段 ＋ “` varchar(255) null, primary key(主键))engine=INNODB  default charset=gbk”) ＝ 假)
信息框 (“上传失败”, 0, , )
返回 ()

如果真 (执行SQL语句 (sql, “alter table `” ＋ “2” ＋ “` add `” ＋ 字段 ＋ “` varchar(255) null”) ＝ 假)
信息框 (“上传失败”, 0, , )
返回 ()


判断 (d ＝ 1)
增加记录 (sql, “`” ＋ “1” ＋ “`”, “`” ＋ 字段 ＋ “`='” ＋ 超级列表框1.取标题 (f － 2, d － 1) ＋ “'”)

如果真 (更新记录 (sql, “`” ＋ “1” ＋ “`”, “`” ＋ 字段 ＋ “`='” ＋ 超级列表框1.取标题 (f － 2, d － 1) ＋ “'”, “主键='” ＋ 到文本 (f － 1) ＋ “'”) ＝ 假)
信息框 (“上传失败”, 0, , )

' 如果真 (执行SQL语句 (sql, “update `” ＋ 文本_取左边 (文本_取右边 (通用对话框1.文件名, “\”), “.”) ＋ “` set `” ＋ 字段 ＋ “` ='” ＋ Excel工作簿1.内容 ＋ “' where 主键='” ＋ 到文本 (f － 1) ＋ “'”) ＝ 假)      UPDATE 表名 SET 要更改的列字段 WHERE 要更新的记录主键

计次循环尾 ()
计次循环尾 ()
透明标签1.标题 ＝ “结束”

i支持库列表	支持库注释
mysql	MySql支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 mysql<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> sql ＝ 连接MySql (“ip”, “hu”, “.....”, “ku”, 3306)<br /> 执行SQL语句 (sql, “set names'gbk'”)<br /> .如果真 (sql ＝ 0)<br />     信息框 (“数据库连接失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> a ＝ 超级列表框1.取表项数 ()<br /> b ＝ 超级列表框1.取列数 ()<br /> .计次循环首 (b, d)<br />     .计次循环首 (a ＋ 1, f)<br />         .判断开始 (f ＝ 1)<br />             字段 ＝ 超级列表框1.取列标题 (d － 1)<br />             调试输出 (字段)<br />             .判断开始 (d ＝ 1)<br />                 .如果真 (执行SQL语句 (sql, “CREATE TABLE `” ＋ “2” ＋ “`(主键 int not null auto_increment, `” ＋ 字段 ＋ “` varchar(255) null, primary key(主键))engine=INNODB  default charset=gbk”) ＝ 假)<br />                     信息框 (“上传失败”, 0, , )<br />                     返回 ()<br />                 .如果真结束<br /> <br />             .默认<br />                 .如果真 (执行SQL语句 (sql, “alter table `” ＋ “2” ＋ “` add `” ＋ 字段 ＋ “` varchar(255) null”) ＝ 假)<br />                     信息框 (“上传失败”, 0, , )<br />                     返回 ()<br />                 .如果真结束<br /> <br />             .判断结束<br /> <br />         .判断 (d ＝ 1)<br />             增加记录 (sql, “`” ＋ “1” ＋ “`”, “`” ＋ 字段 ＋ “`='” ＋ 超级列表框1.取标题 (f － 2, d － 1) ＋ “'”)<br /> <br />         .默认<br />             .如果真 (更新记录 (sql, “`” ＋ “1” ＋ “`”, “`” ＋ 字段 ＋ “`='” ＋ 超级列表框1.取标题 (f － 2, d － 1) ＋ “'”, “主键='” ＋ 到文本 (f － 1) ＋ “'”) ＝ 假)<br />                 信息框 (“上传失败”, 0, , )<br />             .如果真结束<br /> <br /> <br />             ' 如果真 (执行SQL语句 (sql, “update `” ＋ 文本_取左边 (文本_取右边 (通用对话框1.文件名, “\”), “.”) ＋ “` set `” ＋ 字段 ＋ “` ='” ＋ Excel工作簿1.内容 ＋ “' where 主键='” ＋ 到文本 (f － 1) ＋ “'”) ＝ 假)      UPDATE 表名 SET 要更改的列字段 WHERE 要更新的记录主键<br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 透明标签1.标题 ＝ “结束”

目前上传的表名是1.如果没有这个表名，软件会自动创建1进行上传，这样是正常的，如果表1存在或者里面有数据，上传就失败了，如果改成，有数据也可以新增呢，

钥匙key

那就将CREATE TABLE后面执行失败的返回取消掉呀。。
这样就会继续执行了。但是要注意。表里面的字段信息与插入的字段信息是否一致。

旧梦博客

钥匙key 发表于 2023-5-15 14:46
那就将CREATE TABLE后面执行失败的返回取消掉呀。。
这样就会继续执行了。但是要注意。表里面的字段信息与 ...

如果真 (执行SQL语句 (sql, “CREATE TABLE `” ＋ “2” ＋ “`(主键 int not null auto_increment, `” ＋ 字段 ＋ “` varchar(255) null, primary key(主键))engine=INNODB  default charset=gbk”) ＝ 假)

意思就不判断执行情况是吗，改为 执行SQL语句 (sql, “CREATE TABLE `” ＋ “2” ＋ “`(主键 int not null auto_increment, `” ＋ 字段 ＋ “` varchar(255) null, primary key(主键))engine=INNODB  default charset=gbk”

所有字段信息都是一直的，

钥匙key

旧梦博客 发表于 2023-5-15 14:49
如果真 (执行SQL语句 (sql, “CREATE TABLE `” ＋ “2” ＋ “`(主键 int not null auto_increment, `” ...

对。不判断执行情况。没有的时候就创建。有的时候创建失败也忽略。这样代码可以轻松一些。。

afass123

能把代码发出来一起研究嘛？

旧梦博客

afass123 发表于 2023-5-15 14:55
能把代码发出来一起研究嘛？

论坛搜 mysql导入导出

zsplt123

感谢发布原创作品，精易因你更精彩！

千面萌萌

易语言IDE 有个暂停 + F8 单步调试功能，自己调试一下找到非你期望的地方，相信很容易解决问题