| 变量名 | 类 型 | 静态 | 数组 | 备 注 | | 数据库连接 | 数据库连接 | | | | 记录集 | 记录集 | | | | SQL语句 | 文本型 | | | | UID值 | 文本型 | | | | num值 | 文本型 | | | | 处理结果 | 文本型 | | | | 行数 | 整数型 | | |
如果真 (数据库连接. 连接Access (数据库路径, “”) = 假) 调试输出 (“数据库连接失败”) 返回 (假)SQL语句 = “DROP TABLE ” + 新表名数据库连接. 执行SQL (SQL语句, )SQL语句 = “SELECT UID, num INTO ” + 新表名 + “ FROM table1 ORDER BY num DESC” 如果真 (数据库连接. 执行SQL (SQL语句, ) = 假) 调试输出 (“创建表失败,请检查table1是否存在”) 数据库连接. 关闭 () 返回 (假)调试输出 (“表创建成功,共 ” + 到文本 (记录集.记录数量) + “ 条记录”)记录集. 置连接 (数据库连接 )SQL语句 = “SELECT * FROM ” + 新表名 如果真 (记录集. 打开 (SQL语句, #SQL语句, ) = 假) 调试输出 (“打开记录集失败”) 数据库连接. 关闭 () 返回 (假) 记录集. 到首记录 ()行数 = 0 判断循环首 (记录集.尾记录后 = 假) 记录集. 读文本 (“UID”, UID值 ) 记录集. 读文本 (“num”, num值 ) 处理结果 = “第” + 到文本 (行数 + 1 ) + “行 UID:” + UID值 + “ num:” + num值 调试输出 (处理结果 ) 行数 = 行数 + 1  记录集. 到下一条 () 判断循环尾 ()记录集. 关闭 ()数据库连接. 关闭 ()调试输出 (“处理完成,共处理 ” + 到文本 (行数 ) + “ 条记录”)返回 (真)
|