SQL库调用 ()
超级列表框1.全部删除 ()
计次循环首 (超级列表框1.取列数 (), lie)
超级列表框1.删除列 (0)
调试输出 (超级列表框1.取列数 ())
计次循环尾 ()
读取 (“zhaopinda”)
全局_SQL ＝ “select * from zhaopinda ”
如果真 (执行SQL语句 (全局_执行结果, 全局_SQL)) ' -------------cha询表是否成功
全_记录集 ＝ 取记录集 (全局_执行结果) ' --------------------- 读取记录集句柄
全_集行数 ＝ 取记录集行数 (全_记录集) ' ----------------------读取记录集行数
字段数 ＝ 取字段总数 (全_记录集) ' ---------------------------读取字段总数
计次循环首 (全_集行数, ) ' --------------------------------循环读取到的行数
计次循环首 (字段数, i) ' ------------------------------循环读取字段数量
如果 (序号到字段名 (全_记录集, i － 1, 值) ＝ 真) ' 读取序号得到列名称
S ＝ 超级列表框1.插入表项 (, , , , , ) ' -----------索引
读字段值 (全_记录集, 值, 列明) ' -------------------读取列的字段数值
超级列表框1.置标题 (S, i － 1, 列明) ' ------------------插入到列表框
计次循环尾 ()
到下一行 (全_记录集)
计次循环尾 ()
超级列表框1.全部删除 ()
计次循环首 (超级列表框1.取列数 (), lie)超级列表框1.删除列 (0)调试输出 (超级列表框1.取列数 ())计次循环尾 ()读取 (“zhaopinda”)
全局_SQL ＝ “select * from zhaopinda ”
如果真 (执行SQL语句 (全局_执行结果, 全局_SQL)) ' -------------cha询表是否成功全_记录集 ＝ 取记录集 (全局_执行结果) ' --------------------- 读取记录集句柄全_集行数 ＝ 取记录集行数 (全_记录集) ' ----------------------读取记录集行数字段数 ＝ 取字段总数 (全_记录集) ' ---------------------------读取字段总数计次循环首 (全_集行数, ) ' --------------------------------循环读取到的行数计次循环首 (字段数, i) ' ------------------------------循环读取字段数量如果 (序号到字段名 (全_记录集, i － 1, 值) ＝ 真) ' 读取序号得到列名称S ＝ 超级列表框1.插入表项 (, , , , , ) ' -----------索引读字段值 (全_记录集, 值, 列明) ' -------------------读取列的字段数值超级列表框1.置标题 (S, i － 1, 列明) ' ------------------插入到列表框计次循环尾 ()到下一行 (全_记录集)计次循环尾 ()| i支持库列表 | 支持库注释 |
| iext | 扩展界面支持库一 |
| spec | 特殊功能支持库 |
| mysql | MySql支持库 |
