连接无法用于执行此操作。在此上下文中它可能已被关闭或无效

〃风花雪月ˇ

下面是源码
.版本 2
.支持库 eDB
.支持库 EDataStructure
.支持库 internet
.程序集 窗口程序集1
.程序集变量 线程句柄, 整数型
.子程序 __启动窗口_创建完毕
数据库连接1.连接Access (取运行目录 () ＋ “/data.mdb”, “”)  ' 设置打开数据库位置
记录集1.置连接 (数据库连接1)  ' 记录集和数据库连接
记录集1.打开 (“Province”, #数据表名)  ' 读取指定表
.计次循环首 (记录集1.记录数量, )  ' 利用计次循环批量导出内容,加入列表框
    记录集1.读文本 (“ProvinceName”, txt1)
    记录集1.读文本 (“ProvinceID”, txt2)
    省.加入项目 (txt1, 到整数 (txt2))
    记录集1.到下一条 ()
.计次循环尾 ()
省.插入项目 (0, “不限制”, -1)
记录集1.打开 (“年龄”, #数据表名)
.计次循环首 (记录集1.记录数量, )
    记录集1.读文本 (“最小年龄”, txt6)
    小年龄.加入项目 (txt6, )
    记录集1.到下一条 ()
.计次循环尾 ()
记录集1.打开 (“年龄”, #数据表名)
.计次循环首 (记录集1.记录数量, )
    记录集1.读文本 (“最大年龄”, txt7)
    大年龄.加入项目 (txt7, )
    记录集1.到下一条 ()
.计次循环尾 ()
性别.插入项目 (0, “不限”, -1)
性别.插入项目 (1, “男”, 1)
性别.插入项目 (2, “女”, 2)

.子程序 _省_列表项被选择
市.清空 ()
市.加入项目 (“不限制”, -1)
txt5 ＝ 到文本 (省.取项目数值 (省.现行选中项))
记录集1.打开 (“select * from City where ProvinceID=” ＋ txt5, #SQL语句)
.计次循环首 (记录集1.记录数量, )
    记录集1.读文本 (“CityName”, txt3)
    记录集1.读文本 (“CityID”, txt4)
    市.加入项目 (txt3, 到整数 (txt4))
    记录集1.到下一条 ()
.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 n9, 整数型
.局部变量 文件号2, 整数型
' 导出采集邮件结果
.如果真 (通用对话框1.打开 ())
    文件号2 ＝ 打开文件 (通用对话框1.文件名, #重写, )
.如果真结束
.计次循环首 (列表框1.取项目数 (), n9)
    写出文本 (文件号2, 列表框1.取项目文本 (n9 － 1) ＋ #换行符)
.计次循环尾 ()

.子程序 线程循环
.局部变量 sf, 文本型
.局部变量 shi, 文本型
.局部变量 xb1, 文本型
.局部变量 xnl, 文本型
.局部变量 dnl, 文本型
.局部变量 d3, 文本型
.局部变量 cdz, 文本型, , "0"
.局部变量 y, 文本型
.局部变量 ys, 整数型
.局部变量 i, 整数型
.局部变量 文本组, 文本型, , "0"
.局部变量 总数1, 整数型
.局部变量 节点, 节点
.局部变量 c
.局部变量 d
.局部变量 i1, 整数型
i ＝ 99
.判断循环首 (i1 ≤ 200)
    .如果 (按钮1.标题 ＝ “采集完成”)
        按钮1.标题 ＝ “开始采集”
        列表框1.清空 ()
    .否则
        按钮1.标题 ＝ “正在采集邮件地址...”
    .如果结束
    sf ＝ 到文本 (省.取项目数值 (省.现行选中项))
    shi ＝ 到文本 (市.取项目数值 (市.现行选中项))
    xb1 ＝ 到文本 (性别.取项目数值 (性别.现行选中项))
    xnl ＝ 小年龄.取项目文本 (小年龄.现行选中项)
    dnl ＝ 大年龄.取项目文本 (大年龄.现行选中项)
    .如果 (到整数 (shi) ＜ 10)
        d3 ＝ sf ＋ “0” ＋ shi
    .否则
        d3 ＝ sf ＋ shi
    .如果结束
    总数1 ＝ 到整数 (编辑框1.内容)
    .计次循环首 (总数1, ys)
        y ＝ 到文本 (到数值 (ys) － 1)
        编辑框2.内容 ＝ 到文本 (HTTP读文件 (“http://soren.qzone.qq.com/cgi-bin/soren/cgi_userinfo_search?sex=” ＋ xb1 ＋ “&a1=” ＋ xnl ＋ “&a2=” ＋ dnl ＋ “&pv=” ＋ sf ＋ “&ct=” ＋ d3 ＋ “&mr=-1&interest=&begin=” ＋ y ＋ “&bSimple=1”))
        延时 (1000)
        文本组 ＝ 分割文本 (编辑框2.内容, “showMsgSender('”, )
        .计次循环首 (取数组成员数 (文本组) － 1, i)
            cdz ＝ 分割文本 (文本组 , “')”, )
            列表框1.加入项目 (cdz [1], )
            列表框1.自动排序 ＝ 真
        .计次循环尾 ()
    .计次循环尾 ()
    列表框2.清空 ()
    .计次循环首 (列表框1.取项目数 (), c)
        .如果真 (节点.加入属性 (列表框1.取项目文本 (c), 真))
            列表框2.插入项目 (0, 列表框1.取项目文本 (c), )
            延时 (2000)
        .如果真结束
    .计次循环尾 ()
    列表框2.删除项目 (0)
    列表框2.删除项目 (列表框2.取项目数 () － 1)
    列表框1.清空 ()
    .如果真 (列表框2.取项目数 () ＞ 2)
        .计次循环首 (列表框2.取项目数 (), d)
            列表框1.加入项目 (列表框2.取项目文本 (d) ＋ “@qq.com”, )
        .计次循环尾 ()
        列表框1.删除项目 (0)
        标签8.标题 ＝ 到文本 (列表框1.取项目数 ())
    .如果真结束
    .如果真 (到数值 (标签8.标题) ＞ 5)
        按钮1.标题 ＝ “采集完成”
    .如果真结束

.判断循环尾 ()


.子程序 _按钮1_被单击
启动线程_ (&线程循环, , 线程句柄)
启动线程_ (&线程循环, , 线程句柄)
启动线程_ (&线程循环, , 线程句柄)
启动线程_ (&线程循环, , 线程句柄)
启动线程_ (&线程循环, , 线程句柄)
.版本 2
.全局变量 txt1, 文本型
.全局变量 txt2, 文本型
.全局变量 txt3, 文本型
.全局变量 txt4, 文本型
.全局变量 txt5, 文本型
.全局变量 txt6, 文本型
.全局变量 txt7, 文本型
.全局变量 txt8, 文本型
.全局变量 txt9, 文本型
求大神帮我看看哪里出问题了，应该怎么改阿，我新手谢谢了。