释放记录集不成功，怎么回事？

白珏绅

  

子程序名	返回值类型	公开	备 注
加载预点歌列表

变量名	类 型	静态	数组	备 注
载入点歌	整数型
点歌指针	整数型
记录集行数	整数型
目标日期	文本型
目标时间	文本型
预点歌名	文本型
预点歌手	文本型
n	整数型
a	整数型

a ＝ 取小时 (取现行时间 ())
如果真 (a ＞ 0 且 a ＜ 10)
现在时间 ＝ “上午”
如果真 (a ＞ 10 且 a ＜ 12)
现在时间 ＝ “中午”
如果真 (a ＞ 12 且 a ＜ 24)
现在时间 ＝ “下午”

载入点歌 ＝ 连接MySql (“u4qszn3j.2331.dnstoo.com”, “radiostation_f”, “jasonwhite”, “radiostation”, 5506)
如果 (载入点歌 ＝ 0)
信息框 (“连接错误！”, 0, , )


执行SQL语句 (载入点歌, “set names GBK”)  ' 将数据库中的编码转换成易语言的编码
执行SQL语句 (载入点歌, “select * from ” ＋ “预点歌”)
点歌指针 ＝ 取记录集 (载入点歌)
记录集行数 ＝ 取记录集行数 (点歌指针)
计次循环首 (记录集行数, n)
输出调试文本 (n)
输出调试文本 (现在时间)
到指定行 (点歌指针, 记录集行数 － n)
读字段值 (点歌指针, “目标日期”, 目标日期)
读字段值 (点歌指针, “目标时间”, 目标时间)
输出调试文本 (目标时间)
读字段值 (点歌指针, “歌名”, 预点歌名)
读字段值 (点歌指针, “歌手”, 预点歌手)
如果真 (目标日期 ＝ 取文本左边 (到文本 (取现行时间 ()), 寻找文本 (到文本 (取现行时间 ()), “日”, , 假) ＋ 1) 且 目标时间 ＝ 现在时间)
列表框2.加入项目 (预点歌名 ＋ “-” ＋ 预点歌手, )

计次循环尾 ()
释放记录集 (点歌指针)
关闭MySql (载入点歌)

i支持库列表	支持库注释
mysql	MySql支持库

.版本 2<br /> .支持库 mysql<br /> <br /> .子程序 加载预点歌列表<br /> .局部变量 载入点歌, 整数型<br /> .局部变量 点歌指针, 整数型<br /> .局部变量 记录集行数, 整数型<br /> .局部变量 目标日期, 文本型<br /> .局部变量 目标时间, 文本型<br /> .局部变量 预点歌名, 文本型<br /> .局部变量 预点歌手, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 a, 整数型<br /> <br /> a ＝ 取小时 (取现行时间 ())<br /> .如果真 (a ＞ 0 且 a ＜ 10)<br />     现在时间 ＝ “上午”<br /> .如果真结束<br /> .如果真 (a ＞ 10 且 a ＜ 12)<br />     现在时间 ＝ “中午”<br /> .如果真结束<br /> .如果真 (a ＞ 12 且 a ＜ 24)<br />     现在时间 ＝ “下午”<br /> .如果真结束<br /> <br /> 载入点歌 ＝ 连接MySql (“u4qszn3j.2331.dnstoo.com”, “radiostation_f”, “jasonwhite”, “radiostation”, 5506)<br /> .如果 (载入点歌 ＝ 0)<br />     信息框 (“连接错误！”, 0, , )<br /> .否则<br /> <br /> .如果结束<br /> 执行SQL语句 (载入点歌, “set names GBK”)  ' 将数据库中的编码转换成易语言的编码<br /> 执行SQL语句 (载入点歌, “select * from ” ＋ “预点歌”)<br /> 点歌指针 ＝ 取记录集 (载入点歌)<br /> 记录集行数 ＝ 取记录集行数 (点歌指针)<br /> .计次循环首 (记录集行数, n)<br />     输出调试文本 (n)<br />     输出调试文本 (现在时间)<br />     到指定行 (点歌指针, 记录集行数 － n)<br />     读字段值 (点歌指针, “目标日期”, 目标日期)<br />     读字段值 (点歌指针, “目标时间”, 目标时间)<br />     输出调试文本 (目标时间)<br />     读字段值 (点歌指针, “歌名”, 预点歌名)<br />     读字段值 (点歌指针, “歌手”, 预点歌手)<br />     .如果真 (目标日期 ＝ 取文本左边 (到文本 (取现行时间 ()), 寻找文本 (到文本 (取现行时间 ()), “日”, , 假) ＋ 1) 且 目标时间 ＝ 现在时间)<br />         列表框2.加入项目 (预点歌名 ＋ “-” ＋ 预点歌手, )<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 释放记录集 (点歌指针)<br /> 关闭MySql (载入点歌)

  

子程序名	返回值类型	公开	备 注
读取QQ音乐

变量名	类 型	静态	数组	备 注
上传歌曲	整数型
上传指针	整数型
上传时间	日期时间型

