.版本 2
.支持库 eDB
.子程序 开始采集任务
.局部变量 Sql语句, 文本型
.局部变量 记录集句柄, 整数型
1 Sql语句 ＝ “Select Top 1 * FROM DrugYPN ”
2 记录集句柄 ＝ 外部数据库1.查询 (Sql语句)
3 .判断开始 (记录集句柄 ≠ 0)
4 信息列表.插入项目 (0, 到文本 (信息列表.取项目数 ()) ＋ 到文本 (外部数据库1.读 (记录集句柄, “ DrugName”)), )
5 信息列表.插入项目 (0, 到文本 (信息列表.取项目数 ()) ＋ “ 采集成功...”, )
6 .如果 (记录集1.保存到XML (取运行目录 () ＋ “\Data”))
7 信息列表.插入项目 (0, 到文本 (信息列表.取项目数 ()) ＋ “ 保存成功...”, )
8 .否则
9 信息列表.插入项目 (0, 到文本 (信息列表.取项目数 ()) ＋ “ 保存失败...”, )
10 .如果结束
11 .默认
12 信息列表.插入项目 (0, 到文本 (信息列表.取项目数 ()) ＋ “ 采集失败...”, )
根据输出判断采集是成功了的第4行 值都取出来了
到第6行就是过不去
那个目录也存在的
怎么会这样...
------解决方案--------------------
记录集应该与数据库连接搭配使用吧,如果你的记录集是空的当然保存失败了