| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _保存_被选择 | |||||
如果真 (信息框 (“你确认要清上传所有数据到当前数据库？！”, #确认取消钮 ＋ #警告图标 ＋ #默认按钮二 ＋ #系统等待 ＋ #位于前台, “上传数据”, _启动窗口) ＝ #取消钮 )
返回 ()表格到数据库 (表格1, 当前表, 数据库连接1)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 表格到数据库 | 超级列表框→→→→Accsee | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 表格 | 高级表格 | 表名 | 文本型 | 数据库连接 | 数据库连接 | ||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 字段 | 文本型 | |||||
| 字段内容 | 文本型 | |||||
| 列数 | 整数型 | |||||
| 行数 | 整数型 | |||||
| i | 整数型 | |||||
| j | 整数型 | |||||
| SQL | 文本型 | |||||
列数 ＝ 表格.列数
调试输出 (行数, 列数)
数据库连接.开始事务 () ' 避免保存失败把数据清空了，所以用事务。
数据库连接.执行SQL (“delete from ” ＋ 表名, )
计次循环首 (行数 － 1, i)字段 ＝ “”字段内容 ＝ “”计次循环首 (列数 － 1, j)如果 (字段 ＝ “”)字段 ＝ 表格.取数据 (0, j)
字段内容 ＝ 取文本 (“%d”, 表格.取数据 (i, j))
如果真 (表格.取数据 (0, j) ＝ “password”) ' “password”列不能填写，否则保存不了。所以屏蔽掉。到循环尾 ()字段内容 ＝ 字段内容 ＋ 取文本 (“,'%s'”, 表格.取数据 (i, j))
字段 ＝ 字段 ＋ 取文本 (“,%s”, 表格.取数据 (0, j))
计次循环尾 ()SQL ＝ 取文本 (“insert into %s (%s) values (%s)”, 表名, 字段, 字段内容)调试输出 (SQL)如果真 (数据库连接.执行SQL (SQL, ) ＝ 假)数据库连接.回滚事务 ()信息框 (“保存数据失败，请检查。例如：ID为主键不能重复，数据格式不对等...”, #确认钮 ＋ #错误图标, “保存数据失败，请检查。”, )跳出循环 ()
计次循环尾 ()数据库连接.保存事务 ()
_组合框1_列表项被选择 ()
| i支持库列表 | 支持库注释 |
| eGrid | 高级表格支持库 |
| eDB | 数据库操作支持库 |
| spec | 特殊功能支持库 |