如果真 (句柄 ≠ 0)
现行歌曲 ＝ 窗口_取标题 (句柄)
如果真 (歌曲 ＝ “” 且 现行歌曲 ≠ “”)
歌曲 ＝ 现行歌曲

歌名 ＝ 取文本左边 (现行歌曲, 寻找文本 (现行歌曲, “-”, , 假) － 2)
歌手 ＝ 取文本中间 (现行歌曲, 寻找文本 (现行歌曲, “-”, , 假) ＋ 2, 取文本长度 (现行歌曲) － 寻找文本 (现行歌曲, “-”, , 假) ＋ 3)
如果真 (歌曲 ≠ 现行歌曲 且 现行歌曲 ≠ “” 且 歌手 ≠ “网易云音乐”)
列表框3.加入项目 (歌名 ＋ “-” ＋ 歌手, )
歌曲 ＝ 现行歌曲
上传歌曲 ＝ 连接MySql (“u4qszn3j.2331.dnstoo.com”, “radiostation_f”, “jasonwhite”, “radiostation”, 5506)
如果 (上传歌曲 ＝ 0)
标签6.标题 ＝ “服务器链接错误！”


执行SQL语句 (上传歌曲, “set names GBK”)  ' 将数据库中的编码转换成易语言的编码
执行SQL语句 (上传歌曲, “select * from 播音记录”)
上传指针 ＝ 取记录集 (上传歌曲)
上传时间 ＝ 取现行时间 ()
增加记录 (上传歌曲, “播音记录”, “播音员=” ＋ “'” ＋ 用户名 ＋ “'” ＋ “,歌名=” ＋ “'” ＋ 歌名 ＋ “',歌手=” ＋ “'” ＋ 歌手 ＋ “'” ＋ “,播音时间=” ＋ “'” ＋ 到文本 (上传时间) ＋ “'”)
释放记录集 (上传指针)
断开MySql (上传歌曲)

i支持库列表	支持库注释
mysql	MySql支持库

.版本 2<br /> .支持库 mysql<br /> <br /> .子程序 读取QQ音乐<br /> .局部变量 上传歌曲, 整数型<br /> .局部变量 上传指针, 整数型<br /> .局部变量 上传时间, 日期时间型<br /> <br /> <br /> .如果真 (句柄 ≠ 0)<br />     现行歌曲 ＝ 窗口_取标题 (句柄)<br />     .如果真 (歌曲 ＝ “” 且 现行歌曲 ≠ “”)<br />         歌曲 ＝ 现行歌曲<br /> <br />     .如果真结束<br /> <br />     歌名 ＝ 取文本左边 (现行歌曲, 寻找文本 (现行歌曲, “-”, , 假) － 2)<br />     歌手 ＝ 取文本中间 (现行歌曲, 寻找文本 (现行歌曲, “-”, , 假) ＋ 2, 取文本长度 (现行歌曲) － 寻找文本 (现行歌曲, “-”, , 假) ＋ 3)<br />     .如果真 (歌曲 ≠ 现行歌曲 且 现行歌曲 ≠ “” 且 歌手 ≠ “网易云音乐”)<br />         列表框3.加入项目 (歌名 ＋ “-” ＋ 歌手, )<br />         歌曲 ＝ 现行歌曲<br /> <br /> <br />         上传歌曲 ＝ 连接MySql (“u4qszn3j.2331.dnstoo.com”, “radiostation_f”, “jasonwhite”, “radiostation”, 5506)<br />         .如果 (上传歌曲 ＝ 0)<br />             标签6.标题 ＝ “服务器链接错误！”<br />         .否则<br /> <br />         .如果结束<br />         执行SQL语句 (上传歌曲, “set names GBK”)  ' 将数据库中的编码转换成易语言的编码<br />         执行SQL语句 (上传歌曲, “select * from 播音记录”)<br />         上传指针 ＝ 取记录集 (上传歌曲)<br />         上传时间 ＝ 取现行时间 ()<br />         增加记录 (上传歌曲, “播音记录”, “播音员=” ＋ “'” ＋ 用户名 ＋ “'” ＋ “,歌名=” ＋ “'” ＋ 歌名 ＋ “',歌手=” ＋ “'” ＋ 歌手 ＋ “'” ＋ “,播音时间=” ＋ “'” ＋ 到文本 (上传时间) ＋ “'”)<br />         释放记录集 (上传指针)<br />         断开MySql (上传歌曲)<br />     .如果真结束<br /> <br /> .如果真结束

经过几次屏蔽调试，发现这些代码到最后都不会释放记录集，我的数据库最多连接是30个，多执行几遍就达到30个了。请问哪位朋友知道是怎么回事？

決不放棄

白珏绅 发表于 2018-2-14 11:31
执行到了

把关闭MySQL换成断开MySQL

決不放棄

调试输出看看执行到释放记录集的那条命令了吗

白珏绅

決不放棄 发表于 2018-2-14 11:24
调试输出看看执行到释放记录集的那条命令了吗

执行到了