|
楼主 |
发表于 2021-9-14 22:17:57
|
显示全部楼层
广东省深圳市
方法 新增记录1
xunhuan = 字段名称.取成员数 ()
前段文本 = "INSERT INTO `" + 数据库名称 + "`.`" + 数据库表名称 + "` (`"
处理事件 ()
后段文本 = "`) VALUES ('"
循环 (1, xunhuan, 局_计次, 1)//自动组装sql语句
如果 (局_计次 == xunhuan - 1)//判断是否为最后一位字段
前段文本 = 前段文本 + 字段名称.取成员 (局_计次)
后段文本 = 后段文本 + 超级列表框被选中的数组.取成员 (局_计次) + "')"
否则
前段文本 = 前段文本 + 字段名称.取成员 (局_计次) + "`, `"
后段文本 = 后段文本 + 超级列表框被选中的数组.取成员 (局_计次) + "','"
新增记录sql语句 = 前段文本 + 后段文本
置剪辑板文本 (新增记录sql语句)
方法 修改被选中的记录
更新记录 = "UPDATE " + 数据库表名称 + " SET "
后段文本 = "' WHERE (a = '" + 超级列表框被选中的数组.取成员 (0) + "')"
如果 (超级列表框被选中的数组.取成员数 () == 表格1.列数)
xunhuan = 字段名称.取成员数 ()
循环 (1, xunhuan, 局_计次, 1)//自动组装sql语句
如果 (局_计次 == xunhuan - 1)
更新记录 = 更新记录 + 字段名称.取成员 (局_计次) + " = '" + 超级列表框被选中的数组.取成员 (局_计次)
否则
更新记录 = 更新记录 + 字段名称.取成员 (局_计次) + " = '" + 超级列表框被选中的数组.取成员 (局_计次) + "',"
更新记录 = 更新记录 + 后段文本
置剪辑板文本 (更新记录)
这是自动组装新增和修改的sql语句不会报错, 删除的语句不用组装,可以一键匹配所有普通数据的 数据表,无视 数据表 字段值数量和名称 有多少都能识别。
|
|