数据库cha询 总是闪退

yeshuang00

  

子程序名	返回值类型	公开	备 注
数据库查询
参数名	类 型	参考	可空	数组	备 注
查名字	文本型
查签名	文本型

变量名	类 型	静态	数组	备 注
抖号内容	文本型
查询语句	文本型
记录集句柄	逻辑型
记录数	整数型
记录集	整数型
行数	长整数型
i	整数型
字段值	文本型
执行结果	逻辑型
错误信息	整数型
总项数
总和	整数型.局部变量 提取内容
当前行	整数型
提取数字	整数型
人民币金额	双精度小数型

内容 ＝ form.编辑框_查询数据.内容
' 检查输入是否为空
如果 (抖号内容 ＝ “”)
信息框 (“请输入要查询的内容”, 0, “提示”, )
返回 ()



如果 (查歌单 ＝ “”)
查询语句 ＝ “SELECT * FROM `test` WHERE `名字` LIKE '%” ＋ form.编辑框_查询数据.内容 ＋ “%'”
查询语句 ＝ “SELECT * FROM `testt` WHERE `内容` LIKE '%” ＋ form.编辑框_查询数据.内容 ＋ “%'”

内容 ＝ 子文本替换 (内容, “‘”, “‘‘”, , , 真)  ' 将单引号替换为两个单引号
连接_许可.进入 ()
MySql句柄 ＝ 连接MySql (“XXX.XXX.XXX.XXX”, “XXXXX”, “XXXXX”, “XXXX”, 3306)
如果真 (MySql句柄 ＝ 0)
信息框 (“数据库连接失败！”, 0, , )
返回 ()

选择库 (MySql句柄, “ser3xw88ih2”)
执行SQL语句 (MySql句柄, “SET NAMES GBK”)
' 构造查询语句（模糊查询）
执行SQL语句 (MySql句柄, 查询语句)
' 先执行SQL语句
执行结果 ＝ 执行SQL语句 (MySql句柄, 查询语句)
' 然后获取记录集
记录集 ＝ 取记录集 (MySql句柄)
如果真 (记录集 ＝ 0)
信息框 (“查询失败或没有匹配的记录！”, 0, , )
断开MySql (MySql句柄)
返回 ()

' 获取记录数
行数 ＝ 取记录集行数 (记录集)
' 清空超级列表框原有数据
form.超级列表框_查询表.全部删除 ()
' 显示查询结果
如果真 (行数 ＞ 0)
到首行 (记录集)
计次循环首 (行数, i)
form.超级列表框_查询表.插入表项 (-1, , , , , )
form.超级列表框_查询表.置标题 (i － 1, 0, 到文本 (form.超级列表框_查询表.取表项数 ()))
读字段值 (记录集, “昵称”, 字段值)
form.超级列表框_查询表.置标题 (i － 1, 1, 字段值)
读字段值 (记录集, “性别”, 字段值)
form.超级列表框_查询表.置标题 (i － 1, 2, 字段值)

到下一行 (记录集)  ' 移动到下一行记录
计次循环尾 ()

' 释放资源
释放记录集 (记录集)
断开MySql (MySql句柄)

