超级列表框批量添加到MYSQL数据库

身化虹桥登彼岸

超级列表框怎么批量添加到MYSQL数据库？如有名称重复的则上传失败提示？ 求帮忙，谢谢！

陌上人如玉

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

.子程序 _按钮1_被单击
.局部变量 表名, 文本型
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 d, 整数型
.局部变量 f, 整数型
.局部变量 字段, 文本型

断开MySql (sql)
sql ＝ 连接MySql (“数据库地址”, “数据库”, “数据库”, “数据库”, 端口)
执行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 `” ＋ 表名 ＋ “`(主键 int not null auto_increment, `” ＋ 字段 ＋ “` varchar(255) null, primary key(主键))engine=INNODB  default charset=gbk”) ＝ 假)
                    信息框 (“上传失败”, 0, , )
                    返回 ()
                .如果真结束

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

            .判断结束

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

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



        .判断结束

    .计次循环尾 ()
.计次循环尾 ()

  

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

变量名	类 型	静态	数组	备 注
表名	文本型
a	整数型
b	整数型
d	整数型
f	整数型
字段	文本型

断开MySql (sql)
sql ＝ 连接MySql (“数据库地址”, “数据库”, “数据库”, “数据库”, 端口)
执行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 `” ＋ 表名 ＋ “`(主键 int not null auto_increment, `” ＋ 字段 ＋ “` varchar(255) null, primary key(主键))engine=INNODB  default charset=gbk”) ＝ 假)
信息框 (“上传失败”, 0, , )
返回 ()

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


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

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


计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 mysql<br /> .支持库 iext<br /> .支持库 spec<br /> .子程序 _按钮1_被单击<br /> .局部变量 表名, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 f, 整数型<br /> .局部变量 字段, 文本型<br /> <br /> 断开MySql (sql)<br /> sql ＝ 连接MySql (“数据库地址”, “数据库”, “数据库”, “数据库”, 端口)<br /> 执行SQL语句 (sql, “set names'gbk'”)<br /> .如果真 (sql ＝ 0)<br />     信息框 (“数据库连接失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 输入框 (“请输入您要创建的表名称”, “提示”, “新的表”, 表名, , )<br /> .如果真 (表名 ＝ “”)<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 `” ＋ 表名 ＋ “`(主键 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 `” ＋ 表名 ＋ “` add `” ＋ 字段 ＋ “` varchar(255) null”) ＝ 假)<br />                     信息框 (“上传失败”, 0, , )<br />                     返回 ()<br />                 .如果真结束<br /> <br />             .判断结束<br /> <br />         .判断 (d ＝ 1)<br />             增加记录 (sql, “`” ＋ 表名 ＋ “`”, “`” ＋ 字段 ＋ “`='” ＋ 超级列表框1.取标题 (f － 2, d － 1) ＋ “'”)<br /> <br />         .默认<br />             .如果真 (更新记录 (sql, “`” ＋ 表名 ＋ “`”, “`” ＋ 字段 ＋ “`='” ＋ 超级列表框1.取标题 (f － 2, d － 1) ＋ “'”, “主键='” ＋ 到文本 (f － 1) ＋ “'”) ＝ 假)<br />                 信息框 (“上传失败”, 0, , )<br />             .如果真结束<br /> <br /> <br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

寒潮

  

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

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_id	文本型
局_记录集句柄	整数型

计次循环首 (超级列表框1.取表项数 (), 局_计次)
局_id ＝ 超级列表框1.取标题 (局_计次 － 1, 1)
SQL命令 ＝ “select * from `AA1` WHERE id=” ＋ 局_id  ' AA1表名
执行SQL语句 (数据库句柄, SQL命令)
局_记录集句柄 ＝ 取记录集 (数据库句柄)
如果 (取记录集行数 (局_记录集句柄) ≠ 0)
释放记录集 (局_记录集句柄)
SQL命令 ＝ “UPDATE”  ' 有重复，需要更新


释放记录集 (局_记录集句柄)
SQL命令 ＝ “INSERT INTO”  ' 无重复，需要添加

执行SQL语句 (数据库句柄, SQL命令)
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> .支持库 mysql<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_id, 文本型<br /> .局部变量 局_记录集句柄, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 局_计次)<br />     局_id ＝ 超级列表框1.取标题 (局_计次 － 1, 1)<br />     SQL命令 ＝ “select * from `AA1` WHERE id=” ＋ 局_id  ' AA1表名<br />     执行SQL语句 (数据库句柄, SQL命令)<br />     局_记录集句柄 ＝ 取记录集 (数据库句柄)<br />     .如果 (取记录集行数 (局_记录集句柄) ≠ 0)<br />         释放记录集 (局_记录集句柄)<br />         SQL命令 ＝ “UPDATE”  ' 有重复，需要更新<br />     .否则<br /> <br />         释放记录集 (局_记录集句柄)<br />         SQL命令 ＝ “INSERT INTO”  ' 无重复，需要添加<br />     .如果结束<br /> <br />     执行SQL语句 (数据库句柄, SQL命令)<br /> .计次循环尾 ()

身化虹桥登彼岸

寒潮 发表于 2019-8-27 14:39
[e=0].版本 2
.支持库 iext
.支持库 mysql

大佬好！我的数值是通过EXCEL导入到超级列表框，超级列表框数值怎么添加进数据库？   有类似的案例么？

潇洒＆男孩

每次添加前cha询一次就行了！