易语言数据库连接测试工具

高级表格1.表头列数 ＝ 0
高级表格1.是否可编辑 ＝ 假
.如果真 (记录集.打开 (“TEST”, 数据库连接, 假) ＝ 假)
记录集.关闭 ()
信息框 (“表打开失败”, 0, )
返回 ()
.如果真结束
记录集.取字段名 (字段名)
.计次循环首 (取数组成员数 (字段名), I1)
输出调试文本 (记录集.取字段类型 (, I1))
.如果真 (记录集.取字段类型 (, I1) ≠ “超变长二进制(LongVarBinary)”)
.如果 (字段名文本 ＝ “”)
字段名文本 ＝ 字段名 [I1]
.否则
字段名文本 ＝ 字段名文本 ＋ “,” ＋ 字段名 [I1]
.如果结束

.如果真结束

.计次循环尾 ()
公共_高级表格初始化 (高级表格1, 1, 24, 字段名文本, { 40, 90, 110 }, , 真)

.判断循环首 (记录集.读字段名记录 (“ID”).取文本 () ≠ “”)
高级表格1.插入行 (, )
高级表格1.置数据 (N, 0, #表格常量.文本型, 记录集.读字段名记录 (“ID”).取文本 ())
高级表格1.置数据 (N, 1, #表格常量.文本型, 记录集.读字段名记录 (“XM”).取文本 ())
高级表格1.置数据 (N, 2, #表格常量.文本型, 到文本 (取日期 (记录集.读字段名记录 (“RQ”).取日期 ())))
N ＝ N ＋ 1
记录集.下一条 ()
.判断循环尾 ()