i支持库列表	支持库注释
mysql	MySql支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 mysql<br /> .支持库 iext<br /> <br /> .子程序 数据库查询<br /> .参数 查名字, 文本型<br /> .参数 查签名, 文本型<br /> .局部变量 抖号内容, 文本型<br /> .局部变量 查询语句, 文本型<br /> .局部变量 记录集句柄, 逻辑型<br /> .局部变量 记录数, 整数型<br /> .局部变量 记录集, 整数型<br /> .局部变量 行数, 长整数型<br /> .局部变量 i, 整数型<br /> .局部变量 字段值, 文本型<br /> .局部变量 执行结果, 逻辑型<br /> .局部变量 错误信息, 整数型<br /> .局部变量 总项数<br /> .局部变量 总和, 整数型.局部变量 提取内容, 文本型<br /> .局部变量 当前行, 整数型<br /> .局部变量 提取数字, 整数型<br /> .局部变量 人民币金额, 双精度小数型<br /> <br /> <br /> <br /> 内容 ＝ form.编辑框_查询数据.内容<br /> <br /> ' 检查输入是否为空<br /> .如果 (抖号内容 ＝ “”)<br />     信息框 (“请输入要查询的内容”, 0, “提示”, )<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .如果 (查歌单 ＝ “”)<br />     查询语句 ＝ “SELECT * FROM `test` WHERE `名字` LIKE '%” ＋ form.编辑框_查询数据.内容 ＋ “%'”<br /> .否则<br />     查询语句 ＝ “SELECT * FROM `testt` WHERE `内容` LIKE '%” ＋ form.编辑框_查询数据.内容 ＋ “%'”<br /> .如果结束<br /> <br /> <br /> 内容 ＝ 子文本替换 (内容, “‘”, “‘‘”, , , 真)  ' 将单引号替换为两个单引号<br /> <br /> 连接_许可.进入 ()<br /> MySql句柄 ＝ 连接MySql (“XXX.XXX.XXX.XXX”, “XXXXX”, “XXXXX”, “XXXX”, 3306)<br /> <br /> .如果真 (MySql句柄 ＝ 0)<br /> <br />     信息框 (“数据库连接失败！”, 0, , )<br /> <br />     返回 ()<br /> <br /> <br /> .如果真结束<br /> <br /> 选择库 (MySql句柄, “ser3xw88ih2”)<br /> 执行SQL语句 (MySql句柄, “SET NAMES GBK”)<br /> <br /> ' 构造查询语句（模糊查询）<br /> <br /> <br /> 执行SQL语句 (MySql句柄, 查询语句)<br /> <br /> ' 先执行SQL语句<br /> 执行结果 ＝ 执行SQL语句 (MySql句柄, 查询语句)<br /> <br /> <br /> ' 然后获取记录集<br /> <br /> 记录集 ＝ 取记录集 (MySql句柄)<br /> <br /> .如果真 (记录集 ＝ 0)<br /> <br />     信息框 (“查询失败或没有匹配的记录！”, 0, , )<br /> <br />     断开MySql (MySql句柄)<br /> <br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> <br /> ' 获取记录数<br /> 行数 ＝ 取记录集行数 (记录集)<br /> <br /> <br /> ' 清空超级列表框原有数据<br /> form.超级列表框_查询表.全部删除 ()<br /> <br /> ' 显示查询结果<br /> .如果真 (行数 ＞ 0)<br /> <br />     到首行 (记录集)<br /> <br />     .计次循环首 (行数, i)<br /> <br />         form.超级列表框_查询表.插入表项 (-1, , , , , )<br /> <br />         form.超级列表框_查询表.置标题 (i － 1, 0, 到文本 (form.超级列表框_查询表.取表项数 ()))<br /> <br /> <br />         读字段值 (记录集, “昵称”, 字段值)<br />         form.超级列表框_查询表.置标题 (i － 1, 1, 字段值)<br /> <br />         读字段值 (记录集, “性别”, 字段值)<br />         form.超级列表框_查询表.置标题 (i － 1, 2, 字段值)<br /> <br />       <br /> <br />         到下一行 (记录集)  ' 移动到下一行记录<br /> <br /> <br />     .计次循环尾 ()<br /> <br /> <br /> <br /> .如果真结束<br /> <br /> ' 释放资源<br /> 释放记录集 (记录集)<br /> <br /> 断开MySql (MySql句柄)

上面代码 执行的时候 时不时的会闪退 ,    有时候点一下查询就闪退了 有时候点几次闪退。概率90%以上

哪里有问题啊？

音瘾小生

你在最后的释放记录集加一个判断试试行不行
' 释放资源
如果真（记录集 ≠ 0）
释放记录集 (记录集)
如果真结束
断开MySql (MySql句柄)

ekO

mysql句柄用局部变量